Changeset 3028 for LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/physiq_mod.F90

Timestamp:

Oct 18, 2017, 4:55:22 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/branches/IPSLCM6.0.13/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/branches/IPSLCM6.0.13/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
@@ -1414 +1406 @@
 !>jyg
        ENDIF
+
+
        !IM begin
        print*,'physiq: clwcon rnebcon ratqs',clwcon(1,1),rnebcon(1,1) &
@@ -1638 +1632 @@
            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 
 
@@ -4411 +4413 @@
     !   -------------------------------------------------
     !
+
     include "calcul_STDlev.h"
     !