Changeset 3326

Timestamp:

May 15, 2024, 10:05:02 AM (7 months ago)

Author:

emillour

Message:

Titan PCM:
Some corrections to make start2archve and newstart work.
LR+EM

Location:

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan

Files:

• defrun_new.F (modified) (2 diffs)
• newstart.F (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/defrun_new.F

@@ -40 +40 @@
       use sponge_mod,only: callsponge,nsponge,mode_sponge,tetasponge
       use control_mod,only: nday, day_step, iperiod, anneeref,
-     &                      iconser, dissip_period, iphysiq
+     &                      iconser, dissip_period, iphysiq, timestart
       USE logic_mod, ONLY: hybrid,purmats,fxyhypb,ysinus,iflag_phys
       USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
@@ -104 +104 @@
         WRITE(lunout,*) "DEFRUN_NEW: reading file run.def"
         
+        timestart=-9999 ! default value; if <0, use last stored time
+        call getin("timestart",timestart)
+
         WRITE(lunout,*) ""
         WRITE(lunout,*) "Number of days to run:"

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

@@ -33 +33 @@
      .                        rad,omeg,g,r,pi
       USE serre_mod, ONLY: alphax
-      USE temps_mod, ONLY: day_ini
+      USE temps_mod, ONLY: day_ini,start_time
       USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
       use tabfi_mod, only: tabfi
@@ -372 +372 @@
       ! with Earth-like Titan start files ( cf dynetat0 from common )
 
-      kappa = tab_cntrl(10) 
+      kappa = tab_cntrl(10)
+      daysec = tab_cntrl(11)
+      dtvr = tab_cntrl(12)
       etot0 = tab_cntrl(13)
       ptot0 = tab_cntrl(14)
@@ -400 +402 @@
         read(*,*) pa
       endif
+      
+      ! start_time needs to be initialized
+      start_time = tab_cntrl(32)
+      
 c-----------------------------------------------------------------------
 c   Lecture du tab_cntrl et initialisation des constantes physiques