Changeset 1850


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

  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

    r1849 r1850  
    368368c-----------------------------------------------------------------------
    369369
    370       ! JVO 2017 :  For this part it seems to need a shift of 1 in the
    371       ! tab_cntrl indexes compared to dynetat0 ... I introduced it to have
    372       ! correct outputs of newstart but I don't really understand why ...
     370      ! JVO 2017 : Added a +1 shift in tab_cntrl indexes to be coherent
     371      ! with Earth-like Titan start files ( cf dynetat0 from common )
    373372
    374373      kappa = tab_cntrl(10)
Note: See TracChangeset for help on using the changeset viewer.