Changeset 7444 for branches/2016/dev_merge_2016
- Timestamp:
- 2016-12-02T14:27:12+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r7439 r7444 95 95 !! 96 96 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 97 104 !!--------------------------------------------------------------------- 98 105 ! … … 144 151 CALL lbc_lnk( tmask , 'T', 1._wp ) ! Lateral boundary conditions 145 152 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) 156 903 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 ) 160 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 147 161 ! ------------------------ 148 162 IF ( ln_bdy .AND. ln_mask_file ) THEN
Note: See TracChangeset
for help on using the changeset viewer.