Changeset 7162 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

Timestamp:

2016-11-01T14:23:51+01:00 (8 years ago)

Author:

cetlod

Message:

new top interface : Add PISCES quota model

File:

• branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90 (modified) (3 diffs)

branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

@@ -47 +47 @@
       CHARACTER(LEN=20)   ::   clname
       !!
-      NAMELIST/nampismod/ln_p2z, ln_p4z
+      NAMELIST/nampismod/ln_p2z, ln_p4z, ln_p5z, ln_ligand
       !!----------------------------------------------------------------------
 
@@ -69 +69 @@
       IF(lwm) WRITE ( numonp, nampismod )
 
+     IF(lwp) THEN                  ! control print
+         WRITE(numout,*) ' '
+         WRITE(numout,*) ' Flag to use LOBSTER model            ln_p2z    = ', ln_p2z
+         WRITE(numout,*) ' Flag to use PISCES standard  model   ln_p4z    = ', ln_p4z
+         WRITE(numout,*) ' Flag to use PISCES quota     model   ln_p5z    = ', ln_p5z
+         WRITE(numout,*) ' Flag to ligand                       ln_ligand = ', ln_ligand
+         WRITE(numout,*) ' '
+      ENDIF
+
       IF(lwp) THEN                         ! control print
          WRITE(numout,*) ' '
-         IF( ln_p4z )  WRITE(numout,*) '          PISCES  model is used'
-         IF( ln_p2z )  WRITE(numout,*) '          LOBSTER model is used'
+         IF( ln_p5z    )  WRITE(numout,*) '  PISCES QUOTA model is used'
+         IF( ln_p4z    )  WRITE(numout,*) '  PISCES STANDARD model is used'
+         IF( ln_p2z    )  WRITE(numout,*) '  LOBSTER model is used'
+         IF( ln_ligand )  WRITE(numout,*) '  Compute remineralization/dissolution of organic ligands'
          WRITE(numout,*) ' '
       ENDIF
@@ -79 +90 @@
       IF( ln_p2z )    ioptio = ioptio + 1
       IF( ln_p4z )    ioptio = ioptio + 1
+      IF( ln_p5z )    ioptio = ioptio + 1
       !
       IF( ioptio /= 1 )   CALL ctl_stop( 'Choose ONE PISCES model namelist nampismod' )