New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7068 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/par_pisces.F90 – NEMO

Ignore:
Timestamp:
2016-10-21T17:38:13+02:00 (7 years ago)
Author:
cetlod
Message:

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/par_pisces.F90

    r7041 r7068  
    1313   IMPLICIT NONE 
    1414 
    15    INTEGER, PUBLIC    ::   jp_pisces   !: number of passive tracers in PISCES 
    16  
    17 #if defined key_pisces 
    18    !!--------------------------------------------------------------------- 
    19    !!   'key_pisces   :                                PISCES bio-model 
    20    !!--------------------------------------------------------------------- 
    21    LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag  
    2215   ! productive layer depth 
    23    INTEGER, PUBLIC ::   jpkb     !: first vertical layers where biology is active 
    24    INTEGER, PUBLIC ::   jpkbm1   !: first vertical layers where biology is active 
    25  
    26 #else 
    27    !!--------------------------------------------------------------------- 
    28    LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .FALSE.  !: PISCES flag  
    29 #endif 
     16   INTEGER, PUBLIC ::   jpkb       !: first vertical layers where biology is active 
     17   INTEGER, PUBLIC ::   jpkbm1     !: first vertical layers where biology is active 
    3018 
    3119   ! assign an index in trc arrays for each LOBSTER prognostic variables 
Note: See TracChangeset for help on using the changeset viewer.