Changeset 474 for trunk/NEMO/OPA_SRC/LDF/ldfdyn.F90
- Timestamp:
- 2006-05-11T17:24:19+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfdyn.F90
r461 r474 122 122 IF(lwp) WRITE(numout,*) ' momentum mixing coef. = F( depth )' 123 123 ioptio = ioptio+1 124 IF( ln_sco ) THEN 125 IF(lwp) WRITE(numout,cform_err) 126 IF(lwp) WRITE(numout,*) ' key_dynldf_c1d cannot be used in s-coordinate (ln_sco)' 127 nstop = nstop + 1 128 ENDIF 124 IF( ln_sco ) CALL ctl_stop( ' key_dynldf_c1d cannot be used in s-coordinate (ln_sco)' ) 129 125 #endif 130 126 IF( ioptio == 0 ) THEN 131 127 IF(lwp) WRITE(numout,*) ' momentum mixing coef. = constant (default option)' 132 128 ELSEIF( ioptio > 1 ) THEN 133 IF(lwp) WRITE(numout,cform_err) 134 IF(lwp) WRITE(numout,*) ' use only one of the following keys:', & 135 ' key_dynldf_c3d, key_dynldf_c2d, key_dynldf_c1d' 136 nstop = nstop + 1 129 CALL ctl_stop( ' use only one of the following keys:', & 130 & ' key_dynldf_c3d, key_dynldf_c2d, key_dynldf_c1d' ) 137 131 ENDIF 138 132 … … 140 134 IF( ln_dynldf_bilap ) THEN 141 135 IF(lwp) WRITE(numout,*) ' biharmonic momentum diffusion' 142 IF( ahm0 > 0 .AND. .NOT. lk_esopa ) THEN 143 IF(lwp) WRITE(numout,cform_err) 144 IF(lwp) WRITE(numout,*) 'The horizontal viscosity coef. ahm0 must be negative' 145 nstop = nstop + 1 146 ENDIF 136 IF( ahm0 > 0 .AND. .NOT. lk_esopa ) & 137 & CALL ctl_stop( 'The horizontal viscosity coef. ahm0 must be negative' ) 147 138 ELSE 148 139 IF(lwp) WRITE(numout,*) ' harmonic momentum diff. (default)' 149 IF( ahm0 < 0 .AND. .NOT. lk_esopa ) THEN 150 IF(lwp) WRITE(numout,cform_err) 151 IF(lwp) WRITE(numout,*) ' The horizontal viscosity coef. ahm0 must be positive' 152 nstop = nstop + 1 153 ENDIF 140 IF( ahm0 < 0 .AND. .NOT. lk_esopa ) & 141 & CALL ctl_stop( ' The horizontal viscosity coef. ahm0 must be positive' ) 154 142 ENDIF 155 143
Note: See TracChangeset
for help on using the changeset viewer.