Changeset 2083 for LMDZ5/trunk/libf/dyn3d_common/caldyn0.F

Timestamp:

Jul 9, 2014, 4:43:31 PM (10 years ago)

Author:

Ehouarn Millour

Message:

• Minor fix in dyn3dpar/leapfrog_p.F , should call geopot_p and not geopot
• Added a sanity check in iniacademic
• Added flag "resetvarc" to trigger a reset of initial values in sortvarc
• Removed "sortvarc0" since the job can now be done with "resetvarc" and having set flag resertvarc to true.

EM

File:

• LMDZ5/trunk/libf/dyn3d_common/caldyn0.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/caldyn0.F

@@ -6 +6 @@
      $  phi,w,pbaru,pbarv,time )
 
+      USE control_mod, ONLY: resetvarc 
       IMPLICIT NONE
 
@@ -83 +84 @@
       ENDDO
 
-        CALL sortvarc0
+      resetvarc=.true. ! force a recomputation of initial values in sortvarc
+      CALL sortvarc
      $ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov )