Changeset 2527 for trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

Timestamp:

May 26, 2021, 9:01:27 PM (4 years ago)

Author:

jnaar

Message:

Bug correction in the 1d GCM, not compiling because of the "phys_state_var_init" routine. JN

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,dayn          ! date initial (sol ; =0 a Ls=0) and final
+      INTEGER day0          ! date initial (sol ; =0 a Ls=0)
       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  
@@ -457 +456 @@
       call init_dimphy(1,nlayer) ! Initialize dimphy module
       call phys_state_var_init(1,llm,nq,tname,
-     .          day0,dayn,time,
-     .          daysec,dtphys,
-     .          rad,g,r,cpp,
-     .          nqperes,nqfils)! MVals: variables isotopes
+     &          day0,ndt,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)