Changeset 1644 for trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

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/dyn3d/gcm.F90 (modified) (1 diff)

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