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.
Changeset 3875 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC – NEMO

Ignore:
Timestamp:
2013-04-18T16:38:06+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step? 1, see ticket:#1074

Location:
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC
Files:
24 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/C14b/trcnam_c14b.F90

    r3294 r3875  
    4242      !! ** input   :   Namelist namelist_c14b 
    4343      !!---------------------------------------------------------------------- 
    44       INTEGER ::   numnatb 
     44      INTEGER ::  numnatb_ref = -1   ! Logical unit for reference c14b namelist 
     45      INTEGER ::  numnatb_cfg = -1   ! Logical unit for configuration c14b namelist 
     46      INTEGER ::  numonb      = -1   ! Logical unit for output namelist 
     47      INTEGER :: ios                 ! Local integer output status for namelist read 
    4548 
    4649      ! definition of additional diagnostic as a structure 
    … …  
    5760 
    5861      !                             ! Open namelist file 
    59       CALL ctl_opn( numnatb, 'namelist_c14b', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    60           
    61       READ( numnatb , namc14date )     ! read namelist 
     62      CALL ctl_opn( numnatb_ref, 'namelist_c14b_ref'  ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     63      CALL ctl_opn( numnatb_cfg, 'namelist_c14b_cfg'  ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )    
     64      CALL ctl_opn( numonb     , 'output.namelist.c14', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )      
     65      REWIND( numnatb_ref )              ! Namelist namc14date in reference namelist : c14b parameters 
     66      READ  ( numnatb_ref, namc14date, IOSTAT = ios, ERR = 901) 
     67901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14date in reference namelist', lwp ) 
    6268 
     69      REWIND( numnatb_cfg )              ! Namelist namc14date in configuration namelist : c14b parameters 
     70      READ  ( numnatb_cfg, namc14date, IOSTAT = ios, ERR = 902 ) 
     71902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14date in configuration namelist', lwp ) 
     72      WRITE ( numonb, namc14date ) 
    6373      IF(lwp) THEN                  ! control print 
    6474         WRITE(numout,*) 
    … …  
    8797         END DO 
    8898 
    89          REWIND( numnatb )               !  
    90          READ  ( numnatb, namc14dia ) 
     99         REWIND( numnatb_ref )              ! Namelist namc14dia in reference namelist : c14b diagnostics 
     100         READ  ( numnatb_ref, namc14dia, IOSTAT = ios, ERR = 903) 
     101903      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in reference namelist', lwp ) 
     102 
     103         REWIND( numnatb_cfg )              ! Namelist namc14dia in configuration namelist : c14b diagnostics 
     104         READ  ( numnatb_cfg, namc14dia, IOSTAT = ios, ERR = 904 ) 
     105904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in configuration namelist', lwp ) 
     106         WRITE ( numonb, namc14dia ) 
    91107 
    92108         DO jl = 1, jp_c14b_2d 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

    r3294 r3875  
    4242      !! ** input   :   Namelist namcfc 
    4343      !!---------------------------------------------------------------------- 
    44       INTEGER ::  numnatc 
     44      INTEGER ::  numnatc_ref = -1   ! Logical unit for reference CFC namelist 
     45      INTEGER ::  numnatc_cfg = -1   ! Logical unit for configuration CFC namelist 
     46      INTEGER ::  numonc      = -1   ! Logical unit for output namelist 
     47      INTEGER :: ios                 ! Local integer output status for namelist read 
    4548      INTEGER :: jl, jn 
    4649      TYPE(DIAG), DIMENSION(jp_cfc_2d) :: cfcdia2d 
    … …  
    5356      nyear_res = 1950 
    5457 
    55       !                             ! Open namelist file 
    56       CALL ctl_opn( numnatc, 'namelist_cfc', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    57           
    58       READ( numnatc , namcfcdate )     ! read namelist 
     58      !                             ! Open namelist files 
     59      CALL ctl_opn( numnatc_ref, 'namelist_cfc_ref'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     60      CALL ctl_opn( numnatc_cfg, 'namelist_cfc_cfg'   ,     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     61      CALL ctl_opn( numonc     , 'output.namelist.cfc', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     62 
     63      REWIND( numnatc_ref )              ! Namelist namcfcdate in reference namelist : CFC parameters 
     64      READ  ( numnatc_ref, namcfcdate, IOSTAT = ios, ERR = 901) 
     65901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in reference namelist', lwp ) 
     66 
     67      REWIND( numnatc_cfg )              ! Namelist namcfcdate in configuration namelist : CFC parameters 
     68      READ  ( numnatc_cfg, namcfcdate, IOSTAT = ios, ERR = 902 ) 
     69902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in configuration namelist', lwp ) 
     70      WRITE ( numonc, namcfcdate ) 
    5971 
    6072      IF(lwp) THEN                  ! control print 
    … …  
    7991         END DO 
    8092 
    81          REWIND( numnatc )               ! read natrtd 
    82          READ  ( numnatc, namcfcdia ) 
     93         REWIND( numnatc_ref )              ! Namelist namcfcdia in reference namelist : CFC diagnostics 
     94         READ  ( numnatc_ref, namcfcdia, IOSTAT = ios, ERR = 903) 
     95903      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in reference namelist', lwp ) 
     96 
     97         REWIND( numnatc_cfg )              ! Namelist namcfcdia in configuration namelist : CFC diagnostics 
     98         READ  ( numnatc_cfg, namcfcdia, IOSTAT = ios, ERR = 904 ) 
     99904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp ) 
     100         WRITE ( numonc, namcfcdia ) 
    83101 
    84102         DO jl = 1, jp_cfc_2d 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90

    r3446 r3875  
    480480      !!                  ***  ROUTINE p2z_bio_init  *** 
    481481      !! 
    482       !! ** Purpose :  bilogical parameters  
     482      !! ** Purpose :  biological parameters  
    483483      !! 
    484484      !! ** Method  :   Read namelist and check the parameters 
    … …  
    490490      NAMELIST/namlobdet/  taudn, fdetlab 
    491491      NAMELIST/namlobdom/ taudomn 
     492      INTEGER :: ios                 ! Local integer output status for namelist read 
    492493      !!---------------------------------------------------------------------- 
    493494 
    494       REWIND( numnatp ) 
    495       READ  ( numnatp, namlobphy ) 
     495      REWIND( numnatp_ref )              ! Namelist namlobphy in reference namelist : Lobster biological parameters 
     496      READ  ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 
     497901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist', lwp ) 
     498 
     499      REWIND( numnatp_cfg )              ! Namelist namlobphy in configuration namelist : Lobster biological parameters 
     500      READ  ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 
     501902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist', lwp ) 
     502      WRITE ( numonp, namlobphy ) 
    496503 
    497504      IF(lwp) THEN 
    … …  
    505512      ENDIF 
    506513 
    507       REWIND( numnatp ) 
    508       READ  ( numnatp, namlobnut ) 
     514      REWIND( numnatp_ref )              ! Namelist namlobnut in reference namelist : Lobster nutriments parameters 
     515      READ  ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 
     516903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist', lwp ) 
     517 
     518      REWIND( numnatp_cfg )              ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters 
     519      READ  ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 
     520904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist', lwp ) 
     521      WRITE ( numonp, namlobnut ) 
     522 
    509523      IF(lwp) THEN 
    510524          WRITE(numout,*) ' Namelist namlobnut' 
    … …  
    516530      ENDIF 
    517531 
    518       REWIND( numnatp ) 
    519       READ  ( numnatp, namlobzoo ) 
     532      REWIND( numnatp_ref )              ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters 
     533      READ  ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 
     534905   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist', lwp ) 
     535 
     536      REWIND( numnatp_cfg )              ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters 
     537      READ  ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 
     538906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist', lwp ) 
     539      WRITE ( numonp, namlobzoo ) 
    520540 
    521541      IF(lwp) THEN 
    … …  
    533553      ENDIF 
    534554 
    535       REWIND( numnatp ) 
    536       READ  ( numnatp, namlobdet ) 
     555      REWIND( numnatp_ref )              ! Namelist namlobdet in reference namelist : Lobster detritus parameters 
     556      READ  ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 
     557907   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist', lwp ) 
     558 
     559      REWIND( numnatp_cfg )              ! Namelist namlobdet in configuration namelist : Lobster detritus parameters 
     560      READ  ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 
     561908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist', lwp ) 
     562      WRITE ( numonp, namlobdet ) 
    537563 
    538564      IF(lwp) THEN 
    … …  
    543569      ENDIF 
    544570 
    545       REWIND( numnatp ) 
    546       READ  ( numnatp, namlobdom ) 
     571      REWIND( numnatp_ref )              ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate 
     572      READ  ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 
     573909   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist', lwp ) 
     574 
     575      REWIND( numnatp_cfg )              ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate 
     576      READ  ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 
     577910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist', lwp ) 
     578      WRITE ( numonp, namlobdom ) 
    547579 
    548580      IF(lwp) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90

    r3443 r3875  
    164164      NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 
    165165      NAMELIST/namlobrat/ rcchl, redf, reddom 
     166      INTEGER :: ios                 ! Local integer output status for namelist read 
    166167      !!---------------------------------------------------------------------- 
    167168 
    168       REWIND( numnatp ) 
    169       READ  ( numnatp, namlobopt ) 
     169      REWIND( numnatp_ref )              ! Namelist namlobopt in reference namelist : Lobster options 
     170      READ  ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 
     171901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist', lwp ) 
     172 
     173      REWIND( numnatp_cfg )              ! Namelist namlobopt in configuration namelist : Lobster options 
     174      READ  ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 
     175902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 
     176      WRITE ( numonp, namlobopt ) 
    170177 
    171178      IF(lwp) THEN 
    … …  
    182189      ENDIF 
    183190      ! 
    184       REWIND( numnatp ) 
    185       READ  ( numnatp, namlobrat ) 
     191      REWIND( numnatp_ref )              ! Namelist namlobrat in reference namelist : Lobster ratios 
     192      READ  ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 
     193903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist', lwp ) 
     194 
     195      REWIND( numnatp_cfg )              ! Namelist namlobrat in configuration namelist : Lobster ratios 
     196      READ  ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 
     197904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 
     198      WRITE ( numonp, namlobrat ) 
    186199 
    187200      IF(lwp) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90

    r3443 r3875  
    151151      !!---------------------------------------------------------------------- 
    152152      NAMELIST/namlobsed/ sedlam, sedlostpoc, vsed, xhr 
     153      INTEGER :: ios                 ! Local integer output status for namelist read 
    153154 
    154       REWIND( numnatp ) 
    155       READ  ( numnatp, namlobsed ) 
     155      REWIND( numnatp_ref )              ! Namelist namlobsed in reference namelist : Lobster sediments 
     156      READ  ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 
     157901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist', lwp ) 
     158 
     159      REWIND( numnatp_cfg )              ! Namelist namlobsed in configuration namelist : Lobster sediments 
     160      READ  ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 
     161902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 
     162      WRITE ( numonp, namlobsed ) 
    156163 
    157164      IF(lwp) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90

    r3780 r3875  
    342342      !!---------------------------------------------------------------------- 
    343343      NAMELIST/nampisfer/ ln_fechem, ln_ligvar, xlam1, xlamdust, ligand  
    344  
    345       REWIND( numnatp )                     ! read numnatp 
    346       READ  ( numnatp, nampisfer ) 
     344      INTEGER :: ios                 ! Local integer output status for namelist read 
     345 
     346      REWIND( numnatp_ref )              ! Namelist nampisfer in reference namelist : Pisces iron chemistry 
     347      READ  ( numnatp_ref, nampisfer, IOSTAT = ios, ERR = 901) 
     348901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist', lwp ) 
     349 
     350      REWIND( numnatp_cfg )              ! Namelist nampisfer in configuration namelist : Pisces iron chemistry 
     351      READ  ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 
     352902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist', lwp ) 
     353      WRITE ( numonp, nampisfer ) 
    347354 
    348355      IF(lwp) THEN                         ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90

    r3481 r3875  
    239239      NAMELIST/nampisext/ln_co2int, atcco2, clname, nn_offset 
    240240      INTEGER :: jm 
    241       !!---------------------------------------------------------------------- 
    242       ! 
    243       REWIND( numnatp )                     ! read numnatp 
    244       READ  ( numnatp, nampisext ) 
     241      INTEGER :: ios                 ! Local integer output status for namelist read 
     242      !!---------------------------------------------------------------------- 
     243      ! 
     244 
     245      REWIND( numnatp_ref )              ! Namelist nampisext in reference namelist : Pisces atm. conditions 
     246      READ  ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 
     247901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist', lwp ) 
     248 
     249      REWIND( numnatp_cfg )              ! Namelist nampisext in configuration namelist : Pisces atm. conditions 
     250      READ  ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 
     251902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist', lwp ) 
     252      WRITE ( numonp, nampisext ) 
    245253      ! 
    246254      IF(lwp) THEN                         ! control print 
    … …  
    302310      ! 
    303311      INTEGER            ::  ierr 
     312      INTEGER            ::  ios      ! Local integer output status for namelist read 
    304313      CHARACTER(len=100) ::  cn_dir   ! Root directory for location of ssr files 
    305314      TYPE(FLD_N)        ::  sn_patm  ! informations about the fields to be read 
    … …  
    317326         cn_dir  = './'          ! directory in which the Patm data are  
    318327 
    319          REWIND( numnatp )                             !* read in namlist nampisatm 
    320          READ  ( numnatp, nampisatm )  
     328         REWIND( numnatp_ref )              ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file 
     329         READ  ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 
     330901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist', lwp ) 
     331 
     332         REWIND( numnatp_cfg )              ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file  
     333         READ  ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 
     334902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist', lwp ) 
     335         WRITE ( numonp, nampisatm ) 
    321336         ! 
    322337         ! 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90

    r3446 r3875  
    217217         &                concbno3, concbnh4, xsizedia, xsizephy, xsizern, xsizerd,          &  
    218218         &                xksi1, xksi2, xkdoc, qnfelim, qdfelim, caco3r 
    219  
    220       REWIND( numnatp )                     ! read numnat 
    221       READ  ( numnatp, nampislim ) 
     219      INTEGER :: ios                 ! Local integer output status for namelist read 
     220 
     221      REWIND( numnatp_ref )              ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 
     222      READ  ( numnatp_ref, nampislim, IOSTAT = ios, ERR = 901) 
     223901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist', lwp ) 
     224 
     225      REWIND( numnatp_cfg )              ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters  
     226      READ  ( numnatp_cfg, nampislim, IOSTAT = ios, ERR = 902 ) 
     227902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist', lwp ) 
     228      WRITE ( numonp, nampislim ) 
    222229 
    223230      IF(lwp) THEN                         ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90

    r3443 r3875  
    188188      !!---------------------------------------------------------------------- 
    189189      INTEGER  ::  ji, jj, jk 
     190      INTEGER  ::  ios                 ! Local integer output status for namelist read 
    190191      REAL(wp) ::  zcaralk, zbicarb, zco3 
    191192      REAL(wp) ::  ztmas, ztmas1 
    … …  
    194195      !!---------------------------------------------------------------------- 
    195196 
    196       REWIND( numnatp )                     ! read numnatp 
    197       READ  ( numnatp, nampiscal ) 
     197      REWIND( numnatp_ref )              ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution 
     198      READ  ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 
     199901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist', lwp ) 
     200 
     201      REWIND( numnatp_cfg )              ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution 
     202      READ  ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 
     203902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist', lwp ) 
     204      WRITE ( numonp, nampiscal ) 
    198205 
    199206      IF(lwp) THEN                         ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90

    r3829 r3875  
    255255         &                xprefpoc, xthresh2dia, xthresh2phy, xthresh2zoo, xthresh2poc, & 
    256256         &                xthresh2, xkgraz2, epsher2, sigma2, unass2, grazflux 
    257  
    258       REWIND( numnatp )                     ! read numnatp 
    259       READ  ( numnatp, nampismes ) 
     257      INTEGER :: ios                 ! Local integer output status for namelist read 
     258 
     259      REWIND( numnatp_ref )              ! Namelist nampismes in reference namelist : Pisces mesozooplankton 
     260      READ  ( numnatp_ref, nampismes, IOSTAT = ios, ERR = 901) 
     261901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist', lwp ) 
     262 
     263      REWIND( numnatp_cfg )              ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 
     264      READ  ( numnatp_cfg, nampismes, IOSTAT = ios, ERR = 902 ) 
     265902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist', lwp ) 
     266      WRITE ( numonp, nampismes ) 
    260267 
    261268 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90

    r3829 r3875  
    225225         &                xpref2d,  xthreshdia,  xthreshphy,  xthreshpoc, & 
    226226         &                xthresh, xkgraz, epsher, sigma1, unass 
    227  
    228       REWIND( numnatp )                     ! read numnatp 
    229       READ  ( numnatp, nampiszoo ) 
     227      INTEGER :: ios                 ! Local integer output status for namelist read 
     228 
     229      REWIND( numnatp_ref )              ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 
     230      READ  ( numnatp_ref, nampiszoo, IOSTAT = ios, ERR = 901) 
     231901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiszoo in reference namelist', lwp ) 
     232 
     233      REWIND( numnatp_cfg )              ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 
     234      READ  ( numnatp_cfg, nampiszoo, IOSTAT = ios, ERR = 902 ) 
     235902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiszoo in configuration namelist', lwp ) 
     236      WRITE ( numonp, nampiszoo ) 
    230237 
    231238      IF(lwp) THEN                         ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90

    r3475 r3875  
    239239 
    240240      NAMELIST/nampismort/ wchl, wchld, wchldm, mprat, mprat2 
    241  
    242       REWIND( numnatp )                     ! read numnatp 
    243       READ  ( numnatp, nampismort ) 
     241      INTEGER :: ios                 ! Local integer output status for namelist read 
     242 
     243      REWIND( numnatp_ref )              ! Namelist nampismort in reference namelist : Pisces phytoplankton 
     244      READ  ( numnatp_ref, nampismort, IOSTAT = ios, ERR = 901) 
     245901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismort in reference namelist', lwp ) 
     246 
     247      REWIND( numnatp_cfg )              ! Namelist nampismort in configuration namelist : Pisces phytoplankton 
     248      READ  ( numnatp_cfg, nampismort, IOSTAT = ios, ERR = 902 ) 
     249902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismort in configuration namelist', lwp ) 
     250      WRITE ( numonp, nampismort ) 
    244251 
    245252      IF(lwp) THEN                         ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

    r3475 r3875  
    318318      INTEGER :: numpar 
    319319      INTEGER :: ierr 
     320      INTEGER :: ios                 ! Local integer output status for namelist read 
    320321      REAL(wp), DIMENSION(nbtimes) :: zsteps                 ! times records 
    321322      ! 
    … …  
    335336      sn_par     = FLD_N( 'par_fraction',    24     ,  'fr_par'     ,  .true.    , .true.  ,   'yearly'  , ''       , ''         ) 
    336337 
    337       REWIND( numnatp )                     ! read numnatp 
    338       READ  ( numnatp, nampisopt ) 
     338      REWIND( numnatp_ref )              ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR 
     339      READ  ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 
     340901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist', lwp ) 
     341 
     342      REWIND( numnatp_cfg )              ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR 
     343      READ  ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 
     344902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist', lwp ) 
     345      WRITE ( numonp, nampisopt ) 
    339346 
    340347      IF(lwp) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

    r3686 r3875  
    472472      NAMELIST/nampisprod/ pislope, pislope2, ln_newprod, bresp, excret, excret2,  & 
    473473         &                 chlcnm, chlcdm, chlcmin, fecnm, fecdm, grosip 
     474      INTEGER :: ios                 ! Local integer output status for namelist read 
    474475      !!---------------------------------------------------------------------- 
    475476 
    476       REWIND( numnatp )                     ! read numnatp 
    477       READ  ( numnatp, nampisprod ) 
     477      REWIND( numnatp_ref )              ! Namelist nampisprod in reference namelist : Pisces phytoplankton production 
     478      READ  ( numnatp_ref, nampisprod, IOSTAT = ios, ERR = 901) 
     479901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisprod in reference namelist', lwp ) 
     480 
     481      REWIND( numnatp_cfg )              ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 
     482      READ  ( numnatp_cfg, nampisprod, IOSTAT = ios, ERR = 902 ) 
     483902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisprod in configuration namelist', lwp ) 
     484      WRITE ( numonp, nampisprod ) 
    478485 
    479486      IF(lwp) THEN                         ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zrem.F90

    r3496 r3875  
    349349      NAMELIST/nampisrem/ xremik, xremip, nitrif, xsirem, xsiremlab, xsilab,   & 
    350350      &                   oxymin 
    351  
    352       REWIND( numnatp )                     ! read numnatp 
    353       READ  ( numnatp, nampisrem ) 
     351      INTEGER :: ios                 ! Local integer output status for namelist read 
     352 
     353      REWIND( numnatp_ref )              ! Namelist nampisrem in reference namelist : Pisces remineralization 
     354      READ  ( numnatp_ref, nampisrem, IOSTAT = ios, ERR = 901) 
     355901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist', lwp ) 
     356 
     357      REWIND( numnatp_cfg )              ! Namelist nampisrem in configuration namelist : Pisces remineralization 
     358      READ  ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 
     359902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist', lwp ) 
     360      WRITE ( numonp, nampisrem ) 
    354361 
    355362      IF(lwp) THEN                         ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r3557 r3875  
    186186      INTEGER  :: numdust, numsolub, numriv, numiron, numdepo, numhydro 
    187187      INTEGER  :: ierr, ierr1, ierr2, ierr3 
     188      INTEGER  :: ios                 ! Local integer output status for namelist read 
    188189      REAL(wp) :: zexpide, zdenitide, zmaskt 
    189190      REAL(wp) :: ztimes_dust, ztimes_riv, ztimes_ndep  
    … …  
    226227      sn_hydrofe  = FLD_N( 'hydrofe'    ,   -12     ,  'hydro'    ,  .false.   , .true.  ,   'yearly'  , ''       , ''         ) 
    227228 
    228       REWIND( numnatp )                     ! read numnatp 
    229       READ  ( numnatp, nampissbc ) 
     229      REWIND( numnatp_ref )              ! Namelist nampissbc in reference namelist : Pisces external sources of nutrients 
     230      READ  ( numnatp_ref, nampissbc, IOSTAT = ios, ERR = 901) 
     231901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist', lwp ) 
     232 
     233      REWIND( numnatp_cfg )              ! Namelist nampissbc in configuration namelist : Pisces external sources of nutrients 
     234      READ  ( numnatp_cfg, nampissbc, IOSTAT = ios, ERR = 902 ) 
     235902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist', lwp ) 
     236      WRITE ( numonp, nampissbc ) 
    230237 
    231238      IF(lwp) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90

    r3829 r3875  
    538538      !!---------------------------------------------------------------------- 
    539539      INTEGER  ::   jk, jn, kiter 
     540      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    540541      REAL(wp) ::   znum, zdiv 
    541542      REAL(wp) ::   zws, zwr, zwl,wmax, znummax 
    … …  
    548549      IF( nn_timing == 1 )  CALL timing_start('p4z_sink_init') 
    549550      ! 
    550       REWIND( numnatp )                     ! read nampiskrs 
    551       READ  ( numnatp, nampiskrs ) 
     551 
     552      REWIND( numnatp_ref )              ! Namelist nampiskrs in reference namelist : Pisces sinking Kriest 
     553      READ  ( numnatp_ref, nampiskrs, IOSTAT = ios, ERR = 901) 
     554901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in reference namelist', lwp ) 
     555 
     556      REWIND( numnatp_cfg )              ! Namelist nampiskrs in configuration namelist : Pisces sinking Kriest 
     557      READ  ( numnatp_cfg, nampiskrs, IOSTAT = ios, ERR = 902 ) 
     558902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in configuration namelist', lwp ) 
     559      WRITE ( numonp, nampiskrs ) 
    552560 
    553561      IF(lwp) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

    r3780 r3875  
    166166      NAMELIST/nampisdmp/ ln_pisdmp, nn_pisdmp, ln_pisclo 
    167167      NAMELIST/nampismass/ ln_check_mass 
    168       !!---------------------------------------------------------------------- 
    169  
    170  
    171       REWIND( numnatp ) 
    172       READ  ( numnatp, nampisbio ) 
     168      INTEGER :: ios                 ! Local integer output status for namelist read 
     169      !!---------------------------------------------------------------------- 
     170 
     171      REWIND( numnatp_ref )              ! Namelist nampisbio in reference namelist : Pisces variables 
     172      READ  ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 
     173901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist', lwp ) 
     174 
     175      REWIND( numnatp_cfg )              ! Namelist nampisbio in configuration namelist : Pisces variables 
     176      READ  ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 
     177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist', lwp ) 
     178      WRITE ( numonp, nampisbio ) 
    173179 
    174180      IF(lwp) THEN                         ! control print 
    … …  
    193199      xkr_mass_max = 1. 
    194200 
    195       REWIND( numnatp )                     ! read natkriest 
    196       READ  ( numnatp, nampiskrp ) 
     201      REWIND( numnatp_ref )              ! Namelist nampiskrp in reference namelist : Pisces Kriest 
     202      READ  ( numnatp_ref, nampiskrp, IOSTAT = ios, ERR = 903) 
     203903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in reference namelist', lwp ) 
     204 
     205      REWIND( numnatp_cfg )              ! Namelist nampiskrp in configuration namelist : Pisces Kriest 
     206      READ  ( numnatp_cfg, nampiskrp, IOSTAT = ios, ERR = 904 ) 
     207904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in configuration namelist', lwp ) 
     208      WRITE ( numonp, nampiskrp ) 
    197209 
    198210      IF(lwp) THEN 
    … …  
    217229      ln_pisclo = .false. 
    218230 
    219       REWIND( numnatp ) 
    220       READ  ( numnatp, nampisdmp ) 
     231      REWIND( numnatp_ref )              ! Namelist nampisdmp in reference namelist : Pisces damping 
     232      READ  ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 
     233905   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist', lwp ) 
     234 
     235      REWIND( numnatp_cfg )              ! Namelist nampisdmp in configuration namelist : Pisces damping 
     236      READ  ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 
     237906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist', lwp ) 
     238      WRITE ( numonp, nampisdmp ) 
    221239 
    222240      IF(lwp) THEN                         ! control print 
    … …  
    230248 
    231249      ln_check_mass = .false. 
    232       REWIND( numnatp )        
    233       READ  ( numnatp, nampismass ) 
     250      REWIND( numnatp_ref )              ! Namelist nampismass in reference namelist : Pisces mass conservation check 
     251      READ  ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 
     252907   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist', lwp ) 
     253 
     254      REWIND( numnatp_cfg )              ! Namelist nampismass in configuration namelist : Pisces mass conservation check  
     255      READ  ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 
     256908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist', lwp ) 
     257      WRITE ( numonp, nampismass ) 
     258 
    234259      IF(lwp) THEN                         ! control print 
    235260         WRITE(numout,*) ' ' 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90

    r3780 r3875  
    1717   PUBLIC 
    1818 
    19    INTEGER ::   numnatp 
     19   INTEGER ::   numnatp_ref = -1           !! Logical units for namelist pisces 
     20   INTEGER ::   numnatp_cfg = -1           !! Logical units for namelist pisces 
     21   INTEGER ::   numonp      = -1           !! Logical unit for namelist pisces output 
    2022 
    2123   !!*  Biological fluxes for light : variables shared by pisces & lobster 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

    r3680 r3875  
    4949      !! 
    5050      INTEGER :: jl, jn 
     51      INTEGER :: ios                 ! Local integer output status for namelist read 
    5152      TYPE(DIAG), DIMENSION(jp_pisces_2d)  :: pisdia2d 
    5253      TYPE(DIAG), DIMENSION(jp_pisces_3d)  :: pisdia3d 
    … …  
    6970#endif 
    7071      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
    71       CALL ctl_opn( numnatp, TRIM( clname ), 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    72  
     72      CALL ctl_opn( numnatp_ref, TRIM( clname )//'_ref', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     73      CALL ctl_opn( numnatp_cfg, TRIM( clname )//'_cfg', 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
     74      CALL ctl_opn( numonp     , 'output.namelist.pis' , 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    7375      ! 
    7476      IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN 
    … …  
    8890         END DO 
    8991 
    90          REWIND( numnatp )               !  
    91          READ  ( numnatp, nampisdia ) 
     92         REWIND( numnatp_ref )              ! Namelist nampisdia in reference namelist : Pisces diagnostics 
     93         READ  ( numnatp_ref, nampisdia, IOSTAT = ios, ERR = 901) 
     94901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in reference namelist', lwp ) 
     95 
     96         REWIND( numnatp_cfg )              ! Namelist nampisdia in configuration namelist : Pisces diagnostics 
     97         READ  ( numnatp_cfg, nampisdia, IOSTAT = ios, ERR = 902 ) 
     98902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in configuration namelist', lwp ) 
     99         WRITE ( numonp, nampisdia ) 
    92100 
    93101         DO jl = 1, jp_pisces_2d 
    … …  
    140148         END DO 
    141149 
    142          REWIND( numnatp ) 
    143          READ  ( numnatp, nampisdbi ) 
     150         REWIND( numnatp_ref )              ! Namelist nampisdbi in reference namelist : Pisces add. diagnostics 
     151         READ  ( numnatp_ref, nampisdbi, IOSTAT = ios, ERR = 903) 
     152903      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in reference namelist', lwp ) 
     153 
     154         REWIND( numnatp_cfg )              ! Namelist nampisdbi in configuration namelist : Pisces add. diagnostics 
     155         READ  ( numnatp_cfg, nampisdbi, IOSTAT = ios, ERR = 904 ) 
     156904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in configuration namelist', lwp ) 
     157         WRITE ( numonp, nampisdbi ) 
    144158 
    145159         DO jl = 1, jp_pisces_trd 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r3718 r3875  
    1515   USE trc                 ! ocean passive tracers variables 
    1616   USE in_out_manager      ! ocean dynamics and active tracers variables 
     17   USE lib_mpp           ! distributed memory computing library 
    1718 
    1819   IMPLICIT NONE 
    … …  
    7374      !! ** Purpose :   Read Namelist for tracer transport option 
    7475      !!---------------------------------------------------------------------- 
     76      INTEGER ::  ios                 ! Local integer output status for namelist read 
    7577      NAMELIST/namtrc_adv/ ln_trcadv_cen2 , ln_trcadv_tvd   ,    & 
    7678         &                 ln_trcadv_muscl, ln_trcadv_muscl2,    & 
    … …  
    9294      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 
    9395 
    94       REWIND ( numnat )               ! Read Namelist namtrc_adv : tracer advection scheme 
    95       READ   ( numnat, namtrc_adv ) 
     96      REWIND( numnat_ref )              ! Namelist namtrc_adv in reference namelist : Tracer advection scheme 
     97      READ  ( numnat_ref, namtrc_adv, IOSTAT = ios, ERR = 901) 
     98901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist', lwp ) 
     99 
     100      REWIND( numnat_cfg )              ! Namelist namtrc_adv in configuration namelist : Tracer advection scheme 
     101      READ  ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 
     102902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist', lwp ) 
     103      WRITE ( numont, namtrc_adv ) 
    96104 
    97105      IF(lwp) THEN                    ! Namelist print 
    … …  
    108116      ENDIF 
    109117      ! 
    110       REWIND( numnat )                ! Namelist namtrc_ldf 
    111       READ  ( numnat, namtrc_ldf ) 
     118      REWIND( numnat_ref )              ! Namelist namtrc_ldf in reference namelist : Tracer lateral diffusive operator 
     119      READ  ( numnat_ref, namtrc_ldf, IOSTAT = ios, ERR = 903) 
     120903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in reference namelist', lwp ) 
     121 
     122      REWIND( numnat_cfg )              ! Namelist namtrc_ldf in configuration namelist : Tracer lateral diffusive operator 
     123      READ  ( numnat_cfg, namtrc_ldf, IOSTAT = ios, ERR = 904 ) 
     124904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist', lwp ) 
     125      WRITE ( numont, namtrc_ldf ) 
    112126 
    113127      IF(lwp) THEN                    ! Namelist print 
    … …  
    127141 
    128142      !                                ! Vertical mixing 
    129       REWIND( numnat )                 !   ! Read namtopzdf namelist 
    130       READ  ( numnat, namtrc_zdf ) 
     143      REWIND( numnat_ref )              ! Namelist namtrc_zdf in reference namelist : Tracer vertical mixing 
     144      READ  ( numnat_ref, namtrc_zdf, IOSTAT = ios, ERR = 905) 
     145905   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_zdf in reference namelist', lwp ) 
     146 
     147      REWIND( numnat_cfg )              ! Namelist namtrc_zdf in configuration namelist : Tracer vertical mixing 
     148      READ  ( numnat_cfg, namtrc_zdf, IOSTAT = ios, ERR = 906 ) 
     149906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_zdf in configuration namelist', lwp ) 
     150      WRITE ( numont, namtrc_zdf ) 
    131151 
    132152      IF(lwp) THEN                     !   ! Control print 
    … …  
    138158 
    139159      ! 
    140       REWIND( numnat )                 !   Read Namelist namtoprad 
    141       READ  ( numnat, namtrc_rad ) 
     160      REWIND( numnat_ref )              ! Namelist namtrc_rad in reference namelist : Tracer negative concentrations 
     161      READ  ( numnat_ref, namtrc_rad, IOSTAT = ios, ERR = 907) 
     162907   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in reference namelist', lwp ) 
     163 
     164      REWIND( numnat_cfg )              ! Namelist namtrc_rad in configuration namelist : Tracer negative concentrations 
     165      READ  ( numnat_cfg, namtrc_rad, IOSTAT = ios, ERR = 908 ) 
     166908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist', lwp ) 
     167      WRITE ( numont, namtrc_rad ) 
    142168 
    143169      IF(lwp) THEN                     !   ! Control print 
    … …  
    149175 
    150176# if defined key_trcdmp 
    151       REWIND ( numnat )                  ! Read Namelist namtra_dmp : temperature and salinity damping term 
    152       READ   ( numnat, namtrc_dmp ) 
     177      REWIND( numnat_ref )              ! Namelist namtrc_dmp in reference namelist : Passive tracers newtonian damping 
     178      READ  ( numnat_ref, namtrc_dmp, IOSTAT = ios, ERR = 909) 
     179909   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in reference namelist', lwp ) 
     180 
     181      REWIND( numnat_cfg )              ! Namelist namtrc_dmp in configuration namelist : Passive tracers newtonian damping 
     182      READ  ( numnat_cfg, namtrc_dmp, IOSTAT = ios, ERR = 910) 
     183910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist', lwp ) 
     184      WRITE ( numont, namtrc_dmp ) 
     185 
    153186      IF( lzoom )   nn_zdmp_trc = 0           ! restoring to climatology at closed north or south boundaries 
    154187 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r3770 r3875  
    2121 
    2222   !! parameters for the control of passive tracers 
    23    !! -------------------------------------------------- 
    24    INTEGER, PUBLIC                                                 ::   numnat        !: logicla unit for the passive tracer NAMELIST 
     23   !! ---------------------------------------------    
     24   INTEGER, PUBLIC                                                 ::   numnat_ref = -1   !: logical unit for the reference passive tracer namelist_top_ref 
     25   INTEGER, PUBLIC                                                 ::   numnat_cfg = -1   !: logical unit for the reference passive tracer namelist_top_cfg 
     26   INTEGER, PUBLIC                                                 ::   numont     = -1   !: logical unit for the reference passive tracer namelist output output.namelist.top 
    2527   INTEGER, PUBLIC                                                 ::   numstr        !: logical unit for tracer statistics 
    2628   INTEGER, PUBLIC                                                 ::   numrtr        !: logical unit for trc restart (read ) 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

    r3827 r3875  
    5353      !!---------------------------------------------------------------------- 
    5454      ! 
    55       INTEGER            :: jl, jn                   ! dummy loop indicies 
     55      INTEGER            :: jl, jn                           ! dummy loop indicies 
    5656      INTEGER            :: ierr0, ierr1, ierr2, ierr3       ! temporary integers 
     57      INTEGER            :: ios                              ! Local integer output status for namelist read 
    5758      CHARACTER(len=100) :: clndta, clntrc 
    5859      REAL(wp)           :: zfact 
    … …  
    103104      END DO 
    104105      ! 
    105       REWIND( numnat )               ! read nattrc 
    106       READ  ( numnat, namtrc_dta ) 
     106      REWIND( numnat_ref )              ! Namelist namtrc_dta in reference namelist : Passive tracer input data 
     107      READ  ( numnat_ref, namtrc_dta, IOSTAT = ios, ERR = 901) 
     108901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta in reference namelist', lwp ) 
     109 
     110      REWIND( numnat_cfg )              ! Namelist namtrc_dta in configuration namelist : Passive tracer input data 
     111      READ  ( numnat_cfg, namtrc_dta, IOSTAT = ios, ERR = 902 ) 
     112902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta in configuration namelist', lwp ) 
     113      WRITE ( numont, namtrc_dta ) 
    107114 
    108115      IF( lwp ) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r3749 r3875  
    5555      !!--------------------------------------------------------------------- 
    5656      INTEGER ::  jn, ierr 
     57      INTEGER ::  ios                 ! Local integer output status for namelist read 
    5758      ! Definition of a tracer as a structure 
    5859      TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer  ! type of tracer for saving if not key_iomput 
    … …  
    7374      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    7475 
    75       CALL ctl_opn( numnat, 'namelist_top', 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. ) 
     76      CALL ctl_opn( numnat_ref, 'namelist_top_ref'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. ) 
     77      CALL ctl_opn( numnat_cfg, 'namelist_top_cfg'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. ) 
     78      CALL ctl_opn( numont    , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL',-1, numout, .FALSE. ) 
    7679 
    7780      ! Namelist nattrc (files) 
    … …  
    9598      ln_trcdmp = .FALSE. 
    9699 
    97  
    98       REWIND( numnat )               ! read nattrc 
    99       READ  ( numnat, namtrc ) 
     100      REWIND( numnat_ref )              ! Namelist namtrc in reference namelist : Passive tracer variables 
     101      READ  ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 
     102901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist', lwp ) 
     103 
     104      REWIND( numnat_cfg )              ! Namelist namtrc in configuration namelist : Passive tracer variables 
     105      READ  ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 
     106902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 
     107      WRITE ( numont, namtrc ) 
    100108 
    101109      DO jn = 1, jptra 
    … …  
    142150      nn_writebio = 10 
    143151 
    144       REWIND( numnat )               !  namelist namtoptrd : passive tracer trends diagnostic 
    145       READ  ( numnat, namtrc_dia ) 
     152      REWIND( numnat_ref )              ! Namelist namtrc_dia in reference namelist : Passive tracer diagnostics 
     153      READ  ( numnat_ref, namtrc_dia, IOSTAT = ios, ERR = 903) 
     154903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dia in reference namelist', lwp ) 
     155 
     156      REWIND( numnat_cfg )              ! Namelist namtrc_dia in configuration namelist : Passive tracer diagnostics 
     157      READ  ( numnat_cfg, namtrc_dia, IOSTAT = ios, ERR = 904 ) 
     158904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dia in configuration namelist', lwp ) 
     159      WRITE ( numont, namtrc_dia ) 
    146160 
    147161      IF(lwp) THEN 
    … …  
    221235         ln_trdtrc(:) = .FALSE. 
    222236 
    223          REWIND( numnat )               !  namelist namtoptrd : passive tracer trends diagnostic 
    224          READ  ( numnat, namtrc_trd ) 
     237         REWIND( numnat_ref )              ! Namelist namtrc_trd in reference namelist : Passive tracer trends 
     238         READ  ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 
     239905      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist', lwp ) 
     240 
     241         REWIND( numnat_cfg )              ! Namelist namtrc_trd in configuration namelist : Passive tracer trends 
     242         READ  ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 
     243906      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist', lwp ) 
     244         WRITE ( numont, namtrc_trd ) 
    225245 
    226246         IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.