Changeset 497 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

Jan 12, 2012, 7:29:33 PM (13 years ago)

Author:

slebonnois

Message:

Ajout de scripts NCL dans UTIL. Pas encore tres developpe mais dites moi ce que vous en pensez. + correction bug pour marees grav Titan dans leapfrog

File:

• trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

@@ -133 +133 @@
       real time_step, t_wrt, t_ops
 
-!      REAL rdayvrai,rdaym_ini
+      REAL rdaym_ini
 ! jD_cur: jour julien courant
 ! jH_cur: heure julienne courante
@@ -359 +359 @@
       CALL geopot  ( ip1jmp1, tsurpk  , pk , pks,  phis  , phi   )
 
+           rdaym_ini  = itau * dtvr / daysec
+
       time = jD_cur + jH_cur
       CALL caldyn 
@@ -435 +437 @@
          endif
 
-!           rdaym_ini  = itau * dtvr / daysec
-!           rdayvrai   = rdaym_ini  + day_ini
            jD_cur = jD_ref + day_ini - day_ref +                        &
      &          int (itau * dtvr / daysec)