Changeset 2530 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Jun 8, 2021, 12:12:03 PM (4 years ago)

Author:

mvals

Message:

Mars GCM:
re-commit of version 2526: testphys1d.F: Fix for the 1D, follow up from previous modifications of phys_state_var_init subroutine.
MV

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -82 +82 @@
       real,parameter :: odpref=610. ! DOD reference pressure (Pa)
 c
-      INTEGER day0          ! date initial (sol ; =0 a Ls=0)
+      INTEGER day0,dayn          ! date initial (sol ; =0 a Ls=0) and final
       REAL day           ! date durant le run
       REAL time             ! time (0<time<1 ; time=0.5 a midi)
@@ -364 +364 @@
       write(*,*) " ndt = ",ndt
 
+      dayn=day0+ndt
       ndt=ndt*day_step     
       dtphys=daysec/day_step  
@@ -456 +457 @@
       call init_dimphy(1,nlayer) ! Initialize dimphy module
       call phys_state_var_init(1,llm,nq,tname,
-     &          day0,ndt,time,daysec,dtphys,rad,g,r,cpp,
-     &          nqperes,nqfils)! MVals: variables isotopes
+     .          day0,dayn,time,
+     .          daysec,dtphys,
+     .          rad,g,r,cpp,
+     .          nqperes,nqfils)! MVals: variables isotopes
       call ini_fillgeom(1,latitude,longitude,(/1.0/))
       call conf_phys(1,llm,nq)