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 7485 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90 – NEMO

Ignore:
Timestamp:
2016-12-12T09:33:37+01:00 (7 years ago)
Author:
cetlod
Message:

Remove CPP key key_offline and replace it with a logical l_offline

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

    r7421 r7485  
    2424   PUBLIC   trc_oce_alloc      ! function called by nemogcm.F90 
    2525 
    26    LOGICAL , PUBLIC                                      ::   l_co2cpl = .false.   !: atmospheric pco2 recieved from oasis 
     26   LOGICAL , PUBLIC                                      ::   l_co2cpl  = .false.   !: atmospheric pco2 recieved from oasis 
     27   LOGICAL , PUBLIC                                     ::   l_offline = .false.   !: offline passive tracers flag 
    2728   INTEGER , PUBLIC                                      ::   nn_dttrc      !: frequency of step on passive tracers 
    2829   REAL(wp), PUBLIC                                      ::   r_si2         !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB) 
    … …  
    3536   !!---------------------------------------------------------------------- 
    3637   LOGICAL, PUBLIC, PARAMETER ::   lk_top     = .TRUE.   !: TOP model 
    37    LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_bio = .TRUE.   !: bio-model light absorption flag 
    3838#else 
    3939   !!---------------------------------------------------------------------- 
    … …  
    4141   !!---------------------------------------------------------------------- 
    4242   LOGICAL, PUBLIC, PARAMETER ::   lk_top     = .FALSE.   !: TOP model 
    43    LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_bio = .FALSE.   !: bio-model light absorption flag 
    44 #endif 
    45 #if defined key_offline 
    46    !!---------------------------------------------------------------------- 
    47    !!   'key_offline'                                     OFFLINE mode           
    48    !!---------------------------------------------------------------------- 
    49    LOGICAL, PUBLIC, PARAMETER ::   lk_offline = .TRUE.   !: offline flag 
    50 #else 
    51    !!---------------------------------------------------------------------- 
    52    !!   Default option                                   NO  OFFLINE mode           
    53    !!---------------------------------------------------------------------- 
    54    LOGICAL, PUBLIC, PARAMETER ::   lk_offline = .FALSE.   !: offline flag 
    55 #endif 
    56 #if defined key_degrad 
    57    !!---------------------------------------------------------------------- 
    58    !!   'key_degrad'                                     Degradation mode           
    59    !!---------------------------------------------------------------------- 
    60    LOGICAL, PUBLIC, PARAMETER ::   lk_degrad = .TRUE.   !: degradation flag 
    61 #else 
    62    !!---------------------------------------------------------------------- 
    63    !!   Default option                                   NO  Degradation mode           
    64    !!---------------------------------------------------------------------- 
    65    LOGICAL, PUBLIC, PARAMETER ::   lk_degrad = .FALSE.   !: degradation flag 
    6643#endif 
    6744   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.