Changeset 3438 for LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90

Timestamp:

Jan 23, 2019, 11:46:38 AM (5 years ago)

Author:

Laurent Fairhead

Message:

Choosing the right ORCHIDEE interface and some XIOS stuff

File:

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

LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90

@@ -167 +167 @@
     
     IF (grid_type==unstructured) THEN
+#ifdef CPP_XIOS
       IF (is_omp_master) THEN
         ALLOCATE(tauaerstrat_mpi(klon_mpi,klev))
@@ -175 +176 @@
       ENDIF
       CALL scatter_omp(tauaerstrat_mpi,tau_aer_strat)
+#endif
     ELSE  
       CALL scatter(tauaerstrat_mois_glo,tau_aer_strat)