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

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

Location:
trunk/LMDZ.COMMON/libf/dyn3d_common
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3d_common/dynetat0.F90

    r1824 r1850  
    7979          annee_ref  = 2000
    8080      else
    81           write(lunout,*)'dynetat0 : Earth-like start file'
     81          if (planet_type.eq."titan") then
     82             ! Titan inherited Earth-like start files with idecal=5
     83             write(lunout,*)'dynetat0 : Titan start file'
     84          else
     85             write(lunout,*)'dynetat0 : Earth-like start file'
     86          endif
    8287          idecal = 5
    8388          annee_ref  = tab_cntrl(5)

  • 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.