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 7444 – NEMO

Changeset 7444


Ignore:
Timestamp:
2016-12-02T14:27:12+01:00 (6 years ago)
Author:
lovato
Message:

#1811 Add missing bdy namelist reading in dommsk.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r7439 r7444  
    9595      !! 
    9696      NAMELIST/namlbc/ rn_shlat, ln_vorlat 
     97      NAMELIST/nambdy/ ln_bdy ,nb_bdy, ln_coords_file, cn_coords_file,         & 
     98         &             ln_mask_file, cn_mask_file, cn_dyn2d, nn_dyn2d_dta,     & 
     99         &             cn_dyn3d, nn_dyn3d_dta, cn_tra, nn_tra_dta,             & 
     100         &             ln_tra_dmp, ln_dyn3d_dmp, rn_time_dmp, rn_time_dmp_out, & 
     101         &             cn_ice_lim, nn_ice_lim_dta,                           & 
     102         &             rn_ice_tem, rn_ice_sal, rn_ice_age,                 & 
     103         &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy 
    97104      !!--------------------------------------------------------------------- 
    98105      ! 
     
    144151      CALL lbc_lnk( tmask  , 'T', 1._wp )      ! Lateral boundary conditions 
    145152 
    146       ! Mask corrections for bdy (read in mppini2) 
     153     ! Mask corrections for bdy (read in mppini2) 
     154      REWIND( numnam_ref )              ! Namelist nambdy in reference namelist :Unstructured open boundaries 
     155      READ  ( numnam_ref, nambdy, IOSTAT = ios, ERR = 903) 
     156903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwp ) 
     157 
     158      REWIND( numnam_cfg )              ! Namelist nambdy in configuration namelist :Unstructured open boundaries 
     159      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 904 ) 
     160904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
    147161      ! ------------------------ 
    148162      IF ( ln_bdy .AND. ln_mask_file ) THEN 
Note: See TracChangeset for help on using the changeset viewer.