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/OPA_SRC/TRA – 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/OPA_SRC/TRA
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r3625 r3875  
    708708      NAMELIST/nameos/ nn_eos, rn_alpha, rn_beta 
    709709      !!---------------------------------------------------------------------- 
    710       ! 
    711       REWIND( numnam )            ! Read Namelist nameos : equation of state 
    712       READ  ( numnam, nameos ) 
     710      INTEGER  ::   ios 
     711      ! 
     712      REWIND( numnam_ref )              ! Namelist nameos in reference namelist : equation of state 
     713      READ  ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 
     714901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwp ) 
     715 
     716      REWIND( numnam_cfg )              ! Namelist nameos in configuration namelist : equation of state 
     717      READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 
     718902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
     719      WRITE( numond, nameos ) 
    713720      ! 
    714721      IF(lwp) THEN                ! Control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r3718 r3875  
    151151      !!---------------------------------------------------------------------- 
    152152      INTEGER ::   ioptio 
     153      INTEGER ::   ios                 ! Local integer output status for namelist read 
    153154      !! 
    154155      NAMELIST/namtra_adv/ ln_traadv_cen2 , ln_traadv_tvd,     & 
    … …  
    158159      !!---------------------------------------------------------------------- 
    159160 
    160       REWIND( numnam )                ! Read Namelist namtra_adv : tracer advection scheme 
    161       READ  ( numnam, namtra_adv ) 
     161      REWIND( numnam_ref )              ! Namelist namtra_adv in reference namelist : Tracer advection scheme 
     162      READ  ( numnam_ref, namtra_adv, IOSTAT = ios, ERR = 901) 
     163901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist', lwp ) 
     164 
     165      REWIND( numnam_cfg )              ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 
     166      READ  ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 
     167902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
     168      WRITE ( numond, namtra_adv ) 
    162169 
    163170      IF(lwp) THEN                    ! Namelist print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r3625 r3875  
    129129      INTEGER  ::   ji, jj              ! dummy loop indices 
    130130      INTEGER  ::   inum                ! temporary logical unit 
     131      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    131132      !! 
    132133      NAMELIST/nambbc/ln_trabbc, nn_geoflx, rn_geoflx_cst  
    133134      !!---------------------------------------------------------------------- 
    134135 
    135       REWIND( numnam )                 ! Read Namelist nambbc : bottom momentum boundary condition 
    136       READ  ( numnam, nambbc ) 
     136      REWIND( numnam_ref )              ! Namelist nambbc in reference namelist : Bottom momentum boundary condition 
     137      READ  ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901) 
     138901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist', lwp ) 
     139 
     140      REWIND( numnam_cfg )              ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition 
     141      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 
     142902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
     143      WRITE ( numond, nambbc ) 
    137144 
    138145      IF(lwp) THEN                     ! Control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r3764 r3875  
    560560      INTEGER ::   ji, jj               ! dummy loop indices 
    561561      INTEGER ::   ii0, ii1, ij0, ij1   ! temporary integer 
     562      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    562563      REAL(wp), POINTER, DIMENSION(:,:) :: zmbk 
    563564      !! 
    … …  
    570571      ! 
    571572 
    572       REWIND ( numnam )              !* Read Namelist nambbl : bottom boundary layer scheme 
    573       READ   ( numnam, nambbl ) 
     573      REWIND( numnam_ref )              ! Namelist nambbl in reference namelist : Bottom boundary layer scheme 
     574      READ  ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901) 
     575901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwp ) 
     576 
     577      REWIND( numnam_cfg )              ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme 
     578      READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 
     579902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
     580      WRITE ( numond, nambbl ) 
    574581      ! 
    575582      l_bbl = .TRUE.                 !* flag to compute bbl coef and transport 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r3294 r3875  
    194194      !!---------------------------------------------------------------------- 
    195195      NAMELIST/namtra_dmp/ ln_tradmp, nn_hdmp, nn_zdmp, rn_surf, rn_bot, rn_dep, nn_file 
    196       !!---------------------------------------------------------------------- 
    197  
    198       REWIND ( numnam )                  ! Read Namelist namtra_dmp : temperature and salinity damping term 
    199       READ   ( numnam, namtra_dmp ) 
     196      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     197      !!---------------------------------------------------------------------- 
     198 
     199      REWIND( numnam_ref )              ! Namelist namtra_dmp in reference namelist : Temperature and salinity damping term 
     200      READ  ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 
     201901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 
     202 
     203      REWIND( numnam_cfg )              ! Namelist namtra_dmp in configuration namelist : Temperature and salinity damping term 
     204      READ  ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 
     205902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
     206      WRITE ( numond, namtra_dmp ) 
    200207       
    201208      IF( lzoom )   nn_zdmp = 0          ! restoring to climatology at closed north or south boundaries 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r3680 r3875  
    315315      !!---------------------------------------------------------------------- 
    316316      ! 
    317       INTEGER  ::   ji, jj, jk     ! dummy loop indices 
     317      INTEGER  ::   ji, jj, jk                   ! dummy loop indices 
    318318      INTEGER  ::   irgb, ierror, ioptio, nqsr   ! local integer 
     319      INTEGER  ::   ios                          ! Local integer output status for namelist read 
    319320      REAL(wp) ::   zz0, zc0  , zc1, zcoef       ! local scalars 
    320321      REAL(wp) ::   zz1, zc2  , zc3, zchl        !   -      - 
    … …  
    342343      sn_chl = FLD_N( 'chlorophyll' ,    -1     ,  'CHLA'    ,  .true.     , .true.  ,   'yearly'  , ''       , ''         ) 
    343344      ! 
    344       REWIND( numnam )            ! Read Namelist namtra_qsr : ratio and length of penetration 
    345       READ  ( numnam, namtra_qsr ) 
     345 
     346      REWIND( numnam_ref )              ! Namelist namtra_qsr in reference namelist : Ratio and length of penetration 
     347      READ  ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 
     348901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwp ) 
     349 
     350      REWIND( numnam_cfg )              !  Namelist namtra_qsr in configuration namelist : Ratio and length of penetration 
     351      READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 
     352902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
     353      WRITE ( numond, namtra_qsr ) 
    346354      ! 
    347355      IF(lwp) THEN                ! control print 
Note: See TracChangeset for help on using the changeset viewer.