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 7041 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90 – NEMO

Ignore:
Timestamp:
2016-10-19T12:55:07+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/trcsms_pisces.F90

    r4147 r7041  
    77   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  F90 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_pisces || defined key_pisces_reduced 
     9#if defined key_pisces  
    1010   !!---------------------------------------------------------------------- 
    1111   !!   'key_pisces'                                       PISCES bio-model 
     
    1414   !!---------------------------------------------------------------------- 
    1515   USE par_pisces 
     16   USE sms_pisces 
    1617   USE p4zsms 
    1718   USE p2zsms 
     
    4849      !!--------------------------------------------------------------------- 
    4950      ! 
    50       IF( lk_p4z ) THEN  ;   CALL p4z_sms( kt )   !  PISCES 
     51      IF( ln_p4z ) THEN  ;   CALL p4z_sms( kt )   !  PISCES 
    5152      ELSE               ;   CALL p2z_sms( kt )   !  LOBSTER 
    5253      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.