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 772 for branches/dev_001_GM/NEMO/TOP_SRC/CFC – NEMO

Ignore:
Timestamp:
2007-12-17T12:59:33+01:00 (17 years ago)
Author:
gm
Message:

dev_001_GM - change the name of cpp key to key_top, key_lobster, key_pisces, key_kriest and the corresponding lk_

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_001_GM/NEMO/TOP_SRC/CFC/par_cfc.F90

    r769 r772  
    2222   !!   'key_cfc'   :                                          CFC tracers 
    2323   !!--------------------------------------------------------------------- 
    24    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_cfc = .TRUE.       !: CFC flag  
    25    INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  2           !: number of passive tracers 
    26    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  1           !: additional 2d output arrays ('key_trc_diaadd') 
    27    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  1           !: additional 3d output arrays ('key_trc_diaadd') 
    28    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0           !: number of sms trends for CFC 
     24   LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .TRUE.      !: CFC flag  
     25   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  2          !: number of passive tracers 
     26   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  1          !: additional 2d output arrays ('key_trc_diaadd') 
     27   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  1          !: additional 3d output arrays ('key_trc_diaadd') 
     28   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC 
    2929    
    3030   ! assign an index in trc arrays for each CFC prognostic variables 
    31    INTEGER, PUBLIC, PARAMETER ::   jp11       = jp_lp + 1                !: CFC-11  
    32    INTEGER, PUBLIC, PARAMETER ::   jp12       = jp_lp + 2                !: CFC-12    
     31   INTEGER, PUBLIC, PARAMETER ::   jp11       = jp_lp + 1   !: CFC-11  
     32   INTEGER, PUBLIC, PARAMETER ::   jp12       = jp_lp + 2   !: CFC-12    
    3333#else 
    3434   !!--------------------------------------------------------------------- 
    3535   !!   Default     :                                       No CFC tracers 
    3636   !!--------------------------------------------------------------------- 
    37    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_cfc = .FALSE.      !: CFC flag  
    38    INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  0           !: No CFC tracers 
    39    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  0           !: No CFC additional 2d output arrays  
    40    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0           !: No CFC additional 3d output arrays  
    41    INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0           !: number of sms trends for CFC 
     37   LOGICAL, PUBLIC, PARAMETER ::   lk_cfc     = .FALSE.     !: CFC flag  
     38   INTEGER, PUBLIC, PARAMETER ::   jp_cfc     =  0          !: No CFC tracers 
     39   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_2d  =  0          !: No CFC additional 2d output arrays  
     40   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_3d  =  0          !: No CFC additional 3d output arrays  
     41   INTEGER, PUBLIC, PARAMETER ::   jp_cfc_trd =  0          !: number of sms trends for CFC 
    4242#endif 
    4343 
Note: See TracChangeset for help on using the changeset viewer.