Changeset 497 for trunk

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

Location:

trunk

Files:

• LMDZ.COMMON/libf/dyn3d/leapfrog.F (modified) (3 diffs)
• LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F (modified) (2 diffs)
• UTIL/NCL (added)
• UTIL/NCL/README (added)
• UTIL/NCL/help.txt (added)
• UTIL/NCL/planeto.ncl (added)
• UTIL/NCL/visu-ncl (added)
• UTIL/NCL/visu-utils.ncl (added)

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) 

trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

@@ -146 +146 @@
       INTEGER :: an, mois, jour
       REAL :: secondes
+      real :: rdaym_ini
 
       LOGICAL first,callinigrads
@@ -626 +627 @@
 !      CALL FTRACE_REGION_BEGIN("caldyn")
       time = jD_cur + jH_cur 
+           rdaym_ini  = itau * dtvr / daysec
+
 ! ADAPTATION GCM POUR CP(T)
 !      CALL caldyn_p