- Timestamp:
- 2018-11-16T16:13:30+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/TOP/PISCES/trcnam_pisces.F90
r9950 r10323 24 24 25 25 !!---------------------------------------------------------------------- 26 !! NEMO/TOP 3.3, NEMO Consortium (2018)26 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 27 27 !! $Id$ 28 !! Software governed by the CeCILL licen ce (./LICENSE)28 !! Software governed by the CeCILL license (see ./LICENSE) 29 29 !!---------------------------------------------------------------------- 30 30 CONTAINS … … 43 43 CHARACTER(LEN=20):: clname 44 44 !! 45 NAMELIST/nampismod/ln_p2z, ln_p4z, ln_p5z, ln_ligand 45 NAMELIST/nampismod/ln_p2z, ln_p4z, ln_p5z, ln_ligand, ln_sediment 46 46 !!---------------------------------------------------------------------- 47 47 … … 65 65 IF(lwp) THEN ! control print 66 66 WRITE(numout,*) ' Namelist : nampismod ' 67 WRITE(numout,*) ' Flag to use LOBSTER model ln_p2z = ', ln_p2z 68 WRITE(numout,*) ' Flag to use PISCES standard model ln_p4z = ', ln_p4z 69 WRITE(numout,*) ' Flag to use PISCES quota model ln_p5z = ', ln_p5z 70 WRITE(numout,*) ' Flag to ligand ln_ligand = ', ln_ligand 67 WRITE(numout,*) ' Flag to use LOBSTER model ln_p2z = ', ln_p2z 68 WRITE(numout,*) ' Flag to use PISCES standard model ln_p4z = ', ln_p4z 69 WRITE(numout,*) ' Flag to use PISCES quota model ln_p5z = ', ln_p5z 70 WRITE(numout,*) ' Flag to ligand ln_ligand = ', ln_ligand 71 WRITE(numout,*) ' Flag to use sediment ln_sediment = ', ln_sediment 71 72 ENDIF 72 73 ! 73 74 IF(lwp) THEN ! control print 74 75 WRITE(numout,*) 75 IF( ln_p5z ) WRITE(numout,*) ' ==>>> PISCES QUOTA model is used'76 IF( ln_p4z ) WRITE(numout,*) ' ==>>> PISCES STANDARD model is used'77 IF( ln_p2z ) WRITE(numout,*) ' ==>>> LOBSTER model is used'76 IF( ln_p5z ) WRITE(numout,*) ' ==>>> PISCES QUOTA model is used' 77 IF( ln_p4z ) WRITE(numout,*) ' ==>>> PISCES STANDARD model is used' 78 IF( ln_p2z ) WRITE(numout,*) ' ==>>> LOBSTER model is used' 78 79 IF( ln_ligand ) WRITE(numout,*) ' ==>>> Compute remineralization/dissolution of organic ligands' 80 IF( ln_sediment ) WRITE(numout,*) ' ==>>> Sediment module is used' 79 81 ENDIF 80 82
Note: See TracChangeset
for help on using the changeset viewer.