Changeset 8520

Timestamp:

2017-09-14T14:36:26+02:00 (7 years ago)

Author:

mocavero

Message:

Bug fix for MPI-only execution

File:

• branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfphy.F90 (modified) (2 diffs)

branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfphy.F90

@@ -50 +50 @@
 
    LOGICAL ::   l_zdfsh2   ! shear production term flag (=F for CST, =T otherwise (i.e. TKE, GLS, RIC))
-   INTEGER :: ARG_2D
 
    !! * Substitutions
@@ -223 +222 @@
 !!OMP      REAL(wp), DIMENSION(WRK_3D) ::   zsh2   ! shear production
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) ::   zsh2   ! shear production
+#if ! defined key_omp
+      INTEGER, SAVE :: ARG_2D
+#endif
       !! ---------------------------------------------------------------------
       !