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

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

    r3625 r3875  
    7272         &     'use more ocean levels or less ice layers/categories.' ) 
    7373 
    74       !                                ! Open the namelist file  
    75       CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
     74      !                                ! Open the reference and configuration namelist files and namelist output file  
     75      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
     76      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
     77      CALL ctl_opn( numoni,         'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    7678      !     
    7779      CALL ice_run_2                   ! read in namelist some run parameters 
    … …  
    111113      !!------------------------------------------------------------------- 
    112114      NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 
     115      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    113116      !!------------------------------------------------------------------- 
    114117      !                     
    115       REWIND( numnam_ice )                      ! Read Namelist namicerun  
    116       READ  ( numnam_ice , namicerun ) 
     118      REWIND( numnam_ice_ref )              ! Namelist namicerun in reference namelist : Parameters for ice 
     119      READ  ( numnam_ice_ref, namicerun, IOSTAT = ios, ERR = 901) 
     120901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in reference namelist', lwp ) 
     121 
     122      REWIND( numnam_ice_cfg )              ! Namelist namicerun in configuration namelist : Parameters for ice 
     123      READ  ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 
     124902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 
     125      WRITE ( numoni, namicerun ) 
    117126      ! 
    118127      IF(lwp) THEN                              ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90

    r3625 r3875  
    176176       INTEGER  ::   jv   ! dummy loop indice 
    177177       INTEGER  ::   ntot , ndeb, nv, ierr   ! local integer 
     178       INTEGER  ::   ios                     ! Local integer output status for namelist read 
    178179       REAL(wp) ::   zxx0, zxx1              ! local scalars 
    179180 
    180181       NAMELIST/namicedia/fmtinf, nfrinf, ninfo, ntmoy 
    181182       !!------------------------------------------------------------------- 
    182  
    183        REWIND( numnam_ice )                     ! Read Namelist namicedia 
    184        READ  ( numnam_ice  , namicedia ) 
     183                     
     184       REWIND( numnam_ice_ref )              ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 
     185       READ  ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 
     186901    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 
     187 
     188       REWIND( numnam_ice_cfg )              ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu  
     189       READ  ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 
     190902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 
     191       WRITE ( numoni, namicedia ) 
    185192        
    186193       IF(lwp) THEN                             ! control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdmp_2.F90

    r3635 r3875  
    9797      INTEGER  :: ji, jj, jk       ! dummy loop indices 
    9898      INTEGER  :: irelax, ierror   ! error flag for allocation 
     99      INTEGER  ::   ios            ! Local integer output status for namelist read 
    99100      ! 
    100101      REAL(wp) :: zdmpmax, zdmpmin, zfactor, zreltim ! temporary scalar 
    … …  
    116117      sn_hicif = FLD_N( 'ice_damping ', -1       , 'hicif'  ,  .true.    , .true.  ,  'yearly'   ,  ''      ,  ''      ) 
    117118      sn_frld  = FLD_N( 'ice_damping ', -1       , 'frld'   ,  .true.    , .true.  ,  'yearly'   ,  ''      ,  ''      ) 
     119                     
     120      REWIND( numnam_ice_ref )              ! Namelist namice_dmp in reference namelist : Ice restoring 
     121      READ  ( numnam_ice_ref, namice_dmp, IOSTAT = ios, ERR = 901) 
     122901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in reference namelist', lwp ) 
    118123 
    119       REWIND( numnam_ice )                !* read in namelist_ice namicedmp 
    120       READ  ( numnam_ice, namice_dmp ) 
     124      REWIND( numnam_ice_cfg )              ! Namelist  namice_dmp in configuration namelist : Ice restoring 
     125      READ  ( numnam_ice_cfg, namice_dmp, IOSTAT = ios, ERR = 902 ) 
     126902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in configuration namelist', lwp ) 
     127      WRITE ( numoni, namice_dmp ) 
    121128      ! 
    122129      IF ( lwp ) THEN                     !* control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90

    r3625 r3875  
    224224      !! ** input   :   Namelist namicedyn 
    225225      !!------------------------------------------------------------------- 
     226      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    226227      NAMELIST/namicedyn/ epsd, alpha,     & 
    227228         &                dm, nbiter, nbitdr, om, resl, cw, angvg, pstar,   & 
    … …  
    229230         &                nevp, telast,alphaevp 
    230231      !!------------------------------------------------------------------- 
    231  
    232       REWIND ( numnam_ice )                       ! Read Namelist namicedyn 
    233       READ   ( numnam_ice  , namicedyn ) 
     232                     
     233      REWIND( numnam_ice_ref )              ! Namelist namicedyn in reference namelist : Ice dynamics 
     234      READ  ( numnam_ice_ref, namicedyn, IOSTAT = ios, ERR = 901) 
     235901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in reference namelist', lwp ) 
     236 
     237      REWIND( numnam_ice_cfg )              ! Namelist namicedyn in configuration namelist : Ice dynamics 
     238      READ  ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 
     239902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 
     240      WRITE ( numoni, namicedyn ) 
    234241 
    235242      IF(lwp) THEN                                ! Control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

    r3625 r3875  
    163163      INTEGER :: inum_ice 
    164164      INTEGER :: ji,jj 
     165      INTEGER :: ios                 ! Local integer output status for namelist read 
    165166 
    166167      NAMELIST/namiceini/ ln_limini, ttest, hninn, hginn, alinn, & 
    167168         &                hnins, hgins, alins 
    168169      !!------------------------------------------------------------------- 
    169       ! 
    170       REWIND ( numnam_ice )               ! Read Namelist namiceini  
    171       READ   ( numnam_ice , namiceini ) 
     170                    
     171      REWIND( numnam_ice_ref )              ! Namelist namiceini in reference namelist : Ice initial state 
     172      READ  ( numnam_ice_ref, namiceini, IOSTAT = ios, ERR = 901) 
     173901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in reference namelist', lwp ) 
     174 
     175      REWIND( numnam_ice_cfg )              ! Namelist namiceini in configuration namelist : Ice initial state 
     176      READ  ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 
     177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 
     178      WRITE ( numoni, namiceini ) 
    172179      ! 
    173180      IF(lwp) THEN 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r3625 r3875  
    530530      !! ** input   :   Namelist namicether 
    531531      !!------------------------------------------------------------------- 
     532      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    532533      NAMELIST/namicethd/ hmelt , hiccrit, hicmin, hiclim, amax  ,        & 
    533534         &                swiqst, sbeta  , parlat, hakspl, hibspl, exld,  & 
    534535         &                hakdif, hnzst  , thth  , parsub, alphs 
    535536      !!------------------------------------------------------------------- 
    536       ! 
    537       REWIND( numnam_ice )                  ! read namelist 
    538       READ  ( numnam_ice , namicethd ) 
     537                     
     538      REWIND( numnam_ice_ref )              ! Namelist namicethd in reference namelist : Ice thermodynamics 
     539      READ  ( numnam_ice_ref, namicethd, IOSTAT = ios, ERR = 901) 
     540901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in reference namelist', lwp ) 
     541 
     542      REWIND( numnam_ice_cfg )              ! Namelist namicethd in configuration namelist : Ice thermodynamics 
     543      READ  ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 
     544902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 
     545      WRITE ( numoni, namicethd ) 
     546 
    539547      IF( lk_cpl .AND. parsub /= 0.0 )   CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) 
    540548      ! 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r3764 r3875  
    297297      !! ** input   :   Namelist namicetrp 
    298298      !!------------------------------------------------------------------- 
     299      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    299300      NAMELIST/namicetrp/ bound 
    300301      !!------------------------------------------------------------------- 
    301       ! 
    302       REWIND ( numnam_ice )      ! Read Namelist namicetrp 
    303       READ   ( numnam_ice  , namicetrp ) 
     302                     
     303      REWIND( numnam_ice_ref )              ! Namelist namicetrp in reference namelist : Ice advection 
     304      READ  ( numnam_ice_ref, namicetrp, IOSTAT = ios, ERR = 901) 
     305901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in reference namelist', lwp ) 
     306 
     307      REWIND( numnam_ice_cfg )              ! Namelist namicetrp in configuration namelist : Ice advection 
     308      READ  ( numnam_ice_cfg, namicetrp, IOSTAT = ios, ERR = 902 ) 
     309902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in configuration namelist', lwp ) 
     310      WRITE ( numoni, namicetrp ) 
     311 
    304312      IF(lwp) THEN 
    305313         WRITE(numout,*) 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r3764 r3875  
    230230      !!------------------------------------------------------------------- 
    231231      INTEGER ::   nf      ! ??? 
     232      INTEGER ::   ios     ! Local integer output status for namelist read 
    232233      TYPE FIELD  
    233234         CHARACTER(len = 35) :: ztitle  
    … …  
    255256         CALL ctl_stop( 'STOP', 'lim_wri_init_2 : unable to allocate standard arrays' )   ;   RETURN 
    256257      ENDIF 
    257  
    258       REWIND ( numnam_ice )                ! Read Namelist namicewri 
    259       READ   ( numnam_ice  , namiceout ) 
     258                     
     259      REWIND( numnam_ice_ref )              ! Namelist namiceout in reference namelist : Ice outputs 
     260      READ  ( numnam_ice_ref, namiceout, IOSTAT = ios, ERR = 901) 
     261901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in reference namelist', lwp ) 
     262 
     263      REWIND( numnam_ice_cfg )              ! Namelist namiceout in configuration namelist : Ice outputs 
     264      READ  ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 
     265902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 
     266      WRITE ( numoni, namiceout ) 
    260267       
    261268      zfield( 1) = field_1 
Note: See TracChangeset for help on using the changeset viewer.