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

Timestamp:

Dec 12, 2017, 1:32:18 PM (7 years ago)

Author:

jvatant

Message:

Follow-up of r1849 : understood the black magic !
--JVO

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F90

@@ -81 +81 @@
     idecal = 4
   else
-    write(lunout,*) trim(modname),' : Earth-like start file'
+    if ( planet_type.eq."titan" ) then
+      ! Titan inherited Earth-like start files with idecal=5
+      write(lunout,*) trim(modname),' : Titan start file'
+    else
+      write(lunout,*) trim(modname),' : Earth-like start file'
+    endif
     idecal = 5
   endif