Changeset 8520


Ignore:
Timestamp:
2017-09-14T14:36:26+02:00 (3 years ago)
Author:
mocavero
Message:

Bug fix for MPI-only execution

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfphy.F90

    r8279 r8520  
    5050 
    5151   LOGICAL ::   l_zdfsh2   ! shear production term flag (=F for CST, =T otherwise (i.e. TKE, GLS, RIC)) 
    52    INTEGER :: ARG_2D 
    5352 
    5453   !! * Substitutions 
     
    223222!!OMP      REAL(wp), DIMENSION(WRK_3D) ::   zsh2   ! shear production 
    224223      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) ::   zsh2   ! shear production 
     224#if ! defined key_omp 
     225      INTEGER, SAVE :: ARG_2D 
     226#endif 
    225227      !! --------------------------------------------------------------------- 
    226228      !       
Note: See TracChangeset for help on using the changeset viewer.