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

Timestamp:

Mar 8, 2017, 10:37:31 AM (8 years ago)

Author:

jvatant

Message:

Re-plug chemistry of old Titan
+ minor correction on reading Titan's startfiles and haze routine
JVO

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 if (planet_type.eq.'titan') then
+!    jD_ref=1 ! Only if we use old Titan starts (J.V.O 2016)
   else
 ! A voir pour Titan et Venus