Changeset 474 for trunk/NEMO/OPA_SRC/DIA/diafwb.F90
- Timestamp:
- 2006-05-11T17:24:19+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diafwb.F90
r407 r474 198 198 CASE DEFAULT ! ORCA R05 or R025 199 199 ! ! ======================= 200 IF(lwp) WRITE(numout,cform_err) 201 IF(lwp) WRITE(numout,*)' dia_fwb Not yet implemented in ORCA_R05 or R025' 202 nstop = nstop + 1 200 CALL ctl_stop( ' dia_fwb Not yet implemented in ORCA_R05 or R025' ) 203 201 ! 204 202 END SELECT … … 242 240 CASE DEFAULT ! ORCA R05 or R025 243 241 ! ! ======================= 244 IF(lwp) WRITE(numout,cform_err) 245 IF(lwp) WRITE(numout,*)' dia_fwb Not yet implemented in ORCA_R05 or R025' 246 nstop = nstop + 1 242 CALL ctl_stop( ' dia_fwb Not yet implemented in ORCA_R05 or R025' ) 247 243 ! 248 244 END SELECT … … 286 282 CASE DEFAULT ! ORCA R05 or R025 287 283 ! ! ======================= 288 IF(lwp) WRITE(numout,cform_err) 289 IF(lwp) WRITE(numout,*)' dia_fwb Not yet implemented in ORCA_R05 or R025' 290 nstop = nstop + 1 284 CALL ctl_stop( ' dia_fwb Not yet implemented in ORCA_R05 or R025' ) 291 285 ! 292 286 END SELECT … … 330 324 CASE DEFAULT ! ORCA R05 or R025 331 325 ! ! ======================= 332 IF(lwp) WRITE(numout,cform_err) 333 IF(lwp) WRITE(numout,*)' dia_fwb Not yet implemented in ORCA_R05 or R025' 334 nstop = nstop + 1 326 CALL ctl_stop( ' dia_fwb Not yet implemented in ORCA_R05 or R025' ) 335 327 ! 336 328 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.