Changeset 2511 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 30, 2021, 9:55:53 PM (4 years ago)

Author:

aslmd

Message:

update of r2507: streamlining day_end from dynamics to physics to avoid using a dynamical module in the physics. put changes in 3 interfaces: LMDZ, DYNAMICO, and WRF

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• phys_state_var_init_mod.F90 (modified) (3 diffs)
• physiq_mod.F (modified) (1 diff)
• time_phylmdz_mod.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

@@ -4 +4 @@
 
       SUBROUTINE phys_state_var_init(ngrid,nlayer,nq,tname, &
-                                     day_ini,hour_ini,pdaysec,ptimestep, &
+                                     day_ini,day_end,hour_ini,pdaysec,ptimestep, &
                                      prad,pg,pr,pcpp, &
                                      dyn_nqperes,dyn_nqfils)! MVals: variables isotopes
@@ -68 +68 @@
       INTEGER,INTENT(IN) :: ngrid,nlayer,nq
       CHARACTER(len=*),INTENT(IN) :: tname(nq)
-      INTEGER,INTENT(IN) :: day_ini
+      INTEGER,INTENT(IN) :: day_ini, day_end
       REAL,INTENT(IN) :: hour_ini
       REAL,INTENT(IN) :: pdaysec,ptimestep,prad,pg,pr,pcpp
@@ -92 +92 @@
 
       ! Initialize some "temporal and calendar" related variables
-      call init_time(day_ini,hour_ini,pdaysec,ptimestep)
+      call init_time(day_ini,day_end,hour_ini,pdaysec,ptimestep)
 
       ! allocate "slope_mod" arrays

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -86 +86 @@
       USE vertical_layers_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt
       USE mod_phys_lmdz_omp_data, ONLY: is_omp_master
+      USE time_phylmdz_mod, ONLY: day_end
 #endif
-      USE temps_mod, ONLY: day_end
 
 #ifdef CPP_XIOS      

trunk/LMDZ.MARS/libf/phymars/time_phylmdz_mod.F90

@@ -11 +11 @@
     INTEGER,SAVE :: day_ini     ! initial day of the run
 !$OMP THREADPRIVATE(day_ini)
+    INTEGER,SAVE :: day_end     ! final day of the run
+!$OMP THREADPRIVATE(day_end)
     REAL,SAVE :: hour_ini       ! start time (fraction of day) of the run
                                 ! 0=<hour_ini<1
@@ -26 +28 @@
 CONTAINS
 
-  SUBROUTINE init_time(day_ini_, hour_ini_, daysec_, dtphys_)
-    USE ioipsl_getin_p_mod, ONLY : getin_p
+  SUBROUTINE init_time(day_ini_, day_end_, hour_ini_, daysec_, dtphys_)
+
     IMPLICIT NONE
     INTEGER,INTENT(IN) :: day_ini_
+    INTEGER,INTENT(IN) :: day_end_
     REAL,INTENT(IN) :: hour_ini_
     REAL,INTENT(IN) :: daysec_
@@ -35 +38 @@
     
     day_ini=day_ini_
+    day_end=day_end_
     hour_ini=hour_ini_
     daysec=daysec_