Changeset 3029 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Oct 18, 2017, 4:58:57 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Change of location for xios missing value definition
as the previous location did not work for the coupled model

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1200 +1200 @@
        !IM 180608
 
-#ifdef CPP_XIOS
-       ! Get "missing_val" value from XML files (from temperature variable)
-       !$OMP MASTER
-       CALL xios_get_field_attr("temp",default_value=missing_val_omp)
-       !$OMP END MASTER
-       !$OMP BARRIER
-       missing_val=missing_val_omp
-#endif
-
        itau_con=0
        first=.false.
@@ -1638 +1629 @@
            xios_field_is_active("rld4co2").OR.xios_field_is_active("rldcs4co2")) &
            ok_4xCO2atm=.TRUE. 
+! Need to put this initialisation after phyetat0 as in the coupled model the XIOS context is only
+! initialised at that moment
+       ! Get "missing_val" value from XML files (from temperature variable)
+       !$OMP MASTER
+       CALL xios_get_field_attr("temp",default_value=missing_val_omp)
+       !$OMP END MASTER
+       !$OMP BARRIER
+       missing_val=missing_val_omp
 #endif