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 10345 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcini_pisces.F90 – NEMO

Ignore:
Timestamp:
2018-11-21T11:25:53+01:00 (5 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10344, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcini_pisces.F90

    r10297 r10345  
    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 
     
    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.