Changeset 1850 for trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem.F90
- Timestamp:
- Dec 12, 2017, 1:32:18 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem.F90
r1509 r1850 80 80 idecal = 4 81 81 else 82 write(lunout,*) trim(modname),' : Earth-like start file' 82 if ( planet_type.eq."titan" ) then 83 ! Titan inherited Earth-like start files with idecal=5 84 write(lunout,*) trim(modname),' : Titan start file' 85 else 86 write(lunout,*) trim(modname),' : Earth-like start file' 87 endif 83 88 idecal = 5 84 89 endif
Note: See TracChangeset
for help on using the changeset viewer.