Changeset 4166 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2013-11-08T06:51:52+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r4162 r4166 26 26 USE restart ! ocean restart 27 27 USE wrk_nemo ! work arrays 28 USE sbcrnf ! river runoffd 28 29 29 30 IMPLICIT NONE … … 196 197 !! 197 198 NAMELIST/namhsb/ ln_diahsb 199 ! 200 INTEGER :: ios 198 201 !!---------------------------------------------------------------------- 199 ! 200 REWIND ( numnam ) ! Read Namelist namhsb 201 READ ( numnam, namhsb ) 202 203 IF(lwp) THEN 204 WRITE(numout,*) 205 WRITE(numout,*) 'dia_hsb_init : check the heat and salt budgets' 206 WRITE(numout,*) '~~~~~~~~ ' 207 ENDIF 208 209 REWIND( numnam_ref ) ! Namelist namhsb in reference namelist 210 READ ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 211 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist', lwp ) 212 213 REWIND( numnam_cfg ) ! Namelist namhsb in configuration namelist 214 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 215 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 216 WRITE ( numond, namhsb ) 217 202 218 ! 203 219 IF(lwp) THEN ! Control print 204 220 WRITE(numout,*) 205 WRITE(numout,*) 'dia_hsb_init : check the heat and salt budgets'206 WRITE(numout,*) '~~~~~~~~~~~~'207 221 WRITE(numout,*) ' Namelist namhsb : set hsb parameters' 208 222 WRITE(numout,*) ' Switch for hsb diagnostic (T) or not (F) ln_diahsb = ', ln_diahsb
Note: See TracChangeset
for help on using the changeset viewer.