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 10322 for NEMO/branches/UKMO/dev_r9950_GO8_package/src/TOP/PISCES/trcini_pisces.F90 – NEMO

Ignore:
Timestamp:
2018-11-16T16:06:47+01:00 (5 years ago)
Author:
davestorkey
Message:

UKMO/dev_r9950_GO8_package: Update to be relative to rev 10321 of NEMO4_beta_mirror branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r9950_GO8_package/src/TOP/PISCES/trcini_pisces.F90

    r9950 r10322  
    1818   USE trcnam_pisces   !  PISCES namelist 
    1919   USE sms_pisces      !  PISCES Source Minus Sink variables 
     20   USE sedini          !  SEDIMENTS initialization routine 
    2021 
    2122   IMPLICIT NONE 
     
    2526 
    2627   !!---------------------------------------------------------------------- 
    27    !! NEMO/TOP 3.3 , NEMO Consortium (2018) 
     28   !! NEMO/TOP 4.0 , NEMO Consortium (2018) 
    2829   !! $Id$ 
    29    !! Software governed by the CeCILL licence     (./LICENSE) 
     30   !! Software governed by the CeCILL license (see ./LICENSE) 
    3031   !!---------------------------------------------------------------------- 
    3132CONTAINS 
     
    6162      USE p4zrem          !  Remineralisation of organic matter 
    6263      USE p4zflx          !  Gas exchange 
    63       USE p4zice          !  Co-limitations of differents nutrients 
     64      USE p4zlim          !  Co-limitations of differents nutrients 
    6465      USE p4zprod         !  Growth rate of the 2 phyto groups 
    6566      USE p4zmicro        !  Sources and sinks of microzooplankton 
     
    7071      USE p4zpoc          !  Remineralization of organic particles 
    7172      USE p4zligand       !  Remineralization of organic ligands 
    72       USE p5zice          !  Co-limitations of differents nutrients 
     73      USE p5zlim          !  Co-limitations of differents nutrients 
    7374      USE p5zprod         !  Growth rate of the 2 phyto groups 
    7475      USE p5zmicro        !  Sources and sinks of microzooplankton 
     
    269270        & CALL p4z_flx_init      !  gas exchange  
    270271 
     272      ! Initialization of the sediment model 
     273      IF( ln_sediment) THEN 
     274         CALL sed_init 
     275      ELSE 
     276         ALLOCATE( profsed(2) ) 
     277      ENDIF 
     278 
    271279      IF(lwp) WRITE(numout,*)  
    272280      IF(lwp) WRITE(numout,*) '   ==>>>   Initialization of PISCES tracers done' 
Note: See TracChangeset for help on using the changeset viewer.