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/LIM_SRC_3 – 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/LIM_SRC_3
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

    r3625 r3875  
    7171         &     'use more ocean levels or less ice/snow layers/categories.' ) 
    7272 
    73       !                                ! Open the namelist file  
    74       CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
     73                                       ! Open the reference and configuration namelist files and namelist output file  
     74      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
     75      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
     76      CALL ctl_opn( numoni,         'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    7577      ! 
    7678      CALL ice_run                     ! set some ice run parameters 
    … …  
    127129      !!------------------------------------------------------------------- 
    128130      NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, acrit, hsndif, hicdif, cai, cao, ln_nicep 
     131      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    129132      !!------------------------------------------------------------------- 
    130133      !                     
    131       REWIND( numnam_ice )                ! Read Namelist namicerun  
    132       READ  ( numnam_ice , namicerun ) 
     134      REWIND( numnam_ice_ref )              ! Namelist namicerun in reference namelist : Parameters for ice 
     135      READ  ( numnam_ice_ref, namicerun, IOSTAT = ios, ERR = 901) 
     136901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in reference namelist', lwp ) 
     137 
     138      REWIND( numnam_ice_cfg )              ! Namelist namicerun in configuration namelist : Parameters for ice 
     139      READ  ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 
     140902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 
     141      WRITE ( numoni, namicerun ) 
    133142      ! 
    134143      IF( lk_mpp .AND. ln_nicep ) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limdia.F90

    r3625 r3875  
    415415      INTEGER  ::   jv    ! dummy loop indice 
    416416      INTEGER  ::   ierr, ntot , ndeb , irecl   ! local integers 
     417      INTEGER  ::   ios                         ! Local integer output status for namelist read 
    417418      REAL(wp) ::   zxx0, zxx1    ! local scalars 
    418419      CHARACTER(len=jpchinf) ::   titinf 
    … …  
    422423      !!------------------------------------------------------------------- 
    423424      ! 
    424       REWIND( numnam_ice )             ! read namicedia namelist 
    425       READ  ( numnam_ice, namicedia ) 
     425      REWIND( numnam_ice_ref )              ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 
     426      READ  ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 
     427901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 
     428 
     429      REWIND( numnam_ice_cfg )              ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu  
     430      READ  ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 
     431902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 
     432      WRITE ( numoni, namicedia ) 
    426433      ! 
    427434      IF(lwp) THEN                     ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

    r3625 r3875  
    226226      !! ** input   :   Namelist namicedyn 
    227227      !!------------------------------------------------------------------- 
     228      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    228229      NAMELIST/namicedyn/ epsd, alpha,     & 
    229230         &                dm, nbiter, nbitdr, om, resl, cw, angvg, pstar,   & 
    … …  
    232233      !!------------------------------------------------------------------- 
    233234 
    234       REWIND( numnam_ice )                ! Read Namelist namicedyn 
    235       READ  ( numnam_ice  , namicedyn ) 
     235      REWIND( numnam_ice_ref )              ! Namelist namicedyn in reference namelist : Ice dynamics 
     236      READ  ( numnam_ice_ref, namicedyn, IOSTAT = ios, ERR = 901) 
     237901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in reference namelist', lwp ) 
     238 
     239      REWIND( numnam_ice_cfg )              ! Namelist namicedyn in configuration namelist : Ice dynamics 
     240      READ  ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 
     241902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 
     242      WRITE ( numoni, namicedyn ) 
    236243       
    237244      IF(lwp) THEN                        ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r3625 r3875  
    536536      !! ** input  :   namelist namiceini 
    537537      !!----------------------------------------------------------------------------- 
     538      INTEGER :: ios                 ! Local integer output status for namelist read 
    538539      NAMELIST/namiceini/ ttest, hninn, hginn_u, aginn_u, hginn_d, aginn_d, hnins,   & 
    539540         &                hgins_u, agins_u, hgins_d, agins_d, sinn, sins 
    540541      !!----------------------------------------------------------------------------- 
    541542      ! 
    542       REWIND ( numnam_ice )               ! Read Namelist namiceini  
    543       READ   ( numnam_ice , namiceini ) 
     543      REWIND( numnam_ice_ref )              ! Namelist namiceini in reference namelist : Ice initial state 
     544      READ  ( numnam_ice_ref, namiceini, IOSTAT = ios, ERR = 901) 
     545901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in reference namelist', lwp ) 
     546 
     547      REWIND( numnam_ice_cfg )              ! Namelist namiceini in configuration namelist : Ice initial state 
     548      READ  ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 
     549902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 
     550      WRITE ( numoni, namiceini ) 
    544551      ! 
    545552      IF(lwp) THEN                        ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r3764 r3875  
    14091409      !! ** input   :   Namelist namiceitdme 
    14101410      !!------------------------------------------------------------------- 
     1411      INTEGER :: ios                 ! Local integer output status for namelist read 
    14111412      NAMELIST/namiceitdme/ ridge_scheme_swi, Cs, Cf, fsnowrdg, fsnowrft,&  
    14121413         Gstar, astar,                                & 
    … …  
    14161417      !!------------------------------------------------------------------- 
    14171418      ! 
    1418       REWIND( numnam_ice )                   ! read namiceitdme namelist 
    1419       READ  ( numnam_ice , namiceitdme) 
     1419      REWIND( numnam_ice_ref )              ! Namelist namicetdme in reference namelist : Ice mechanical ice redistribution 
     1420      READ  ( numnam_ice_ref, namiceitdme, IOSTAT = ios, ERR = 901) 
     1421901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in reference namelist', lwp ) 
     1422 
     1423      REWIND( numnam_ice_cfg )              ! Namelist namiceitdme in configuration namelist : Ice mechanical ice redistribution 
     1424      READ  ( numnam_ice_cfg, namiceitdme, IOSTAT = ios, ERR = 902 ) 
     1425902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in configuration namelist', lwp ) 
     1426      WRITE ( numoni, namiceitdme ) 
    14201427      ! 
    14211428      IF (lwp) THEN                          ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r3625 r3875  
    791791      !! ** input   :   Namelist namicether 
    792792      !!------------------------------------------------------------------- 
     793      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    793794      NAMELIST/namicethd/ hmelt , hiccrit, fraz_swi, maxfrazb, vfrazb, Cfrazb,   & 
    794795         &                hicmin, hiclim, amax  ,                                & 
    … …  
    804805      ENDIF 
    805806      ! 
    806       REWIND( numnam_ice )                  ! read Namelist numnam_ice 
    807       READ  ( numnam_ice , namicethd ) 
     807      REWIND( numnam_ice_ref )              ! Namelist namicethd in reference namelist : Ice thermodynamics 
     808      READ  ( numnam_ice_ref, namicethd, IOSTAT = ios, ERR = 901) 
     809901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in reference namelist', lwp ) 
     810 
     811      REWIND( numnam_ice_cfg )              ! Namelist namicethd in configuration namelist : Ice thermodynamics 
     812      READ  ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 
     813902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 
     814      WRITE ( numoni, namicethd ) 
    808815      ! 
    809816      IF(lwp) THEN                          ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r3625 r3875  
    203203      !! ** input   :   Namelist namicesal 
    204204      !!------------------------------------------------------------------- 
     205      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    205206      NAMELIST/namicesal/ num_sal, bulk_sal, sal_G, time_G, sal_F, time_F,   & 
    206207         &                s_i_max, s_i_min, s_i_0, s_i_1 
    207208      !!------------------------------------------------------------------- 
    208209      ! 
    209       REWIND( numnam_ice )                   ! Read Namelist namicesal 
    210       READ  ( numnam_ice  , namicesal ) 
     210      REWIND( numnam_ice_ref )              ! Namelist namicesal in reference namelist : Ice salinity 
     211      READ  ( numnam_ice_ref, namicesal, IOSTAT = ios, ERR = 901) 
     212901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in reference namelist', lwp ) 
     213 
     214      REWIND( numnam_ice_cfg )              ! Namelist namicesal in configuration namelist : Ice salinity 
     215      READ  ( numnam_ice_cfg, namicesal, IOSTAT = ios, ERR = 902 ) 
     216902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in configuration namelist', lwp ) 
     217      WRITE ( numoni, namicesal ) 
    211218      ! 
    212219      IF(lwp) THEN                           ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r3853 r3875  
    365365      !!------------------------------------------------------------------- 
    366366      INTEGER ::   nf      ! ??? 
     367      INTEGER ::   ios     ! Local integer output status for namelist read 
    367368 
    368369      TYPE FIELD  
    … …  
    395396         field_37, add_diag_swi 
    396397      !!------------------------------------------------------------------- 
    397  
    398       REWIND( numnam_ice )                ! Read Namelist namicewri 
    399       READ  ( numnam_ice  , namiceout ) 
     398      REWIND( numnam_ice_ref )              ! Namelist namiceout in reference namelist : Ice outputs 
     399      READ  ( numnam_ice_ref, namiceout, IOSTAT = ios, ERR = 901) 
     400901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in reference namelist', lwp ) 
     401 
     402      REWIND( numnam_ice_cfg )              ! Namelist namiceout in configuration namelist : Ice outputs 
     403      READ  ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 
     404902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 
     405      WRITE ( numoni, namiceout ) 
    400406 
    401407      zfield(1)  = field_1 
Note: See TracChangeset for help on using the changeset viewer.