Changeset 3816 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cpl_mod.F90

Timestamp:

Apr 17, 2015, 9:51:15 AM (10 years ago)

Author:

millour

Message:

Further cleanup and adaptations:

• setup iniphusiq to pass on information from dyn to phys.
• infis (now module inifi_mod) transfers the information and for now also storesthe information. Thus modules control_mod_phys, comconst_phy_mod, comgeom2_phy_mod and temps_phy_mod are now useless.
• removed q_sat_phy, and put q_sat in misc, since it is quite general.
• moved information on horizontal and vertical grid to module comgeomphy.F90

EM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cpl_mod.F90 (modified) (4 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/cpl_mod.F90

@@ -24 +24 @@
   USE oasis
   USE write_field_phy
-  USE control_phy_mod
+  !USE control_phy_mod
+  USE inifis_mod, ONLY: day_step, iphysiq
 
   
@@ -102 +103 @@
     USE surface_data
     USE indice_sol_mod
-    USE temps_phy_mod
+   ! USE temps_phy_mod
+    USE inifis_mod, ONLY: annee_ref, day_ini, itau_phy, itaufin
     INCLUDE "dimensions.h"
     INCLUDE "iniprint.h"
@@ -296 +298 @@
     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     USE indice_sol_mod
-    USE temps_phy_mod
-    
-    INCLUDE "iniprint.h"
+  !  USE temps_phy_mod
+    USE inifis_mod, ONLY: start_time, itau_phy
+    
+  !  INCLUDE "iniprint.h"
     INCLUDE "YOMCST.h"
     INCLUDE "dimensions.h"
@@ -1027 +1030 @@
     USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
     USE indice_sol_mod
-    USE temps_phy_mod
+  !  USE temps_phy_mod
+    USE inifis_mod, ONLY: start_time, itau_phy
 
 ! Some includes