Changeset 1644 for trunk/LMDZ.COMMON/libf/dyn3dpar

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

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F (modified) (1 diff)

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