Changeset 474 for trunk/NEMO/OPA_SRC/DIA
- Timestamp:
- 2006-05-11T17:24:19+02:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DIA
- Files:
-
- 3 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 -
trunk/NEMO/OPA_SRC/DIA/diahdy.F90
r460 r474 107 107 IF(lwp) WRITE(numout,*) 'dia_hdy : computation of dynamical heigh' 108 108 IF(lwp) WRITE(numout,*) '~~~~~~~' 109 IF( .NOT. ln_zco ) THEN ! Dynamic height diagnostics only implemented in z-coordinate 110 IF(lwp) WRITE(numout,cform_err) 111 IF(lwp) WRITE(numout,*) ' ln_zps or ln_sco, Dynamical height diagnostics not yet implemented' 112 nstop = nstop + 1 113 ENDIF 109 IF( .NOT. ln_zco ) & 110 & CALL ctl_stop( ' ln_zps or ln_sco, Dynamical height diagnostics not yet implemented' ) 114 111 DO jk = 1, jpk 115 112 IF( gdepw_0(jk) > zgdsup ) GOTO 110 -
trunk/NEMO/OPA_SRC/DIA/diaspr.F90
r359 r474 142 142 ! control 143 143 # if ! defined key_dynspg_rl 144 IF(lwp) WRITE(numout,cform_err) 145 IF(lwp) WRITE(numout,*) ' surface pressure already explicitly computed !!' 146 nstop = nstop + 1 144 CALL ctl_stop( ' surface pressure already explicitly computed !!' ) 147 145 # endif 148 146
Note: See TracChangeset
for help on using the changeset viewer.