Changeset 12110 for NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/trcini_pisces.F90
- Timestamp:
- 2019-12-07T12:44:31+01:00 (4 years ago)
- 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 58 58 USE p4zsink ! vertical flux of particulate matter due to sinking 59 59 USE p4zopt ! optical model 60 USE p4z sbc ! Boundary conditions60 USE p4zbc ! Boundary conditions 61 61 USE p4zfechem ! Iron chemistry 62 62 USE p4zrem ! Remineralisation of organic matter … … 254 254 CALL p5z_prod_init ! phytoplankton growth rate over the global ocean. 255 255 ENDIF 256 CALL p4z_ sbc_init! boundary conditions256 CALL p4z_bc_init ! boundary conditions 257 257 CALL p4z_fechem_init ! Iron chemistry 258 258 CALL p4z_rem_init ! remineralisation … … 275 275 276 276 ! 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 278 281 279 282 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.