[Dart-dev] [4195] DART/trunk/models: Make the perturb routine set the output directly from the input

[nancy at ucar.edu]

Revision: 4195
Author:   nancy
Date:     2009-12-09 14:26:45 -0700 (Wed, 09 Dec 2009)
Log Message:
-----------
Make the perturb routine set the output directly from the input
state vector.  This should have no memory footprint and satisfy any
compiler that takes intent(out) seriously.

Modified Paths:
--------------
    DART/trunk/models/bgrid_solo/model_mod.f90
    DART/trunk/models/ikeda/model_mod.f90
    DART/trunk/models/null_model/model_mod.f90
    DART/trunk/models/pe2lyr/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/bgrid_solo/model_mod.f90
===================================================================
--- DART/trunk/models/bgrid_solo/model_mod.f90	2009-12-08 21:55:03 UTC (rev 4194)
+++ DART/trunk/models/bgrid_solo/model_mod.f90	2009-12-09 21:26:45 UTC (rev 4195)
@@ -2044,9 +2044,9 @@
 ! you *cannot* set this to junk. in at least one
 ! location the caller is passing the same
 ! array into the first arg as the second.  doing this
-! corrupts the state vector completely. we'll just have 
-! to put up with the compiler warning.
-!pert_state = MISSING_R8 ! Just to satisfy INTENT(OUT)
+! corrupts the state vector completely. set it to the
+! incoming state if you must do something.
+pert_state = state ! 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-12-08 21:55:03 UTC (rev 4194)
+++ DART/trunk/models/ikeda/model_mod.f90	2009-12-09 21:26:45 UTC (rev 4195)
@@ -702,7 +702,7 @@
 
 interf_provided = .false.
 
-pert_state = MISSING_R8 ! Just to satisfy the INTENT(OUT)
+pert_state = state ! 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-12-08 21:55:03 UTC (rev 4194)
+++ DART/trunk/models/null_model/model_mod.f90	2009-12-09 21:26:45 UTC (rev 4195)
@@ -611,7 +611,7 @@
 
 interf_provided = .false.
 
-pert_state = MISSING_R8 ! Just to satisfy the INTENT(OUT)
+pert_state = state ! 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-12-08 21:55:03 UTC (rev 4194)
+++ DART/trunk/models/pe2lyr/model_mod.f90	2009-12-09 21:26:45 UTC (rev 4195)
@@ -786,7 +786,7 @@
 logical,  intent(out) :: interf_provided
 
 interf_provided = .false.
-pert_state = MISSING_R8 ! just to satisfy INTENT(OUT)
+pert_state = state ! just to satisfy INTENT(OUT)
 
 end subroutine pert_model_state