Changeset 1676 for LMDZ5/trunk/libf/dyn3d

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

Location:

LMDZ5/trunk/libf/dyn3d

Files:

• calfis.F (modified) (1 diff)
• leapfrog.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/calfis.F

@@ -507 +507 @@
      .             debut_split,    !! firstcall 
      .             lafin_split,    !! lastcall
-     .             float(day_ini), !! pday <-- day_ini (dans temps.h)
+     .             jD_cur,         !! pday. see leapfrog
      .             jH_cur_split,   !! ptime "fraction of day"
      .             zdt_split,      !! ptimestep

LMDZ5/trunk/libf/dyn3d/leapfrog.F

@@ -383 +383 @@
            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)