Changeset 772


Ignore:
Timestamp:
2007-12-17T12:59:33+01:00 (13 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_

Location:
branches/dev_001_GM/NEMO/TOP_SRC
Files:
73 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 
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/par_lobster.F90

    r771 r772  
    1414   PUBLIC 
    1515 
    16 #if defined key_trc_lobster1 
     16#if defined key_lobster 
    1717   !!--------------------------------------------------------------------- 
    18    !!   'key_trc_lobster1'   :                               LOBSTER model 
     18   !!   'key_lobster'   :                                LOBSTER bio-model 
    1919   !!--------------------------------------------------------------------- 
    20    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_lobster = .TRUE.    !: LOBSTER flag  
     20   LOGICAL, PUBLIC, PARAMETER ::   lk_lobster    = .TRUE.    !: LOBSTER flag  
    2121   INTEGER, PUBLIC, PARAMETER ::   jp_lobster     =  6        !: number of LOBSTER tracers 
    2222   INTEGER, PUBLIC, PARAMETER ::   jp_lobster_2d  = 19        !: additional 2d output arrays ('key_trc_diaadd') 
     
    4040   !!   Default                                           No LOBSTER model 
    4141   !!--------------------------------------------------------------------- 
    42    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_lobster = .FALSE.   !: LOBSTER flag  
     42   LOGICAL, PUBLIC, PARAMETER ::   lk_lobster    = .FALSE.   !: LOBSTER flag  
    4343   INTEGER, PUBLIC, PARAMETER ::   jp_lobster     =  0        !: No LOBSTER tracers 
    4444   INTEGER, PUBLIC, PARAMETER ::   jp_lobster_2d  =  0        !: No LOBSTER additional 2d output arrays  
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcbio.F

    r764 r772  
    55C --------------------------------------------------------------------------- 
    66      SUBROUTINE trcbio(kt) 
    7 #if defined key_passivetrc && defined key_trc_lobster1 
     7#if defined key_top && defined key_lobster 
    88CCC--------------------------------------------------------------------- 
    99CCC 
     
    1818CCC   Three options: 
    1919CCC     Default option  : no biological trend 
    20 CCC       IF 'key_trc_lobster1' : LOBSTER1 model 
     20CCC       IF 'key_lobster' : LOBSTER1 bio-model 
    2121CCC 
    2222CC   METHOD : 
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcexp.F

    r764 r772  
    11CCC $Header$  
    22      SUBROUTINE trcexp(kt) 
    3 #if defined key_passivetrc && defined key_trc_lobster1  
     3#if defined key_top && defined key_lobster 
    44CCC--------------------------------------------------------------------- 
    55CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

    r771 r772  
    1010   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.lobster1.h90 
    1111   !!---------------------------------------------------------------------- 
    12 #if defined key_trc_lobster1 
     12#if defined key_lobster 
    1313   !!---------------------------------------------------------------------- 
    14    !!   'key_trc_lobster1'                                    LOBSTER model 
     14   !!   'key_lobster'                                     LOBSTER bio-model 
    1515   !!---------------------------------------------------------------------- 
    1616   !! trc_ini_lobster  : LOBSTER model initialisation 
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trclsm_lobster.F90

    r768 r772  
    66   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trclsm.lobster1.h90 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_trc_lobster1 
    9    !!---------------------------------------------------------------------- 
    10    !!   'key_trc_lobster1'   :                            LOBSTER bio-model 
     8#if defined key_lobster 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_lobster'   :                                 LOBSTER bio-model 
    1111   !!---------------------------------------------------------------------- 
    1212   !! trc_lsm_lobster      : LOBSTER model namelist read 
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcopt.F

    r764 r772  
    8383      INTEGER kt 
    8484 
    85 #if defined key_passivetrc && defined key_trc_lobster1 
     85#if defined key_top && defined key_lobster 
    8686C 
    8787      INTEGER ji,jj,jk,jn,in 
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcsed.F

    r764 r772  
    8282      INTEGER kt 
    8383 
    84 #if defined key_passivetrc && defined key_trc_lobster1 
     84#if defined key_top && defined key_lobster 
    8585 
    8686      INTEGER ji,jj,jk 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/par_pisces.F90

    r771 r772  
    1717   INTEGER, PUBLIC, PARAMETER ::   jp_l  = jp_lobster      !: cumulative number of already defined TRC 
    1818 
    19 #if defined key_trc_pisces  &&  defined key_trc_kriest 
     19#if defined key_pisces  &&  defined key_kriest 
    2020   !!--------------------------------------------------------------------- 
    21    !!   'key_trc_pisces' & 'key_trc_kriest'         PISCES bio-model + ??? 
     21   !!   'key_pisces' & 'key_kriest'                 PISCES bio-model + ??? 
    2222   !!--------------------------------------------------------------------- 
    23    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_pisces = .TRUE.  !: PISCES flag  
    24    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_kriest = .TRUE.  !: Kriest flag  
     23   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces    = .TRUE.  !: PISCES flag  
     24   LOGICAL, PUBLIC, PARAMETER ::   lk_kriest    = .TRUE.  !: Kriest flag  
    2525   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     =  23     !: number of passive tracers 
    2626   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_2d  =  13     !: additional 2d output ('key_trc_diaadd') 
     
    5555   INTEGER, PUBLIC, PARAMETER ::   jpnh4 = jp_l + 23    !: Ammonium Concentration 
    5656 
    57 #elif defined key_trc_pisces 
     57#elif defined key_pisces 
    5858   !!--------------------------------------------------------------------- 
    59    !!   'key_trc_pisces'   :                     standard PISCES bio-model 
     59   !!   'key_pisces'   :                         standard PISCES bio-model 
    6060   !!--------------------------------------------------------------------- 
    61    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_pisces = .TRUE.  !: PISCES flag  
    62    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_kriest = .FALSE. !: Kriest flag  
     61   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces    = .TRUE.  !: PISCES flag  
     62   LOGICAL, PUBLIC, PARAMETER ::   lk_kriest    = .FALSE. !: Kriest flag  
    6363   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     = 24      !: number of PISCES passive tracers 
    6464   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_2d  = 13      !: additional 2d output ('key_trc_diaadd') 
     
    9898   !!   Default                                   No CFC geochemical model 
    9999   !!--------------------------------------------------------------------- 
    100    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_pisces = .FALSE.  !: CFC flag  
    101    LOGICAL, PUBLIC, PARAMETER ::   lk_trc_kriest = .FALSE.  !: Kriest flag  
     100   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces    = .FALSE.  !: CFC flag  
     101   LOGICAL, PUBLIC, PARAMETER ::   lk_kriest    = .FALSE.  !: Kriest flag  
    102102   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     =  0       !: No CFC tracers 
    103103   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_2d  =  0       !: No CFC additional 2d output arrays  
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/sms_pisces.h90

    r764 r772  
    138138   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   onitr, denitr, ironsed         !: ??? 
    139139 
    140 #if defined key_trc_kriest 
     140#if defined key_kriest 
    141141   !!--------------------------------------------------------- 
    142142   !!  Kriest parameter for aggregation 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcctl.pisces.h90

    r764 r772  
    1717   ! Check number of tracers 
    1818   ! ----------------------- 
    19 #if  defined key_trc_kriest 
     19#if  defined key_kriest 
    2020      IF( jptra /= 23) THEN  
    2121#else 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r771 r772  
    1010   !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.pisces.h90 
    1111   !!---------------------------------------------------------------------- 
    12 #if defined key_trc_pisces 
    13    !!---------------------------------------------------------------------- 
    14    !!   'key_trc_pisces'                                   PISCES bio-model 
     12#if defined key_pisces 
     13   !!---------------------------------------------------------------------- 
     14   !!   'key_pisces'                                       PISCES bio-model 
    1515   !!---------------------------------------------------------------------- 
    1616   !! trc_ini_pisces   : PISCES biochemical model initialisation 
     
    5454      INTEGER :: numlight  
    5555 
    56 #if defined key_trc_kriest 
     56#if defined key_kriest 
    5757      INTEGER  ::   jn, kiter 
    5858      REAL(wp) ::   znum, zdiv 
     
    201201 
    202202 
    203 #if defined key_trc_kriest 
     203#if defined key_kriest 
    204204      !!--------------------------------------------------------------------- 
    205       !!    'key_trc_kriest'                                              ??? 
     205      !!    'key_kriest'                                                  ??? 
    206206      !!--------------------------------------------------------------------- 
    207207      !  COMPUTATION OF THE VERTICAL PROFILE OF MAXIMUM SINKING SPEED 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

    r768 r772  
    88   !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trclsm.pisces.h90 
    99   !!---------------------------------------------------------------------- 
    10 #if defined key_trc_pisces 
    11    !!---------------------------------------------------------------------- 
    12    !!   'key_trc_pisces'   :                               PISCES bio-model 
     10#if defined key_pisces 
     11   !!---------------------------------------------------------------------- 
     12   !!   'key_pisces'   :                                   PISCES bio-model 
    1313   !!---------------------------------------------------------------------- 
    1414   !! trc_lsm_pisces       : PISCES model namelist read 
     
    4040      !! ** input   :   file 'namelist.trc.sms' containing the following 
    4141      !!             namelist: natext, natbio, natsms 
    42       !!                       natkriest ("key_trc_kriest") 
     42      !!                       natkriest ("key_kriest") 
    4343      !!---------------------------------------------------------------------- 
    4444      CHARACTER (len=32) ::   clname 
     
    5757         &             chlcnm,chlcdm, sedfeinput 
    5858      NAMELIST/natsms/bdustfer, briver, bndepo, bsedinput 
    59 #if defined key_trc_kriest 
     59#if defined key_kriest 
    6060      NAMELIST/natkriest/ xkr_eta  , xkr_zeta , xkr_sfact, xkr_mass_min, xkr_mass_max,   & 
    6161         &                xkr_dnano, xkr_ddiat, xkr_dmeso, xkr_daggr   , xkr_stick 
     
    170170      ENDIF 
    171171 
    172 #if defined key_trc_kriest 
     172#if defined key_kriest 
    173173 
    174174      !                               ! natkriest : kriest parameters 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zbio.F

    r719 r772  
    66      SUBROUTINE p4zbio 
    77CDIR$ LIST 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC   ------------------------------------------------------------------ 
    1010CCC    
     
    4545      REAL prodca,ztemp 
    4646 
    47 #if ! defined key_trc_kriest 
     47#if ! defined key_kriest 
    4848      REAL zdenom2(jpi,jpj,jpk) 
    4949#else 
     
    7373         DO jj=1,jpj 
    7474           DO ji=1,jpi 
    75 #if ! defined key_trc_kriest 
     75#if ! defined key_kriest 
    7676         zdenom=1./(trn(ji,jj,jk,jppoc)+trn(ji,jj,jk,jpgoc) 
    7777     $     +trn(ji,jj,jk,jpdsi)+trn(ji,jj,jk,jpcal)+rtrn) 
     
    273273 
    274274 
    275 #if defined key_trc_kriest 
     275#if defined key_kriest 
    276276 
    277277#include "p4zbio.kriest.h" 
     
    426426          trc3d(:,:,:,9)=prorca3(:,:,:)*znegtr(:,:,:)*1e3*rfact2r 
    427427          trc3d(:,:,:,10)=prorca4(:,:,:)*znegtr(:,:,:)*1e3*rfact2r 
    428 #if ! defined key_trc_kriest 
     428#if ! defined key_kriest 
    429429          trc3d(:,:,:,11)=prorca5(:,:,:)*znegtr(:,:,:)*1e3*rfact2r 
    430430#else 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zche.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zche 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zday.F

    r719 r772  
    55CDIR$ LIST 
    66      SUBROUTINE p4zday 
    7 #if defined key_passivetrc && defined key_trc_pisces 
     7#if defined key_top && defined key_pisces 
    88CCC--------------------------------------------------------------------- 
    99CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zdiat.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zdiat 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zflx.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zflx 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zint.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zint(kt) 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zlim.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zlim 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zlys.F

    r719 r772  
    66CDIR$ LIST 
    77       SUBROUTINE p4zlys 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zmeso.F

    r726 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zmeso 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
     
    146146C    ---------------------------------- 
    147147C 
    148 #if ! defined key_trc_kriest 
     148#if ! defined key_kriest 
    149149        grazffe(ji,jj,jk) = 5E3*zstep*wsbio4(ji,jj,jk) 
    150150     &    *tgfunc2(ji,jj,jk)*trn(ji,jj,jk,jpgoc)*trn(ji,jj,jk,jpmes) 
     
    190190     &    +grazn(ji,jj,jk)+grazpoc(ji,jj,jk)+grazffe(ji,jj,jk)) 
    191191     &    *(1.-epsher2-unass2) 
    192 #if ! defined key_trc_kriest 
     192#if ! defined key_kriest 
    193193        grafer2(ji,jj,jk)=(grazf(ji,jj,jk)+graznf(ji,jj,jk) 
    194194     &    +grazz(ji,jj,jk)*ferat3+grazpof(ji,jj,jk) 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zmicro.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zmicro 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4znano.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4znano 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zopt.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zopt 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zprg.F

    r719 r772  
    5555 
    5656      INTEGER kt 
    57 #if defined key_passivetrc && defined key_trc_pisces 
     57#if defined key_top && defined key_pisces 
    5858      INTEGER jnt, jn 
    5959 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zprod.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zprod 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zrem.F

    r725 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zrem 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
     
    181181         orem(ji,jj,jk)=remip*trn(ji,jj,jk,jppoc) 
    182182         ofer(ji,jj,jk)=remip*trn(ji,jj,jk,jpsfe) 
    183 #if ! defined key_trc_kriest 
     183#if ! defined key_kriest 
    184184         orem2(ji,jj,jk)=remip*trn(ji,jj,jk,jpgoc) 
    185185         ofer2(ji,jj,jk)=remip*trn(ji,jj,jk,jpbfe) 
     
    231231     &     +4.*trn(ji,jj,jk,jpfer)*xkeq))/(2.*xkeq) 
    232232 
    233 #if ! defined key_trc_kriest 
     233#if ! defined key_kriest 
    234234         xlam1b=3E-5+xlam1*(trn(ji,jj,jk,jppoc) 
    235235     &     +trn(ji,jj,jk,jpgoc)+trn(ji,jj,jk,jpcal)+ 
     
    251251         zlamfac=max(0.,(gphit(ji,jj)+55.)/30.) 
    252252         zlamfac=min(1.,zlamfac) 
    253 #if ! defined key_trc_kriest 
     253#if ! defined key_kriest 
    254254         xlam1b=(80.*(trn(ji,jj,jk,jpdoc)+35E-6)+698. 
    255255     &    *trn(ji,jj,jk,jppoc)+1.05E4*trn(ji,jj,jk,jpgoc)) 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zsed.F

    r728 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zsed 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
     
    145145            zfact=e1t(ji,jj)*e2t(ji,jj)/rjjss*tmask_i(ji,jj) 
    146146            sumsedsi=sumsedsi+zfact*trn(ji,jj,ikt,jpdsi) 
    147 #if ! defined key_trc_kriest 
     147#if ! defined key_kriest 
    148148     &               *wsbio4(ji,jj,ikt)  
    149149#else 
     
    152152            sumsedcal=sumsedcal+trn(ji,jj,ikt,jpcal)*wscal(ji,jj,ikt) 
    153153     &          *2.*zfact 
    154 #if  defined key_trc_kriest 
     154#if  defined key_kriest 
    155155            sumsedpo4=sumsedpo4+ 
    156156     &          (trn(ji,jj,ikt,jppoc)*wsbio3(ji,jj,ikt))*zfact 
     
    178178            ikt=max(mbathy(ji,jj)-1,1) 
    179179            xconctmp=trn(ji,jj,ikt,jpdsi)*zstep/fse3t(ji,jj,ikt) 
    180 #if ! defined key_trc_kriest 
     180#if ! defined key_kriest 
    181181     &               *wsbio4(ji,jj,ikt)  
    182182#else 
     
    205205          DO ji=1,jpi 
    206206            ikt=max(mbathy(ji,jj)-1,1) 
    207 #if ! defined key_trc_kriest 
     207#if ! defined key_kriest 
    208208            xconctmp=trn(ji,jj,ikt,jpgoc) 
    209209            xconctmp2=trn(ji,jj,ikt,jppoc) 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zsink.F

    r719 r772  
    11      SUBROUTINE p4zsink 
    2 #if defined key_passivetrc && defined key_trc_pisces 
     2#if defined key_top && defined key_pisces 
    33CCC--------------------------------------------------------------------- 
    44CCC 
     
    3737#include "domzgr_substitute.h90" 
    3838 
    39 #if defined key_trc_kriest 
     39#if defined key_kriest 
    4040 
    4141# include "p4zsink.kriest.h" 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zsink2.F

    r719 r772  
    66      SUBROUTINE p4zsink2(wstmp,sinktemp,jn) 
    77CDIR$ LIST 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99!!! 
    1010!!!       p4zsink2 : PISCES model 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zslow.F

    r719 r772  
    66CDIR$ LIST 
    77      SUBROUTINE p4zslow(kt) 
    8 #if defined key_passivetrc && defined key_trc_pisces 
     8#if defined key_top && defined key_pisces 
    99CCC--------------------------------------------------------------------- 
    1010CCC 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_cen2.F90

    r719 r772  
    11MODULE trcadv_cen2 
    2    !!============================================================================== 
     2   !!====================================================================== 
    33   !!                       ***  MODULE  trcadv_cen2  *** 
    44   !! Ocean passive tracers:  horizontal & vertical advective tracer trend 
    5    !!============================================================================== 
    6 #if defined key_passivetrc 
     5   !!====================================================================== 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_adv_cen2 : update the tracer trend with the horizontal 
     
    1012   !!                  centered finite difference scheme 
    1113   !!---------------------------------------------------------------------- 
    12    !! * Modules used 
    1314   USE oce_trc             ! ocean dynamics and active tracers variables 
    1415   USE trc                 ! ocean passive tracers variables 
     
    1920   PRIVATE 
    2021 
    21    !! * Accessibility 
    2222   PUBLIC trc_adv_cen2    ! routine called by trcstp.F90 
    2323 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

    r724 r772  
    44   !! Ocean passive tracers:  horizontal & vertical advective trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_adv_muscl : update the tracer trend with the horizontal 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90

    r719 r772  
    44   !! Ocean passive tracers:  horizontal & vertical advective trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   tra_adv_muscl2 : update the tracer trend with the horizontal 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_smolar.F90

    r719 r772  
    44   !! Ocean passive tracers:  horizontal & vertical advective trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_adv_smolar : update the passive tracer trend with the horizontal 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

    r719 r772  
    44   !! Ocean passive tracers:  horizontal & vertical advective trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_adv_tvd  : update the passive tracer trend with the horizontal 
     
    1113   !!                  algorithm  
    1214   !!---------------------------------------------------------------------- 
    13    !! * Modules used 
    1415   USE oce_trc             ! ocean dynamics and active tracers variables 
    1516   USE trc                 ! ocean passive tracers variables 
     
    325326      !!        !  00-02  (H. Loukos)  rewritting for opa8 
    326327      !!        !  00-10  (M.A Foujols, E. Kestenare)  lateral b.c. 
    327       !!        !  01-03  (E. Kestenare)  add key_passivetrc 
    328328      !!        !  01-07  (E. Durand G. Madec)  adapted for T & S 
    329329      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcbbc.F90

    r719 r772  
    11MODULE trcbbc 
    2    !!============================================================================== 
     2   !!====================================================================== 
    33   !!                       ***  MODULE  trcbbc  *** 
    44   !! Ocean passive tracers:  bottom boundary condition 
    5    !!============================================================================== 
    6 #if   defined key_passivetrc && defined key_trcbbc 
    7    !!---------------------------------------------------------------------- 
    8    !!   'key_trcbbc'                                  geothermal heat flux 
     5   !!====================================================================== 
     6#if  defined key_top  && defined key_trcbbc 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top' and 'key_trcbbc'       TOP model and geothermal heat flux 
    99   !!---------------------------------------------------------------------- 
    1010   !!   trc_bbc      : update the tracer trend at ocean bottom  
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r719 r772  
    55   !!                                  layer scheme 
    66   !!============================================================================== 
    7 #if  defined key_passivetrc && ( defined key_trcbbl_dif   ||   defined key_trcbbl_adv ) && ! defined key_cfg_1d 
    8    !!---------------------------------------------------------------------- 
    9    !!   'key_trcbbl_dif'   or            diffusive bottom boundary layer 
    10    !!   'key_trcbbl_adv'                 advective bottom boundary layer 
     7#if  defined key_top && ( defined key_trcbbl_dif   ||   defined key_trcbbl_adv ) && ! defined key_cfg_1d 
     8   !!---------------------------------------------------------------------- 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_top'         and                                    TOP models 
     11   !!   'key_trcbbl_dif'   or               diffusive bottom boundary layer 
     12   !!   'key_trcbbl_adv'                    advective bottom boundary layer 
    1113   !!---------------------------------------------------------------------- 
    1214   !!   trc_bbl_dif  : update the passive tracer trends due to the bottom 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r724 r772  
    44   !! Ocean physics: internal restoring trend on passive tracers 
    55   !!====================================================================== 
    6 #if  defined key_passivetrc && defined key_trcdmp  
     6#if  defined key_top  && defined key_trcdmp  
    77   !!---------------------------------------------------------------------- 
    8    !!   key_trcdmp                                         internal damping 
     8   !!   'key_top'                                                TOP models 
     9   !!   'key_trcdmp'                                       internal damping 
    910   !!---------------------------------------------------------------------- 
    1011   !!   trc_dmp      : update the tracer trend with the internal damping 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_bilap.F90

    r724 r772  
    22   !!============================================================================== 
    33   !!                   ***  MODULE  trcldf_bilap  *** 
    4    !! Ocean passive tracers:  horizontal component of the lateral tracer mixing trend 
     4   !! TOP :  horizontal component of the lateral tracer mixing trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_ldf_bilap : update the tracer trend with the horizontal diffusion 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_bilapg.F90

    r719 r772  
    44   !! Ocean passive tracers:  horizontal component of the lateral tracer mixing trend 
    55   !!============================================================================== 
    6 #if key_passivetrc && defined key_ldfslp 
    7    !!---------------------------------------------------------------------- 
     6#if defined key_top && defined key_ldfslp 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'        and                                     TOP models 
    89   !!   'key_ldfslp'                  rotation of the lateral mixing tensor 
    910   !!---------------------------------------------------------------------- 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_iso.F90

    r724 r772  
    44   !! Ocean passive tracers:  horizontal component of the lateral tracer mixing trend 
    55   !!============================================================================== 
    6 #if key_passivetrc && defined key_ldfslp  
    7    !!---------------------------------------------------------------------- 
     6#if defined key_top && defined key_ldfslp  
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'          and                                   TOP models 
    89   !!   'key_ldfslp'                  rotation of the lateral mixing tensor 
    910   !!---------------------------------------------------------------------- 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90

    r724 r772  
    44   !! Ocean passive tracers:  horizontal component of the lateral tracer mixing trend 
    55   !!============================================================================== 
    6 #if key_passivetrc &&  defined key_ldfslp  
    7    !!---------------------------------------------------------------------- 
     6#if defined key_top &&  defined key_ldfslp  
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'          and                                   TOP models 
    89   !!   'key_ldfslp'               slope of the lateral diffusive direction 
    910   !!---------------------------------------------------------------------- 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_lap.F90

    r719 r772  
    44   !! Ocean passive tracers:  horizontal component of the lateral tracer mixing trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_ldf_lap  : update the tracer trend with the horizontal diffusion 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r719 r772  
    44   !! Ocean passive tracers:  time stepping on passives tracers 
    55   !!====================================================================== 
    6 #if defined key_passivetrc    
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_nxt     : time stepping on passive tracers 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcrad.F90

    r771 r772  
    77   !!            1.0  !  04-03  (C. Ethe)  free form F90 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_passivetrc 
     9#if defined key_top 
    1010   !!---------------------------------------------------------------------- 
    11    !!   'key_passivetrc'                                    Passive tracers 
     11   !!   'key_top'                                                TOP models 
    1212   !!---------------------------------------------------------------------- 
    1313   !!   trc_rad    : correction of negative concentrations 
     
    2727   !!---------------------------------------------------------------------- 
    2828   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    29    !! $Id:$  
     29   !! $Id$  
    3030   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    3131   !!---------------------------------------------------------------------- 
     
    6262      ENDIF 
    6363 
    64       IF( lk_trc_cfc ) THEN                             ! CFC model 
     64      IF( lk_cfc ) THEN                         ! CFC model 
    6565         DO jn = 1, jptra 
    6666            DO jk = 1, jpkm1 
     
    7575      ENDIF  
    7676 
    77       IF( lk_trc_pisces .OR. lk_trc_lobster ) THEN      ! PISCES or LOBSTER bio-model 
     77      IF( lk_pisces .OR. lk_lobster ) THEN      ! PISCES or LOBSTER bio-model 
    7878         DO jn = 1, jptra 
    7979            ztrcorb = 0.e0 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r724 r772  
    44   !! Ocean passive tracers:  surface boundary condition 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_sbc      : update the tracer trend at ocean surface 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp.F90

    r771 r772  
    66   !! History :   1.0  !  2004-03 (C. Ethe) Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_passivetrc 
     8#if defined key_top 
    99   !!---------------------------------------------------------------------- 
    10    !!   'key_passivetrc'                                         TOP models 
     10   !!   'key_top'                                                TOP models 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   trc_trp        : passive tracer transport 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp_ctl.F90

    r771 r772  
    66   !! History :   1.0  !  2004-03 (C. Ethe) Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_passivetrc 
    9    !!---------------------------------------------------------------------- 
    10    !!   'key_passivetrc'                                         TOP models 
     8#if defined key_top 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_top'                                                TOP models 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   trc_trp_ctl  : control the different options of transport 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp_lec.F90

    r771 r772  
    77   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_passivetrc 
     9#if defined key_top 
    1010   !!---------------------------------------------------------------------- 
    11    !!   'key_passivetrc'                                         TOP models 
     11   !!   'key_top'                                                TOP models 
    1212   !!---------------------------------------------------------------------- 
    1313   !!   trc_trp_lec  : read the passive tracer namelist for transport 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_exp.F90

    r719 r772  
    55   !!                        an explicit time-stepping (time spllitting scheme) 
    66   !!============================================================================== 
    7 #if defined key_passivetrc 
     7#if defined key_top 
     8   !!---------------------------------------------------------------------- 
     9   !!   'key_top'                                                TOP models 
    810   !!---------------------------------------------------------------------- 
    911   !!   trc_zdf_exp  : update the tracer trend with the vertical diffusion 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_imp.F90

    r719 r772  
    44   !! Ocean passive tracers:  vertical component of the tracer mixing trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc 
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!   trc_zdf_imp  : update the tracer trend with the vertical diffusion 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_iso.F90

    r724 r772  
    44   !! Ocean passive tracers:  vertical component of the tracer mixing trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc && ( defined key_ldfslp   ||   defined key_esopa ) 
    7    !!---------------------------------------------------------------------- 
     6#if defined key_top  &&  ( defined key_ldfslp   ||   defined key_esopa ) 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'       and                                      TOP models 
    89   !!   'key_ldfslp'                  rotation of the lateral mixing tensor 
    910   !!---------------------------------------------------------------------- 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

    r724 r772  
    44   !! Ocean passive tracers:  vertical component of the tracer mixing trend 
    55   !!============================================================================== 
    6 #if defined key_passivetrc && ( defined key_ldfslp   ||   defined key_esopa ) 
    7    !!---------------------------------------------------------------------- 
     6#if defined key_top  &&  ( defined key_ldfslp   ||   defined key_esopa ) 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'      and                                       TOP models 
    89   !!   'key_ldfslp'                  rotation of the lateral mixing tensor 
    910   !!---------------------------------------------------------------------- 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/zpshde_trc.F90

    r719 r772  
    44   !! Ocean passive tracers:  
    55   !!============================================================================== 
    6 #if defined key_passivetrc  
     6#if defined key_top 
     7   !!---------------------------------------------------------------------- 
     8   !!   'key_top'                                                TOP models 
    79   !!---------------------------------------------------------------------- 
    810   !!                  z-coordinate with partial steps 
  • branches/dev_001_GM/NEMO/TOP_SRC/initrc.F90

    r763 r772  
    77   !!             1.0  !  2005-03 (O. Aumont, A. El Moussaoui) F90 
    88   !!              -   !  2005-10 (C. Ethe) print control 
     9   !!             2.0  !  2005-10 (C. Ethe, G. Madec) revised architecture 
    910   !!---------------------------------------------------------------------- 
    10 #if defined key_passivetrc 
     11#if defined key_top 
    1112   !!---------------------------------------------------------------------- 
    12    !!   'key_passivetrc'                                    Passive tracers 
     13   !!   'key_top'                                                TOP models 
    1314   !!---------------------------------------------------------------------- 
    1415   !!   ini_trc    :  initialisation of passive tracers 
     
    3233   !!---------------------------------------------------------------------- 
    3334   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    34    !! $Id:$  
     35   !! $Id$  
    3536   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    3637   !!---------------------------------------------------------------------- 
  • branches/dev_001_GM/NEMO/TOP_SRC/oce_trc.F90

    r770 r772  
    1111   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1212   !!---------------------------------------------------------------------- 
    13 #if defined key_passivetrc 
    14    !!---------------------------------------------------------------------- 
    15    !!   'key_passivetrc'                                          TOP model 
     13#if defined key_top 
     14   !!---------------------------------------------------------------------- 
     15   !!   'key_top'                                                TOP models 
    1616   !!---------------------------------------------------------------------- 
    1717 
  • branches/dev_001_GM/NEMO/TOP_SRC/prtctl_trc.F90

    r765 r772  
    77   !!             1.0  !  2005-10  (C. Ethe     ) adapted to passive tracer 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_passivetrc 
    10    !!---------------------------------------------------------------------- 
    11    !!   'key_passivetrc'                                    Passive tracers 
     9#if defined key_top 
     10   !!---------------------------------------------------------------------- 
     11   !!   'key_top'                                                TOP models 
    1212   !!---------------------------------------------------------------------- 
    1313   !!   prt_ctl_trc      :   control print in mpp for passive tracers 
  • branches/dev_001_GM/NEMO/TOP_SRC/sms.F90

    r765 r772  
    66   !! History :    -   !  2004-03  (C. Ethe)  Free form and module 
    77   !!---------------------------------------------------------------------- 
    8    !!---------------------------------------------------------------------- 
    98   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    109   !! $Header:$  
    1110   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1211   !!---------------------------------------------------------------------- 
    13 #if defined key_passivetrc 
     12#if defined key_top 
    1413   !!---------------------------------------------------------------------- 
    15    !!   'key_passivetrc'                                    Passive tracers 
     14   !!   'key_top'                                                TOP models 
    1615   !!---------------------------------------------------------------------- 
    1716   USE par_oce 
     
    2120   PUBLIC 
    2221 
    23 # if defined key_trc_lobster1 
     22# if defined key_lobster 
    2423   !!---------------------------------------------------------------------- 
    25    !!   'key_trc_lobster1'                        LOBSTER1 biological model   
     24   !!   'key_lobster'                                     LOBSTER bio-model   
    2625   !!---------------------------------------------------------------------- 
    2726#  include "sms_lobster1.h90" 
    2827 
    29 # elif defined key_trc_pisces 
     28# elif defined key_pisces 
    3029   !!---------------------------------------------------------------------- 
    31    !!   'key_trc_pisces'                            PISCES biological model                   
     30   !!   'key_pisces'                                       PISCES bio-model                   
    3231   !!---------------------------------------------------------------------- 
    3332#  include "sms_pisces.h90" 
  • branches/dev_001_GM/NEMO/TOP_SRC/trc.F90

    r768 r772  
    1313   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1414   !!---------------------------------------------------------------------- 
    15 # if defined key_passivetrc 
     15#if defined key_top 
    1616   !!---------------------------------------------------------------------- 
    17    !!   'key_passivetrc'   :                                Passive tracers 
     17   !!   'key_top'                                                TOP models 
    1818   !!---------------------------------------------------------------------- 
    1919   USE par_oce 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcctl.F90

    r763 r772  
    66   !! History :   1.0  !  2005-03 (O. Aumont, A. El Moussaoui) original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_passivetrc 
     8#if defined key_top 
    99   !!---------------------------------------------------------------------- 
    10    !!   'key_passivetrc'                                    Passive tracers 
     10   !!   'key_top'                                                TOP models 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   trc_ctl    : control the cpp options, files and namelist values 
     
    8181      IF(lwp) WRITE(numout,*) '  ' 
    8282 
    83 # if defined key_trc_lobster1 
     83# if defined key_lobster 
    8484#   include "trcctl.lobster1.h90" 
    85 # elif defined key_trc_pisces 
     85# elif defined key_pisces 
    8686#   include "trcctl.pisces.h90" 
    8787# elif defined key_cfc 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcdia.F90

    r763 r772  
    66   !! History :   1.0  !  2005-03 (O. Aumont, A. El Moussaoui) original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_passivetrc 
     8#if defined key_top 
    99   !!---------------------------------------------------------------------- 
    10    !!   'key_passivetrc'                                    Passive tracers 
     10   !!   'key_top'                                                TOP models 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   trc_dia    :  output passive tracer fields 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90

    r771 r772  
    1111   !!             1.0  !  2005-03 (O. Aumont, A. El Moussaoui) F90 
    1212   !!---------------------------------------------------------------------- 
    13 #if defined key_passivetrc 
     13#if defined key_top 
    1414   !!---------------------------------------------------------------------- 
    15    !!   'key_passivetrc'                                    Passive tracers 
     15   !!   'key_top'                                                TOP models 
    1616   !!---------------------------------------------------------------------- 
    1717   !! trcdit_wr   : 
     
    441441# endif 
    442442 
    443 #    if defined key_passivetrc && defined key_trc_diaadd 
     443#    if defined key_top && defined key_trc_diaadd 
    444444 
    445445   SUBROUTINE trcdii_wr( kt, kindic ) 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcdta.F90

    r765 r772  
    88   !!              -   !  2005-03  (O. Aumont, A. El Moussaoui) F90 
    99   !!---------------------------------------------------------------------- 
    10 #if  defined key_passivetrc  &&  defined key_dtatrc 
    11    !!---------------------------------------------------------------------- 
    12    !!   'key_passivetrc'  and  'key_dtatrc'          3D passive tracer data 
     10#if  defined key_top  &&  defined key_dtatrc 
     11   !!---------------------------------------------------------------------- 
     12   !!   'key_top'  and  'key_dtatrc'        TOP model + passive tracer data 
    1313   !!---------------------------------------------------------------------- 
    1414   !!   dta_trc      : read ocean passive tracer data 
     
    9494               IF(lwp) WRITE(numout,*) ' trc_dta : Levitus tracer data monthly fields' 
    9595               ! open file  
    96 # if defined key_trc_pisces 
     96# if defined key_pisces 
    9797               clname(jn) = 'LEVITUS_'//ctrcnm(jn) 
    9898# else 
     
    103103            ENDIF 
    104104 
    105 # if defined key_trc_pisces 
     105# if defined key_pisces 
    106106            ! Read montly file 
    107107            IF( ( kt == nittrc000 .AND. nlectr(jn) == 0)  .OR. imois /= ntrc1(jn) ) THEN 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcdtr.F90

    r763 r772  
    88   !!             1.0  !  2005-12  (O. Aumont, A. El Moussaoui) F90 
    99   !!---------------------------------------------------------------------- 
    10 #if defined key_passivetrc 
    11    !!---------------------------------------------------------------------- 
    12    !!   'key_passivetrc'                                    Passive tracers 
     10#if defined key_top 
     11   !!---------------------------------------------------------------------- 
     12   !!   'key_top'                                                TOP models 
    1313   !!---------------------------------------------------------------------- 
    1414   !!   trc_dtr    :  computes or READ initial DATA for passive tracer 
     
    4242      !!--------------------------------------------------------------------- 
    4343      INTEGER :: ji,jj,jk,jn  
    44 #if defined key_trc_pisces 
     44#if defined key_pisces 
    4545      REAL(wp) ::   alka0, oxyg0, calc0, bioma0 
    4646      REAL(wp) ::   silic1, po4, no3, caralk, bicarb, co3 
     
    5656      trn(:,:,:,:) = 0.e0 
    5757       
    58 #elif defined key_trc_pisces 
     58#elif defined key_pisces 
    5959      ! PISCES initialisation 
    6060      ! --------------------- 
     
    7575      trn(:,:,:,jppo4) = po4 
    7676      trn(:,:,:,jppoc) = bioma0 
    77 #if ! defined key_trc_kriest 
     77#if ! defined key_kriest 
    7878      trn(:,:,:,jpgoc) = bioma0 
    7979      trn(:,:,:,jpbfe) = bioma0 * 5.e-6 
     
    119119      IF(lwp) WRITE(numout,*) ' ' 
    120120 
    121 #elif defined key_trc_lobster1 && ( defined key_eel_r6 || defined key_eel_r2 ) 
     121#elif defined key_lobster && ( defined key_eel_r6 || defined key_eel_r2 ) 
    122122      ! LOBSTER initialisation for EEL 
    123123      ! ---------------------- 
     
    195195      trn(:,:,30,jpno3) = 20.01 * tmask(:,:,30) 
    196196 
    197 #elif defined key_trc_lobster1 && defined key_gyre 
     197#elif defined key_lobster && defined key_gyre 
    198198      ! LOBSTER initialisation for GYRE 
    199199      ! ---------------------- 
     
    237237      trb(:,:,:,:) = trn(:,:,:,:) 
    238238 
    239 #if defined key_trc_lobster1 
     239#if defined key_lobster 
    240240      !  initialize the POC in sediments 
    241241      sedpocb(:,:) = 0.e0 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90

    r768 r772  
    4545      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    4646      ! 
    47       IF( lk_trc_lobster ) THEN   ;   CALL trc_ini_lobster      ! LOBSTER bio-model 
    48       ELSE                        ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used' 
     47      IF( lk_lobster ) THEN   ;   CALL trc_ini_lobster      ! LOBSTER bio-model 
     48      ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used' 
    4949      ENDIF 
    5050 
    51       IF( lk_trc_pisces  ) THEN   ;   CALL trc_ini_pisces       ! PISCES  bio-model 
    52       ELSE                        ;   IF(lwp) WRITE(numout,*) '          PISCES not used' 
     51      IF( lk_pisces  ) THEN   ;   CALL trc_ini_pisces       ! PISCES  bio-model 
     52      ELSE                    ;   IF(lwp) WRITE(numout,*) '          PISCES not used' 
    5353      ENDIF 
    5454 
    55       IF( lk_trc_cfc     ) THEN   ;   CALL trc_ini_cfc          ! CFC     tracers 
    56       ELSE                        ;   IF(lwp) WRITE(numout,*) '          CFC not used' 
     55      IF( lk_cfc     ) THEN   ;   CALL trc_ini_cfc          ! CFC     tracers 
     56      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used' 
    5757      ENDIF 
    5858 
    59       IF( lk_my_trc      ) THEN   ;   CALL trc_ini_my_trc       ! MY_TRC  tracers 
    60       ELSE                        ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used' 
     59      IF( lk_my_trc  ) THEN   ;   CALL trc_ini_my_trc       ! MY_TRC  tracers 
     60      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used' 
    6161      ENDIF 
    6262      ! 
  • branches/dev_001_GM/NEMO/TOP_SRC/trclec.F90

    r768 r772  
    1212   !!             1.0  !  2005-03 (O. Aumont, A. El Moussaoui) F90 
    1313   !!---------------------------------------------------------------------- 
    14 #if defined key_passivetrc 
    15    !!---------------------------------------------------------------------- 
    16    !!   'key_passivetrc'                                    Passive tracers 
     14#if defined key_top 
     15   !!---------------------------------------------------------------------- 
     16   !!   'key_top'                                                TOP models 
    1717   !!---------------------------------------------------------------------- 
    1818   !!   trc_lec    :  Read and print options for the passive tracer run (namelist) 
  • branches/dev_001_GM/NEMO/TOP_SRC/trclsm.F90

    r768 r772  
    77   !!             2.0  !  2007-12  (C. Ethe, G. Madec) re-writing 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_passivetrc 
     9#if defined key_top 
    1010   !!---------------------------------------------------------------------- 
    11    !!   'key_passivetrc'                                    Passive tracers 
     11   !!   'key_top'                                                TOP models 
    1212   !!---------------------------------------------------------------------- 
    1313   !!   trc_lsm   : reads specific namelist for sms terms 
     
    4747      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    4848      ! 
    49       IF( lk_trc_lobster ) THEN   ;   CALL trc_lsm_lobster      ! LOBSTER bio-model 
    50       ELSE                        ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used' 
     49      IF( lk_lobster ) THEN   ;   CALL trc_lsm_lobster      ! LOBSTER bio-model 
     50      ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used' 
    5151      ENDIF 
    5252 
    53       IF( lk_trc_pisces  ) THEN   ;   CALL trc_lsm_pisces      ! PISCES  bio-model 
    54       ELSE                        ;   IF(lwp) WRITE(numout,*) '          PISCES not used' 
     53      IF( lk_pisces  ) THEN   ;   CALL trc_lsm_pisces      ! PISCES  bio-model 
     54      ELSE                    ;   IF(lwp) WRITE(numout,*) '          PISCES not used' 
    5555      ENDIF 
    5656 
    57       IF( lk_trc_cfc     ) THEN   ;   CALL trc_lsm_cfc         ! CFC     tracers 
    58       ELSE                        ;   IF(lwp) WRITE(numout,*) '          CFC not used' 
     57      IF( lk_cfc     ) THEN   ;   CALL trc_lsm_cfc         ! CFC     tracers 
     58      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used' 
    5959      ENDIF 
    6060 
    61       IF( lk_my_trc      ) THEN   ;   CALL trc_lsm_my_trc      ! MY_TRC  tracers 
    62       ELSE                        ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used' 
     61      IF( lk_my_trc  ) THEN   ;   CALL trc_lsm_my_trc      ! MY_TRC  tracers 
     62      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used' 
    6363      ENDIF 
    6464      ! 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcrst.F90

    r771 r772  
    66   !! History :   1.0  !  2007-02 (C. Ethe) adaptation from the ocean 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_passivetrc 
    9    !!---------------------------------------------------------------------- 
    10    !!   'key_passivetrc'                                    Passive tracers 
     8#if defined key_top 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_top'                                                TOP models 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   trc_rst_opn    : open  restart file 
     
    8787      INTEGER  ::   iarak0 
    8888      REAL(wp) ::   zkt, zarak0 
    89 # if defined key_trc_pisces  
     89# if defined key_pisces  
    9090      REAL(wp) ::   ztrasum 
    9191      INTEGER  ::   ji, jj, jk 
     
    149149         CALL iom_get( numrtr, jpdom_local, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) )  
    150150      END DO 
    151 # if defined key_trc_lobster1 
     151# if defined key_lobster 
    152152      CALL iom_get( numrtr, jpdom_local, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) )  
    153153      CALL iom_get( numrtr, jpdom_local, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) )  
    154 # elif defined key_trc_pisces 
     154# elif defined key_pisces 
    155155      CALL iom_get( numrtr, jpdom_local, 'Silicalim', xksi(:,:) )  
    156156      xksimax = xksi 
     
    162162# endif 
    163163 
    164 # if defined key_trc_pisces  
     164# if defined key_pisces  
    165165      !                                                         ! --------------------------- ! 
    166166      IF( cp_cfg == "orca" .AND. .NOT. lk_trccfg_1d ) THEN      ! ORCA condiguration (not 1D) ! 
     
    245245      ENDIF 
    246246 
    247 !#if defined key_trc_kriest 
     247!#if defined key_kriest 
    248248!      !! Initialize number of particles from a standart restart file 
    249249!      !! The name of big organic particles jpgoc has been only change 
     
    312312         END DO 
    313313 
    314 #if defined key_trc_lobster1 
     314#if defined key_lobster 
    315315         CALL iom_rstput( kt, nitrst, numrtw, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) ) 
    316316         CALL iom_rstput( kt, nitrst, numrtw, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) ) 
    317 #elif defined key_trc_pisces 
     317#elif defined key_pisces 
    318318         CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) ) 
    319319 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcsms.F90

    r771 r772  
    77   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_passivetrc 
     9#if defined key_top 
    1010   !!---------------------------------------------------------------------- 
    11    !!   'key_passivetrc'                                    Passive tracers 
     11   !!   'key_top'                                                TOP models 
    1212   !!---------------------------------------------------------------------- 
    1313   !!   trc_sms        :  Time loop of passive tracers sms 
     
    4646      IF ( MOD(kt,ndttrc) /= 0) RETURN      ! this ROUTINE is called only every ndttrc time step 
    4747 
    48 #if defined key_trc_lobster1 
     48#if defined key_lobster 
    4949 
    5050      ! LOBSTER biological model 
     
    8383      ENDIF 
    8484 
    85 #elif defined key_trc_pisces 
     85#elif defined key_pisces 
    8686 
    8787      ! PISCES biological model 
     
    9898      ! ------------------ 
    9999 
    100       IF( lk_trc_cfc )   CALL trc_cfc( kt )      ! surface fluxes of CFC 
     100      IF( lk_cfc )   CALL trc_cfc( kt )      ! surface fluxes of CFC 
    101101 
    102102#endif 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcstp.F90

    r771 r772  
    66   !! History :   1.0  !  2004-03 (C. Ethe) Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_passivetrc 
     8#if defined key_top 
    99   !!---------------------------------------------------------------------- 
    10    !!   'key_passivetrc'                                         TOP models 
     10   !!   'key_top'                                                TOP models 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   trc_stp       : passive tracer system time-stepping 
  • branches/dev_001_GM/NEMO/TOP_SRC/trp_trc.F90

    r771 r772  
    1010   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1111   !!---------------------------------------------------------------------- 
    12 #if defined key_passivetrc 
     12#if defined key_top 
    1313   !!---------------------------------------------------------------------- 
    14    !!   'key_passivetrc'                                          TOP model 
     14   !!   'key_top'                                                TOP models 
    1515   !!---------------------------------------------------------------------- 
    1616 
Note: See TracChangeset for help on using the changeset viewer.