[Dart-dev] [3964] DART/trunk/models: fixing unused pert_model_state() INTENT warning

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090715/273ba94d/attachment.html 
-------------- next part --------------
Modified: DART/trunk/models/bgrid_solo/model_mod.f90
===================================================================
--- DART/trunk/models/bgrid_solo/model_mod.f90	2009-07-15 22:24:43 UTC (rev 3963)
+++ DART/trunk/models/bgrid_solo/model_mod.f90	2009-07-15 22:25:56 UTC (rev 3964)
@@ -68,7 +68,7 @@
 
 
 use        random_seq_mod, only: random_seq_type, init_random_seq, random_gaussian
-use             types_mod, only: r8, pi
+use             types_mod, only: r8, pi, MISSING_R8
 ! combined duplicate use lines for utilities_mod; the intel 8.x compiler
 ! was unhappy about the repetition.  nsc 11apr06
 use        utilities_mod, only : open_file, error_handler, E_ERR, E_MSG, &
@@ -2039,9 +2039,8 @@
 real(r8), intent(out) :: pert_state(:)
 logical,  intent(out) :: interf_provided
 
-! Some compilers require an assignment to intent(out) arguments
-!!!pert_state = 0.0
 interf_provided = .false.
+pert_state = MISSING_R8 ! Just to satisfy INTENT(OUT)
 
 end subroutine pert_model_state
 

Modified: DART/trunk/models/ikeda/model_mod.f90
===================================================================
--- DART/trunk/models/ikeda/model_mod.f90	2009-07-15 22:24:43 UTC (rev 3963)
+++ DART/trunk/models/ikeda/model_mod.f90	2009-07-15 22:25:56 UTC (rev 3964)
@@ -23,7 +23,7 @@
 !   an adaptation of the lorenz_63 model_mod.f90 for a new simple system.
 
 ! Modules that are absolutely required for use are listed
-use        types_mod, only : r8
+use        types_mod, only : r8, MISSING_R8
 use time_manager_mod, only : time_type, set_time
 use     location_mod, only : location_type,      get_close_maxdist_init, &
                              get_close_obs_init, get_close_obs, set_location, &
@@ -247,6 +247,8 @@
 ! Default for successful return
 istatus = 0
 
+obs_val = MISSING_R8 ! Just to satisfy the INTENT(OUT)
+
 end subroutine model_interpolate
 
 
@@ -700,6 +702,8 @@
 
 interf_provided = .false.
 
+pert_state = MISSING_R8 ! Just to satisfy the INTENT(OUT)
+
 end subroutine pert_model_state
 
 

Modified: DART/trunk/models/null_model/model_mod.f90
===================================================================
--- DART/trunk/models/null_model/model_mod.f90	2009-07-15 22:24:43 UTC (rev 3963)
+++ DART/trunk/models/null_model/model_mod.f90	2009-07-15 22:25:56 UTC (rev 3964)
@@ -17,7 +17,7 @@
 ! controlled by modifying the code comments in adv_1step and comp_dt in your
 ! sandbox. 
 
-use        types_mod, only : r8
+use        types_mod, only : r8, MISSING_R8
 use time_manager_mod, only : time_type, set_time
 use     location_mod, only : location_type, get_dist, set_location, get_location, &
                              LocationDims, LocationName, LocationLName, &
@@ -611,6 +611,8 @@
 
 interf_provided = .false.
 
+pert_state = MISSING_R8 ! Just to satisfy the INTENT(OUT)
+
 end subroutine pert_model_state
 
 

Modified: DART/trunk/models/pe2lyr/model_mod.f90
===================================================================
--- DART/trunk/models/pe2lyr/model_mod.f90	2009-07-15 22:24:43 UTC (rev 3963)
+++ DART/trunk/models/pe2lyr/model_mod.f90	2009-07-15 22:25:56 UTC (rev 3964)
@@ -17,7 +17,7 @@
 
 !---------------- m o d u l e   i n f o r m a t i o n ------------------
 
-use        types_mod, only : r8
+use        types_mod, only : r8, MISSING_R8
 use time_manager_mod, only : time_type, set_time
 use    utilities_mod, only : file_exist, open_file, close_file, nc_check, &
                              register_module, error_handler, E_ERR, E_MSG
@@ -786,6 +786,7 @@
 logical,  intent(out) :: interf_provided
 
 interf_provided = .false.
+pert_state = MISSING_R8 ! just to satisfy INTENT(OUT)
 
 end subroutine pert_model_state