- 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/LIM_SRC_2/limdia_2.F90
r3625 r3875 176 176 INTEGER :: jv ! dummy loop indice 177 177 INTEGER :: ntot , ndeb, nv, ierr ! local integer 178 INTEGER :: ios ! Local integer output status for namelist read 178 179 REAL(wp) :: zxx0, zxx1 ! local scalars 179 180 180 181 NAMELIST/namicedia/fmtinf, nfrinf, ninfo, ntmoy 181 182 !!------------------------------------------------------------------- 182 183 REWIND( numnam_ice ) ! Read Namelist namicedia 184 READ ( numnam_ice , namicedia ) 183 184 REWIND( numnam_ice_ref ) ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 185 READ ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 186 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 187 188 REWIND( numnam_ice_cfg ) ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu 189 READ ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 190 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 191 WRITE ( numoni, namicedia ) 185 192 186 193 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.