New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trcnam_pisces.F90 in trunk/NEMOGCM/NEMO/TOP_SRC/PISCES – NEMO

source: trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90 @ 8533

Last change on this file since 8533 was 7646, checked in by timgraham, 7 years ago

Merge of dev_merge_2016 into trunk. UPDATE TO ARCHFILES NEEDED for XIOS2.
LIM_SRC_s/limrhg.F90 to follow in next commit due to change of kind (I'm unable to do it in this commit).
Merged using the following steps:

1) svn merge --reintegrate svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk .
2) Resolve minor conflicts in sette.sh and namelist_cfg for ORCA2LIM3 (due to a change in trunk after branch was created)
3) svn commit
4) svn switch svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
5) svn merge svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2016/dev_merge_2016 .
6) At this stage I checked out a clean copy of the branch to compare against what is about to be committed to the trunk.
6) svn commit #Commit code to the trunk

In this commit I have also reverted a change to Fcheck_archfile.sh which was causing problems on the Paris machine.

  • Property svn:keywords set to Id
File size: 4.4 KB
Line 
1MODULE trcnam_pisces
2   !!======================================================================
3   !!                      ***  MODULE trcnam_pisces  ***
4   !! TOP :   initialisation of some run parameters for PISCES bio-model
5   !!======================================================================
6   !! History :    -   !  1999-10 (M.A. Foujols, M. Levy) original code
7   !!              -   !  2000-01 (L. Bopp) hamocc3, p3zd
8   !!             1.0  !  2003-08 (C. Ethe)  module F90
9   !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trcnam.pisces.h90
10   !!----------------------------------------------------------------------
11   !! trc_nam_pisces       : PISCES model namelist read
12   !!----------------------------------------------------------------------
13   USE oce_trc         ! Ocean variables
14   USE par_trc         ! TOP parameters
15   USE trc             ! TOP variables
16   USE sms_pisces      ! sms trends
17   USE trdtrc_oce
18   USE iom             ! I/O manager
19
20
21   IMPLICIT NONE
22   PRIVATE
23
24   PUBLIC   trc_nam_pisces   ! called by trcnam.F90 module
25
26
27   !!----------------------------------------------------------------------
28   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
29   !! $Id$
30   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
31   !!----------------------------------------------------------------------
32
33CONTAINS
34
35   SUBROUTINE trc_nam_pisces
36      !!----------------------------------------------------------------------
37      !!                     ***  trc_nam_pisces  *** 
38      !!
39      !! ** Purpose :   read PISCES namelist
40      !!
41      !! ** input   :   file 'namelist.trc.sms' containing the following
42      !!             namelist: natext, natbio, natsms
43      !!----------------------------------------------------------------------
44      !!
45      INTEGER :: jl, jn
46      INTEGER :: ios, ioptio                 ! Local integer output status for namelist read
47      CHARACTER(LEN=20)   ::   clname
48      !!
49      NAMELIST/nampismod/ln_p2z, ln_p4z, ln_p5z, ln_ligand
50      !!----------------------------------------------------------------------
51
52      IF(lwp) WRITE(numout,*)
53      clname = 'namelist_pisces'
54
55      IF(lwp) WRITE(numout,*) ' trc_nam_pisces : read PISCES namelist'
56      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
57      CALL ctl_opn( numnatp_ref, TRIM( clname )//'_ref', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
58      CALL ctl_opn( numnatp_cfg, TRIM( clname )//'_cfg', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
59      IF(lwm) CALL ctl_opn( numonp     , 'output.namelist.pis' , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
60      !
61
62      REWIND( numnatp_ref )              ! Namelist nampisbio in reference namelist : Pisces variables
63      READ  ( numnatp_ref, nampismod, IOSTAT = ios, ERR = 901)
64901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in reference namelist', lwp )
65
66      REWIND( numnatp_cfg )              ! Namelist nampisbio in configuration namelist : Pisces variables
67      READ  ( numnatp_cfg, nampismod, IOSTAT = ios, ERR = 902 )
68902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in configuration namelist', lwp )
69      IF(lwm) WRITE ( numonp, nampismod )
70
71     IF(lwp) THEN                  ! control print
72         WRITE(numout,*) ' '
73         WRITE(numout,*) ' Flag to use LOBSTER model            ln_p2z    = ', ln_p2z
74         WRITE(numout,*) ' Flag to use PISCES standard  model   ln_p4z    = ', ln_p4z
75         WRITE(numout,*) ' Flag to use PISCES quota     model   ln_p5z    = ', ln_p5z
76         WRITE(numout,*) ' Flag to ligand                       ln_ligand = ', ln_ligand
77         WRITE(numout,*) ' '
78      ENDIF
79
80      IF(lwp) THEN                         ! control print
81         WRITE(numout,*) ' '
82         IF( ln_p5z    )  WRITE(numout,*) '  PISCES QUOTA model is used'
83         IF( ln_p4z    )  WRITE(numout,*) '  PISCES STANDARD model is used'
84         IF( ln_p2z    )  WRITE(numout,*) '  LOBSTER model is used'
85         IF( ln_ligand )  WRITE(numout,*) '  Compute remineralization/dissolution of organic ligands'
86         WRITE(numout,*) ' '
87      ENDIF
88   
89      ioptio = 0
90      IF( ln_p2z )    ioptio = ioptio + 1
91      IF( ln_p4z )    ioptio = ioptio + 1
92      IF( ln_p5z )    ioptio = ioptio + 1
93      !
94      IF( ioptio /= 1 )   CALL ctl_stop( 'Choose ONE PISCES model namelist nampismod' )
95       !
96   END SUBROUTINE trc_nam_pisces
97
98   !!======================================================================
99END MODULE trcnam_pisces
Note: See TracBrowser for help on using the repository browser.