Changeset 8027


Ignore:
Timestamp:
2017-05-15T18:04:37+02:00 (3 years ago)
Author:
lovato
Message:

trunk : apply bugfix for ticket #1835

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90

    r4152 r8027  
    55   !!      with a constant or 1D or 2D or 3D array, using CPP macro. 
    66   !!---------------------------------------------------------------------- 
    7 #if defined key_zdfddm 
     7#if defined key_zdfddm  && ! defined key_offline 
    88!   'key_zdfddm' :                      avs: 3D array defined in zdfddm module 
    99#   define   fsavs(i,j,k)       avs(i,j,k) 
  • trunk/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

    r7646 r8027  
    2525 
    2626   LOGICAL , PUBLIC                                      ::   l_co2cpl  = .false.   !: atmospheric pco2 recieved from oasis 
    27    LOGICAL , PUBLIC                                     ::   l_offline = .false.   !: offline passive tracers flag 
    28    INTEGER , PUBLIC                                      ::   nn_dttrc      !: frequency of step on passive tracers 
     27   LOGICAL , PUBLIC                                      ::   l_offline = .false.   !: offline passive tracers flag 
     28   INTEGER , PUBLIC                                      ::   nn_dttrc = 1     !: frequency of step on passive tracers 
    2929   REAL(wp), PUBLIC                                      ::   r_si2         !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB) 
    3030   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   etot3         !: light absortion coefficient 
Note: See TracChangeset for help on using the changeset viewer.