- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r3294 r3875 194 194 !!---------------------------------------------------------------------- 195 195 NAMELIST/namtra_dmp/ ln_tradmp, nn_hdmp, nn_zdmp, rn_surf, rn_bot, rn_dep, nn_file 196 !!---------------------------------------------------------------------- 197 198 REWIND ( numnam ) ! Read Namelist namtra_dmp : temperature and salinity damping term 199 READ ( numnam, namtra_dmp ) 196 INTEGER :: ios ! Local integer output status for namelist read 197 !!---------------------------------------------------------------------- 198 199 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : Temperature and salinity damping term 200 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 201 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 202 203 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : Temperature and salinity damping term 204 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 205 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 206 WRITE ( numond, namtra_dmp ) 200 207 201 208 IF( lzoom ) nn_zdmp = 0 ! restoring to climatology at closed north or south boundaries
Note: See TracChangeset
for help on using the changeset viewer.