- 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/DIA/diahsb.F90
r3625 r3875 163 163 INTEGER :: jk ! dummy loop indice 164 164 INTEGER :: ierror ! local integer 165 INTEGER :: ios ! Local integer output status for namelist read 165 166 !! 166 167 NAMELIST/namhsb/ ln_diahsb 167 168 !!---------------------------------------------------------------------- 168 169 ! 169 REWIND ( numnam ) ! Read Namelist namhsb 170 READ ( numnam, namhsb ) 170 REWIND( numnam_ref ) ! Namelist namhsb in reference namelist : Heat & salt budget 171 READ ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 172 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist', lwp ) 173 174 REWIND( numnam_cfg ) ! Namelist namhsb in configuration namelist : Heat & salt budget 175 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 176 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 177 WRITE ( numond, namhsb ) 171 178 ! 172 179 IF(lwp) THEN ! Control print
Note: See TracChangeset
for help on using the changeset viewer.