Changeset 3065 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phyetat0.F90

Timestamp:

Nov 10, 2017, 2:25:09 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Continuing LMDZ/DYNAMICO physiqs match-up. First step in replacing dtime in the physics

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phyetat0.F90 (modified) (3 diffs, 1 prop)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phyetat0.F90

@@ -9 +9 @@
   USE pbl_surface_mod,  ONLY : pbl_surface_init
   USE surface_data,     ONLY : type_ocean, version_ocean
-  USE phys_state_var_mod, ONLY : ancien_ok, clwcon, detr_therm, dtime, &
+  USE phys_state_var_mod, ONLY : ancien_ok, clwcon, detr_therm, phys_tstep, &
        qsol, fevap, z0m, z0h, agesno, &
        du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &
@@ -466 +466 @@
 
   IF ( type_ocean == 'slab' ) THEN
-      CALL ocean_slab_init(dtime, pctsrf)
+      CALL ocean_slab_init(phys_tstep, pctsrf)
       IF (nslay.EQ.1) THEN
         found=phyetat0_get(1,tslab,"tslab01","tslab",0.)
@@ -515 +515 @@
   ! Initialize module ocean_cpl_mod for the case of coupled ocean
   IF ( type_ocean == 'couple' ) THEN
-     CALL ocean_cpl_init(dtime, longitude_deg, latitude_deg)
+     CALL ocean_cpl_init(phys_tstep, longitude_deg, latitude_deg)
   ENDIF