Changeset 3863 for dynamico_lmdz/aquaplanet/ICOSA_LMDZ/src/interface_icosa_lmdz.f90

Timestamp:

Jan 7, 2016, 9:56:13 AM (9 years ago)

Author:

ymipsl

Message:

Update for LMDZ forced configuration

YM

File:

• dynamico_lmdz/aquaplanet/ICOSA_LMDZ/src/interface_icosa_lmdz.f90 (modified) (3 diffs)

dynamico_lmdz/aquaplanet/ICOSA_LMDZ/src/interface_icosa_lmdz.f90

@@ -310 +310 @@
     CALL init_time_lmdz(annee_ref, day_ref, day_ini, start_time, ndays, physics_timestep)
 
-  ! Additional initializations for aquaplanets
-    CALL getin("iflag_phys",iflag_phys)
-    IF (iflag_phys>=100) THEN
-      CALL iniaqua(klon_omp, iflag_phys)
-    END IF
+!  Additional initializations for aquaplanets
+!    CALL getin("iflag_phys",iflag_phys)
+!    IF (iflag_phys>=100) THEN
+!      CALL iniaqua(klon_omp, iflag_phys)
+!    END IF
 
   
@@ -329 +329 @@
   USE mpipara
   USE xios_mod
+  USE wxios
   USE trace
   USE distrib_icosa_lmdz_mod, ONLY : transfer_icosa_to_lmdz, transfer_lmdz_to_icosa
@@ -488 +489 @@
     CALL transfer_icosa_to_lmdz(f_wflux  , wflux_phy)
 
+    CALL wxios_set_context()
  
     CALL physiq(klon_omp, llm, debut, lafin, dtphy, &