Changeset 2511 for trunk/ICOSA_LMDZ/src/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

File:

• trunk/ICOSA_LMDZ/src/phymars/interface_icosa_lmdz.f90 (modified) (3 diffs)

trunk/ICOSA_LMDZ/src/phymars/interface_icosa_lmdz.f90

@@ -201 +201 @@
   INTEGER :: annee_ref  
   INTEGER :: day_ref    
-  INTEGER :: day_ini    
+  INTEGER :: day_ini
+  INTEGER :: day_end
+    
   REAL    :: start_time 
   REAL    :: physics_timestep    
@@ -373 +375 @@
     ndays=nint(itaumax*(dt/day_length))! number of days to run
     physics_timestep=dt*itau_physics
+    day_end=day_ini+ndays
 
 !!!    CALL inifis(klon_omp,llm,nqtot,start_day,day_length,ndays,physics_timestep, &
@@ -384 +387 @@
 !!!
    CALL phys_state_var_init(klon_omp,llm,nqtot,tname, &
-                       day_ini,hour_ini,day_length,physics_timestep, &
+                       day_ini,day_end,hour_ini,&
+                       day_length,physics_timestep, &
                        radius,g,kappa*cpp,cpp, &
                        dyn_nqperes,dyn_nqfils)