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
Files:
3 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

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

    r1509 r1850  
    8181    idecal = 4
    8282  else
    83     write(lunout,*) trim(modname),' : Earth-like start file'
     83    if ( planet_type.eq."titan" ) then
     84      ! Titan inherited Earth-like start files with idecal=5
     85      write(lunout,*) trim(modname),' : Titan start file'
     86    else
     87      write(lunout,*) trim(modname),' : Earth-like start file'
     88    endif
    8489    idecal = 5
    8590  endif
Note: See TracChangeset for help on using the changeset viewer.