Changeset 3125 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

Dec 14, 2017, 8:55:21 AM (7 years ago)

Author:

acozic

Message:

Update some routines to coupled LMDZ6 with REPROBUS

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -45 +45 @@
   USE ioipsl_getin_p_mod, ONLY: getin_p
   USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
+#ifdef REPROBUS
+  USE CHEM_REP, ONLY : Init_chem_rep_phys
+#endif
   IMPLICIT NONE
 
@@ -177 +180 @@
           rlonudyn,rlatudyn,rlonvdyn,rlatvdyn)
 #endif
+    IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+       CALL Init_chem_rep_phys(klon_omp,nbp_lev)
+#endif
+    END IF
   END IF