Changeset 3322 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90
- Timestamp:
- May 4, 2018, 3:33:28 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90
r3320 r3322 1201 1201 !IM 180608 1202 1202 1203 #ifdef CPP_XIOS1204 ! Get "missing_val" value from XML files (from temperature variable)1205 !$OMP MASTER1206 CALL xios_get_field_attr("temp",default_value=missing_val_omp)1207 !$OMP END MASTER1208 !$OMP BARRIER1209 missing_val=missing_val_omp1210 #endif1211 1203 1212 1204 itau_con=0 … … 1400 1392 ENDIF 1401 1393 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1394 CALL init_iophy_new(latitude_deg,longitude_deg) 1395 1402 1396 1403 1397 CALL phyetat0 ("startphy.nc",clesphy0,tabcntr0) … … 1612 1606 ! Initialisation des sorties 1613 1607 !============================================================= 1608 1609 #ifdef CPP_XIOS 1610 ! Get "missing_val" value from XML files (from temperature variable) 1611 !$OMP MASTER 1612 CALL xios_get_field_attr("temp",default_value=missing_val_omp) 1613 !$OMP END MASTER 1614 !$OMP BARRIER 1615 missing_val=missing_val_omp 1616 #endif 1614 1617 1615 1618 #ifdef CPP_XIOS
Note: See TracChangeset
for help on using the changeset viewer.