Changeset 10345 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcini_pisces.F90
- Timestamp:
- 2018-11-21T11:25:53+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcini_pisces.F90
r10297 r10345 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 … … 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.