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 12110 for NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/trcini_pisces.F90 – NEMO

Ignore:
Timestamp:
2019-12-07T12:44:31+01:00 (4 years ago)
Author:
cetlod
Message:

merge dev_r11219_TOP-01_cethe_PISCES_LBC onto dev_r12072_TOP-01_ENHANCE-11_CEthe

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/trcini_pisces.F90

    r10817 r12110  
    5858      USE p4zsink         !  vertical flux of particulate matter due to sinking 
    5959      USE p4zopt          !  optical model 
    60       USE p4zsbc          !  Boundary conditions 
     60      USE p4zbc          !  Boundary conditions 
    6161      USE p4zfechem       !  Iron chemistry 
    6262      USE p4zrem          !  Remineralisation of organic matter 
     
    254254         CALL p5z_prod_init      !  phytoplankton growth rate over the global ocean. 
    255255      ENDIF 
    256       CALL p4z_sbc_init          !  boundary conditions 
     256      CALL p4z_bc_init           !  boundary conditions 
    257257      CALL p4z_fechem_init       !  Iron chemistry 
    258258      CALL p4z_rem_init          !  remineralisation 
     
    275275 
    276276      ! Initialization of the sediment model 
    277       IF( ln_sediment)   CALL sed_init 
     277      IF( ln_sediment)   & 
     278        & CALL sed_init ! Initialization of the sediment model  
     279 
     280      CALL p4z_sed_init          ! loss of organic matter in the sediments  
    278281 
    279282      IF(lwp) WRITE(numout,*)  
Note: See TracChangeset for help on using the changeset viewer.