Changeset 1676 for LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

Timestamp:

Nov 8, 2012, 9:03:30 PM (12 years ago)

Author:

aslmd

Message:

---

• Repare le probleme "un jour sans fin" des versions precedentes pour le modele generique. Pas d'impact sur modele terrestre.

NB: changements egalement faits sur dyn3dmem en prevision de son utilisation

---

• Fix the bug "Groundhog Day" which was a problem for previous versions using generic physics. No impact whatsoever on terrestrial model.

NB: changes also done on dyn3dmem which is planned to be used soon

---

Author : AS equipe planeto

File:

• LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

@@ -710 +710 @@
            jD_cur = jD_ref + day_ini - day_ref
      $        + itau/day_step
+
+           IF (planet_type .eq."generic") THEN
+              ! AS: we make jD_cur to be pday
+              jD_cur = int(day_ini + itau/day_step)
+           ENDIF
+
            jH_cur = jH_ref + start_time +                                &
      &              mod(itau,day_step)/float(day_step)