Changeset 1644 for trunk/LMDZ.COMMON/libf

Timestamp:

Dec 15, 2016, 4:09:55 PM (8 years ago)

Author:

jvatant

Message:

Copy the new LMDZ.TITAN from LMDZ.GENERIC
+ compilation-needed modification (phystd->phytitan ...)
+ no changes on substance
+ deftank cleaned

Location:

trunk/LMDZ.COMMON/libf

Files:

• dyn3d/gcm.F90 (modified) (1 diff)
• dyn3dpar/gcm.F (modified) (1 diff)
• dynphy_lonlat/phytitan (added)
• dynphy_lonlat/phytitan.old (copied) (copied from trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan)

trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

@@ -372 +372 @@
     write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure'
     write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure
+  else if (planet_type.eq.'titan') then
+    jD_ref=1 ! Because we use old Titan starts (J.V.O 2016)
   else
 ! A voir pour Titan et Venus

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

@@ -396 +396 @@
       write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure'
       write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure
+      else if (planet_type.eq.'titan') then
+        jD_ref=1 ! Because we use old Titan starts (J.V.O 2016)
       else
 ! A voir pour Titan et Venus