Changeset 1676 for LMDZ5/trunk/libf/dyn3dmem

Timestamp:

Nov 8, 2012, 9:03:30 PM (13 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/dyn3dmem

Files:

• calfis_loc.F (modified) (1 diff)
• call_calfis_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/calfis_loc.F

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

LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90

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