Changeset 3322 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90

Timestamp:

May 4, 2018, 3:33:28 PM (6 years ago)

Author:

Laurent Fairhead

Message:

Continuing convergence between DYNAMICO and LMDZ new physics.
The xios stuff

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90

@@ -1201 +1201 @@
        !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
@@ -1400 +1392 @@
        ENDIF
        ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       CALL init_iophy_new(latitude_deg,longitude_deg)
+
 
        CALL phyetat0 ("startphy.nc",clesphy0,tabcntr0)
@@ -1612 +1606 @@
        !   Initialisation des sorties
        !=============================================================
+
+#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
 
 #ifdef CPP_XIOS