Changeset 3042 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Sep 13, 2023, 2:33:49 PM (16 months ago)

Author:

jbclement

Message:

Mars PEM:
The date and time are redefined at the end of PEM to write the file "restarfi_evol.nc". Like so, the next GCM runs can restart at the date and time given at the beginning of the simulation since the PEM is only progressing by step of one Martian year.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/pem.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/pem.F90

@@ -116 +116 @@
 integer :: day_ini   ! First day of the simulation
 real    :: pday      ! Physical day
-real    :: ptime     ! Physical time
 real    :: time_phys ! Same as GCM
 real    :: ptimestep ! Same as GCM
@@ -1136 +1135 @@
 !------------------------
 ! III_b.1 Write restart_evol.nc
-ptimestep = iphysiq*daysec/real(day_step)/nsplit_phys
-print*, ptimestep,dtphys,iphysiq*daysec/real(day_step),nsplit_phys
+ptimestep = iphysiq*daysec/real(day_step)/nsplit_phys ! dtphys/nsplit_phys
 pday = day_ini
-ptime = 0.
-ztime_fin = pday - day_end + ptime + ptimestep/(float(iphysiq)*daysec)
+ztime_fin = time_phys
 
 allocate(p(ip1jmp1,nlayer + 1))