Changeset 2526

Timestamp:

May 26, 2021, 5:38:08 PM (4 years ago)

Author:

mvals

Message:

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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/dyn1d/testphys1d.F (modified) (3 diffs)

trunk/LMDZ.MARS/README

@@ -3387 +3387 @@
 == 26/05/2021 == AB
 Make a cleaner initialization of some variables in simu_MCS.F90
+
+== 26/05/2021 == MV
+testphys1d.F: Fix for the 1D, follow up from previous modifications of phys_state_var_init subroutine.
+

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,time,daysec,dtphys,rad,g,r,cpp,
+     .          day0,dayn,time,
+     .          daysec,dtphys,
+     .          rad,g,r,cpp,
      .          nqperes,nqfils)! MVals: variables isotopes
       call ini_fillgeom(1,latitude,longitude,(/1.0/))