Changeset 9169 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

Timestamp:

2017-12-26T17:32:56+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: all SRC: finalize the removal of useless warning when reading namelist_cfg + remove all nn_closea + nn_msh replaced by a logical

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

@@ -9 +9 @@
    !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trcnam.pisces.h90
    !!----------------------------------------------------------------------
-   !! trc_nam_pisces       : PISCES model namelist read
+   !! trc_nam_pisces   : PISCES model namelist read
    !!----------------------------------------------------------------------
    USE oce_trc         ! Ocean variables
@@ -40 +40 @@
       !!----------------------------------------------------------------------
       INTEGER :: jl, jn
-      INTEGER :: ios, ioptio                 ! Local integer output status for namelist read
-      CHARACTER(LEN=20)   ::   clname
+      INTEGER :: ios, ioptio         ! Local integer
+      CHARACTER(LEN=20)::   clname
       !!
       NAMELIST/nampismod/ln_p2z, ln_p4z, ln_p5z, ln_ligand
@@ -49 +49 @@
       clname = 'namelist_pisces'
 
-      IF(lwp) WRITE(numout,*) ' trc_nam_pisces : read PISCES namelist'
-      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
+      IF(lwp) WRITE(numout,*) 'trc_nam_pisces : read PISCES namelist'
+      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~'
       CALL ctl_opn( numnatp_ref, TRIM( clname )//'_ref', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
       CALL ctl_opn( numnatp_cfg, TRIM( clname )//'_cfg', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
       IF(lwm) CALL ctl_opn( numonp     , 'output.namelist.pis' , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
       !
-
       REWIND( numnatp_ref )              ! Namelist nampisbio in reference namelist : Pisces variables
       READ  ( numnatp_ref, nampismod, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in reference namelist', lwp )
-
+901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nampismod in reference namelist', lwp )
       REWIND( numnatp_cfg )              ! Namelist nampisbio in configuration namelist : Pisces variables
       READ  ( numnatp_cfg, nampismod, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in configuration namelist', lwp )
-      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,*) ' '
+902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nampismod in configuration namelist', lwp )
+      IF(lwm) WRITE( numonp, nampismod )
+      !
+      IF(lwp) THEN                  ! control print
+         WRITE(numout,*) '   Namelist : nampismod '
+         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
       ENDIF
-
+      !
       IF(lwp) THEN                         ! control print
-         WRITE(numout,*) ' '
-         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,*) ' '
+         WRITE(numout,*)
+         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'
       ENDIF