[Dart-dev] [6047] DART/branches/development/assim_model/assim_model_mod.f90: fix 3 places where the type(assim_model_type) argument

[nancy at ucar.edu]

Revision: 6047
Author:   nancy
Date:     2013-04-09 11:12:49 -0600 (Tue, 09 Apr 2013)
Log Message:
-----------
fix 3 places where the type(assim_model_type) argument
was declared intent(out) only.  the derived type contains
pointers that have already been allocated, so the arg
should be intent(inout).  the native cray compiler complained
about these, and technically it's right.

Modified Paths:
--------------
    DART/branches/development/assim_model/assim_model_mod.f90

-------------- next part --------------
Modified: DART/branches/development/assim_model/assim_model_mod.f90
===================================================================
--- DART/branches/development/assim_model/assim_model_mod.f90	2013-04-08 17:22:22 UTC (rev 6046)
+++ DART/branches/development/assim_model/assim_model_mod.f90	2013-04-09 17:12:49 UTC (rev 6047)
@@ -602,7 +602,7 @@
 
 implicit none
 
-type(assim_model_type), intent(out) :: x
+type(assim_model_type), intent(inout) :: x
 
 call aget_initial_condition(x%time, x%state_vector)
 
@@ -623,7 +623,7 @@
 implicit none
 
 type(time_type), intent(out) :: time
-real(r8), intent(out) :: x(:)
+real(r8),        intent(out) :: x(:)
 
 call init_conditions(x)
 
@@ -640,7 +640,7 @@
 
 implicit none
 
-type(time_type) :: get_model_time
+type(time_type)                    :: get_model_time
 type(assim_model_type), intent(in) :: assim_model
 
 get_model_time = assim_model%time
@@ -660,8 +660,8 @@
 
 implicit none
 
-type(assim_model_type), intent(out) :: model_out
-type(assim_model_type), intent(in)  :: model_in
+type(assim_model_type), intent(inout) :: model_out
+type(assim_model_type), intent(in)    :: model_in
 
 integer :: i
 
@@ -839,8 +839,8 @@
 
 implicit none
 
-type(assim_model_type), intent(out)          :: assim_model
-integer,                intent(in)           :: funit
+type(assim_model_type), intent(inout)         :: assim_model
+integer,                intent(in)            :: funit
 type(time_type),        optional, intent(out) :: target_time
 
 if ( .not. module_initialized ) call static_init_assim_model()