[Dart-dev] [5812] DART/trunk/models/cam/model_mod.f90: minor change to intent for one subroutine argument; in the subroutine

[nancy at ucar.edu]

Revision: 5812
Author:   nancy
Date:     2012-07-23 14:21:43 -0600 (Mon, 23 Jul 2012)
Log Message:
-----------
minor change to intent for one subroutine argument; in the subroutine
the variable is modified so it cannot be declared intent(in); it must
be intent(inout).  some compilers give errors and others ignore it.

Modified Paths:
--------------
    DART/trunk/models/cam/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/cam/model_mod.f90
===================================================================
--- DART/trunk/models/cam/model_mod.f90	2012-07-23 20:13:20 UTC (rev 5811)
+++ DART/trunk/models/cam/model_mod.f90	2012-07-23 20:21:43 UTC (rev 5812)
@@ -1814,7 +1814,7 @@
 ! write CAM 'initial' file fields that have been updated
 
 character (len = *), intent(in)           :: file_name
-type(model_type),    intent(in)           :: var
+type(model_type),    intent(inout)        :: var
 type(time_type),     intent(in), optional :: model_time
 
 integer               :: i, k, n, m, ifld, ncfileid, ncfldid, f_dim1, f_dim2