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/trcini.F90 – NEMO

Ignore:
Timestamp:
2007-12-17T12:59:33+01:00 (16 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/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      ! 
Note: See TracChangeset for help on using the changeset viewer.