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 12202 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM – NEMO

Ignore:
Timestamp:
2019-12-12T09:59:50+01:00 (4 years ago)
Author:
cetlod
Message:

dev_merge_option2 : merge in dev_r11613_ENHANCE-04_namelists_as_internalfiles

Location:
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/closea.F90

    r12173 r12202  
    7878      !!--------------------------------------------------------------------- 
    7979      !! 
    80       REWIND( numnam_ref )              ! Namelist namclo in reference namelist : Lateral momentum boundary condition 
    8180      READ  ( numnam_ref, namclo, IOSTAT = ios, ERR = 901 ) 
    8281901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namclo in reference namelist') 
    83       REWIND( numnam_cfg )              ! Namelist namclo in configuration namelist : Lateral momentum boundary condition 
    8482      READ  ( numnam_cfg, namclo, IOSTAT = ios, ERR = 902 ) 
    8583902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namclo in configuration namelist') 

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/domain.F90

    r12172 r12202  
    298298      ! 
    299299      ! 
    300       REWIND( numnam_ref )              ! Namelist namrun in reference namelist : Parameters of the run 
    301300      READ  ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 
    302301901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namrun in reference namelist' ) 
    303       REWIND( numnam_cfg )              ! Namelist namrun in configuration namelist : Parameters of the run 
    304302      READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    305303902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namrun in configuration namelist' ) 
    … …  
    395393#endif 
    396394 
    397       REWIND( numnam_ref )              ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 
    398395      READ  ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 
    399396903   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namdom in reference namelist' ) 
    400       REWIND( numnam_cfg )              ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 
    401397      READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    402398904   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdom in configuration namelist' ) 
    … …  
    426422#if defined key_netcdf4 
    427423      !                             ! NetCDF 4 case   ("key_netcdf4" defined) 
    428       REWIND( numnam_ref )              ! Namelist namnc4 in reference namelist : NETCDF 
    429424      READ  ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 
    430425907   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namnc4 in reference namelist' ) 
    431       REWIND( numnam_cfg )              ! Namelist namnc4 in configuration namelist : NETCDF 
    432426      READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    433427908   IF( ios >  0 )   CALL ctl_nam ( ios , 'namnc4 in configuration namelist' ) 

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/dommsk.F90

    r11536 r12202  
    103103      !!--------------------------------------------------------------------- 
    104104      ! 
    105       REWIND( numnam_ref )              ! Namelist namlbc in reference namelist : Lateral momentum boundary condition 
    106105      READ  ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 ) 
    107106901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namlbc in reference namelist' ) 
    108       REWIND( numnam_cfg )              ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition 
    109107      READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 
    110108902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namlbc in configuration namelist' ) 
    … …  
    148146 
    149147     ! Mask corrections for bdy (read in mppini2) 
    150       REWIND( numnam_ref )              ! Namelist nambdy in reference namelist :Unstructured open boundaries 
    151148      READ  ( numnam_ref, nambdy, IOSTAT = ios, ERR = 903) 
    152149903   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nambdy in reference namelist' ) 
    153       REWIND( numnam_cfg )              ! Namelist nambdy in configuration namelist :Unstructured open boundaries 
    154150      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 904 ) 
    155151904   IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy in configuration namelist' ) 

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/domvvl.F90

    r12166 r12202  
    10191019      !!----------------------------------------------------------------------  
    10201020      ! 
    1021       REWIND( numnam_ref )              ! Namelist nam_vvl in reference namelist :  
    10221021      READ  ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 
    10231022901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 
    1024       REWIND( numnam_cfg )              ! Namelist nam_vvl in configuration namelist : Parameters of the run 
    10251023      READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 
    10261024902   IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) 

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/dtatsd.F90

    r11536 r12202  
    6565      ierr0 = 0  ;  ierr1 = 0  ;  ierr2 = 0  ;  ierr3 = 0 
    6666      ! 
    67       REWIND( numnam_ref )              ! Namelist namtsd in reference namelist :  
    6867      READ  ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 
    6968901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtsd in reference namelist' ) 
    70       REWIND( numnam_cfg )              ! Namelist namtsd in configuration namelist : Parameters of the run 
    7169      READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
    7270902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtsd in configuration namelist' ) 
Note: See TracChangeset for help on using the changeset viewer.