Changeset 2083 for LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.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/dyn3dpar/leapfrog_p.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

@@ -717 +717 @@
            CALL exner_milieu_p( ip1jmp1, ps, p, pks, pk, pkf )
          endif
+c$OMP BARRIER
 ! Appel a geopot ajoute le 2014/05/08 pour garantir la convergence numerique
 ! avec dyn3dmem
-      CALL geopot  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
-c$OMP BARRIER
+      CALL geopot_p  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+
            jD_cur = jD_ref + day_ini - day_ref
      $        + itau/day_step