Changeset 1644
- Timestamp:
- Dec 15, 2016, 4:09:55 PM (8 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 40 deleted
- 5 edited
- 5 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90
r1572 r1644 372 372 write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure' 373 373 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) 374 376 else 375 377 ! A voir pour Titan et Venus -
trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F
r1593 r1644 396 396 write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure' 397 397 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) 398 400 else 399 401 ! A voir pour Titan et Venus -
trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/callphysiq_mod.F90
r1576 r1644 59 59 ! Sanity check on physics package type 60 60 IF (firstcall) THEN 61 IF (planet_type.ne." generic") THEN61 IF (planet_type.ne."titan") THEN 62 62 CALL abort_gcm(modname,"wrong planet_type for this physics package",1) 63 63 ENDIF -
trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F
r1589 r1644 187 187 ! make deliberate choice of these values elsewhere. 188 188 189 planet_type=" generic"189 planet_type="titan" 190 190 191 191 ! initialize "serial/parallel" related stuff -
trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F
r1593 r1644 145 145 CALL defrun_new(99, .TRUE. ) 146 146 147 planet_type=" generic"147 planet_type="titan" 148 148 149 149 c=======================================================================
Note: See TracChangeset
for help on using the changeset viewer.