Changeset 1450

Timestamp:

Jun 11, 2015, 12:26:20 PM (9 years ago)

Author:

emillour

Message:

Generic GCM:
OpenMP fix: only master allocates/deallocates shared saved variables.
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90

@@ -261 +261 @@
       tgasmin = tgasref(1)
       tgasmax = tgasref(L_NTREF)
+
+      IF( .NOT. ALLOCATED( gasi8 ) ) ALLOCATE( gasi8(L_NTREF,L_NPREF,L_REFVAR,L_NSPECTI,L_NGAUSS) )
+      IF( .NOT. ALLOCATED( gasv8 ) ) ALLOCATE( gasv8(L_NTREF,L_NPREF,L_REFVAR,L_NSPECTV,L_NGAUSS) )
 !$OMP END MASTER
 !$OMP BARRIER
@@ -266 +269 @@
 !-----------------------------------------------------------------------
 ! allocate the multidimensional arrays in radcommon_h
-
-      IF( .NOT. ALLOCATED( gasi8 ) ) ALLOCATE( gasi8(L_NTREF,L_NPREF,L_REFVAR,L_NSPECTI,L_NGAUSS) )
-      IF( .NOT. ALLOCATED( gasv8 ) ) ALLOCATE( gasv8(L_NTREF,L_NPREF,L_REFVAR,L_NSPECTV,L_NGAUSS) )
       IF( .NOT. ALLOCATED( gasi ) ) ALLOCATE( gasi(L_NTREF,L_PINT,L_REFVAR,L_NSPECTI,L_NGAUSS) )
       IF( .NOT. ALLOCATED( gasv ) ) ALLOCATE( gasv(L_NTREF,L_PINT,L_REFVAR,L_NSPECTV,L_NGAUSS) )