Changeset 3822 for dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

Timestamp:

Apr 30, 2015, 3:22:39 PM (10 years ago)

Author:

millour

Message:

A couple of bug fixes.
Now the bench (in debug mode) yields identical results in seq/mpi/omp/mpi_omp, and also identical restart files to rev 5 (ie before any modifications to LMDZ5 source files).
EM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

@@ -139 +139 @@
   ENDIF ! of IF (klon_glo>1)
 
-!$OMP PARALLEL 
+!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
   ! Now generate local lon/lat/cu/cv/area arrays
   CALL initcomgeomphy(klon_omp)