Changeset 1644


Ignore:
Timestamp:
Dec 15, 2016, 4:09:55 PM (8 years ago)
Author:
jvatant
Message:

Copy the new LMDZ.TITAN from LMDZ.GENERIC
+ compilation-needed modification (phystd->phytitan ...)
+ no changes on substance
+ deftank cleaned

Location:
trunk
Files:
1 added
40 deleted
5 edited
5 copied

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

    r1572 r1644  
    372372    write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure'
    373373    write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure
     374  else if (planet_type.eq.'titan') then
     375    jD_ref=1 ! Because we use old Titan starts (J.V.O 2016)
    374376  else
    375377! A voir pour Titan et Venus
  • trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

    r1593 r1644  
    396396      write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure'
    397397      write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure
     398      else if (planet_type.eq.'titan') then
     399        jD_ref=1 ! Because we use old Titan starts (J.V.O 2016)
    398400      else
    399401! A voir pour Titan et Venus
  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/callphysiq_mod.F90

    r1576 r1644  
    5959! Sanity check on physics package type
    6060  IF (firstcall) THEN
    61     IF (planet_type.ne."generic") THEN
     61    IF (planet_type.ne."titan") THEN
    6262      CALL abort_gcm(modname,"wrong planet_type for this physics package",1)
    6363    ENDIF
  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

    r1589 r1644  
    187187                  ! make deliberate choice of these values elsewhere.
    188188
    189       planet_type="generic"
     189      planet_type="titan"
    190190
    191191! initialize "serial/parallel" related stuff
  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F

    r1593 r1644  
    145145      CALL defrun_new(99, .TRUE. )
    146146
    147       planet_type="generic"
     147      planet_type="titan"
    148148
    149149c=======================================================================
Note: See TracChangeset for help on using the changeset viewer.