Changeset 1524 for trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

Timestamp:

Mar 29, 2016, 11:45:49 AM (9 years ago)

Author:

emillour

Message:

All GCMS:
More updates to enforce dynamics/physics separation:

get rid of references to "temps_mod" from physics packages;
make a "time_phylmdz_mod.F90" module to store that
information and fill it via "iniphysiq".

EM

File:

• trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90 (moved) (moved from trunk/LMDZ.MARS/libf/phymars/phys_state_var_init.F) (4 diffs)

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

@@ -1 @@
-      SUBROUTINE phys_state_var_init(ngrid,nlayer,nq
-     .               ,pdaysec,ptimestep,prad,pg,pr,pcpp)
+MODULE phys_state_var_init_mod
+
+CONTAINS
+
+      SUBROUTINE phys_state_var_init(ngrid,nlayer,nq, &
+                                     day_ini,hour_ini,pdaysec,ptimestep, &
+                                     prad,pg,pr,pcpp)
 
 !=======================================================================
@@ -38 +43 @@
       use conc_mod, only: ini_conc_mod
       use turb_mod, only: ini_turb_mod
-      use comcstfi_h, only: pi,rad,cpp,g,r,rcp,daysec,dtphys
+      use comcstfi_h, only: pi,rad,cpp,g,r,rcp
       use tracer_mod, only: nqmx
+      use time_phylmdz_mod, only: init_time
 
       IMPLICIT NONE
       
       INTEGER,INTENT(IN) :: ngrid,nlayer,nq
+      INTEGER,INTENT(IN) :: day_ini
+      REAL,INTENT(IN) :: hour_ini
       REAL,INTENT(IN) :: pdaysec,ptimestep,prad,pg,pr,pcpp
-      EXTERNAL SSUM
-      REAL SSUM
 
       ! set dimension in tracer_mod
@@ -58 +64 @@
       r=pr
       rcp=r/cpp
-      daysec=pdaysec
-      dtphys=ptimestep
+
+      ! Initialize some "temporal and calendar" related variables
+      call init_time(day_ini,hour_ini,pdaysec,ptimestep)
 
       ! allocate "slope_mod" arrays
@@ -89 +96 @@
 
       END SUBROUTINE phys_state_var_init
+
+END MODULE phys_state_var_init_mod