Changeset 2343 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Aug 20, 2015, 12:02:53 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Another step towards a clean separation between physics and dynamics: adapted read_pstoke.F90, read_pstoke0.F90 initphysto.F90 and phystokenc.F90 (now module phystokenc_mod.F90) to not explicitely include/use file/modules from the dynamics.
In the process, added module "time_phylmdz_mod.F90" in the physics, which contains the information otherwise found in "temps.h" (which is in the dynamics) and should be used instead.
EM

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -22 +22 @@
   USE iophy
   USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
+  USE phystokenc_mod, ONLY: offline, phystokenc
+  USE time_phylmdz_mod, only: raz_date, day_step_phy
   USE vampir
   USE pbl_surface_mod, ONLY : pbl_surface
@@ -46 +48 @@
   use radlwsw_m, only: radlwsw
   use phyaqua_mod, only: zenang_an
-  USE control_mod
+  USE control_mod, ONLY: config_inca
 #ifdef CPP_XIOS
   USE wxios, ONLY: missing_val, missing_val_omp