Ignore:
Timestamp:
Dec 12, 2017, 1:32:18 PM (7 years ago)
Author:
jvatant
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem.F90

    r1509 r1850  
    8080    idecal = 4
    8181  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
    8388    idecal = 5
    8489  endif
Note: See TracChangeset for help on using the changeset viewer.