- Timestamp:
- 2018-11-16T16:06:47+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r9950_GO8_package/src/TOP/PISCES/trcini_pisces.F90
r9950 r10322 18 18 USE trcnam_pisces ! PISCES namelist 19 19 USE sms_pisces ! PISCES Source Minus Sink variables 20 USE sedini ! SEDIMENTS initialization routine 20 21 21 22 IMPLICIT NONE … … 25 26 26 27 !!---------------------------------------------------------------------- 27 !! NEMO/TOP 3.3, NEMO Consortium (2018)28 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 28 29 !! $Id$ 29 !! Software governed by the CeCILL licen ce (./LICENSE)30 !! Software governed by the CeCILL license (see ./LICENSE) 30 31 !!---------------------------------------------------------------------- 31 32 CONTAINS … … 61 62 USE p4zrem ! Remineralisation of organic matter 62 63 USE p4zflx ! Gas exchange 63 USE p4z ice! Co-limitations of differents nutrients64 USE p4zlim ! Co-limitations of differents nutrients 64 65 USE p4zprod ! Growth rate of the 2 phyto groups 65 66 USE p4zmicro ! Sources and sinks of microzooplankton … … 70 71 USE p4zpoc ! Remineralization of organic particles 71 72 USE p4zligand ! Remineralization of organic ligands 72 USE p5z ice! Co-limitations of differents nutrients73 USE p5zlim ! Co-limitations of differents nutrients 73 74 USE p5zprod ! Growth rate of the 2 phyto groups 74 75 USE p5zmicro ! Sources and sinks of microzooplankton … … 269 270 & CALL p4z_flx_init ! gas exchange 270 271 272 ! Initialization of the sediment model 273 IF( ln_sediment) THEN 274 CALL sed_init 275 ELSE 276 ALLOCATE( profsed(2) ) 277 ENDIF 278 271 279 IF(lwp) WRITE(numout,*) 272 280 IF(lwp) WRITE(numout,*) ' ==>>> Initialization of PISCES tracers done'
Note: See TracChangeset
for help on using the changeset viewer.