Changeset 474 for trunk/NEMO/OPA_SRC/LDF
- Timestamp:
- 2006-05-11T17:24:19+02:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC/LDF
- Files:
-
- 2 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 -
trunk/NEMO/OPA_SRC/LDF/ldftra.F90
r461 r474 112 112 IF(lwp) WRITE(numout,*) ' tracer mixing coef. = F( depth )' 113 113 ioptio = ioptio + 1 114 IF( .NOT. ln_zco ) THEN 115 IF(lwp) WRITE(numout,cform_err) 116 IF(lwp) WRITE(numout,*) ' key_traldf_c1d can only be used in z-coordinate - full step' 117 nstop = nstop + 1 118 ENDIF 114 IF( .NOT. ln_zco ) & 115 & CALL ctl_stop( ' key_traldf_c1d can only be used in z-coordinate - full step' ) 119 116 #endif 120 117 IF( ioptio == 0 ) THEN 121 118 IF(lwp) WRITE(numout,*) ' tracer mixing coef. = constant (default option)' 122 119 ELSEIF( ioptio > 1 ) THEN 123 IF(lwp) WRITE(numout,cform_err) 124 IF(lwp) WRITE(numout,*) ' use only one of the following keys:', & 125 & ' key_traldf_c3d, key_traldf_c2d, key_traldf_c1d' 126 nstop = nstop + 1 120 CALL ctl_stop(' use only one of the following keys:', & 121 & ' key_traldf_c3d, key_traldf_c2d, key_traldf_c1d' ) 127 122 ENDIF 128 123 129 124 IF( ln_traldf_bilap ) THEN 130 125 IF(lwp) WRITE(numout,*) ' biharmonic tracer diffusion' 131 IF( aht0 > 0 .AND. .NOT. lk_esopa ) THEN 132 IF(lwp) WRITE(numout,cform_err) 133 IF(lwp) WRITE(numout,*) ' The horizontal diffusivity coef. aht0 must be negative' 134 nstop = nstop + 1 135 ENDIF 126 IF( aht0 > 0 .AND. .NOT. lk_esopa ) & 127 & CALL ctl_stop( ' The horizontal diffusivity coef. aht0 must be negative' ) 136 128 ELSE 137 129 IF(lwp) WRITE(numout,*) ' harmonic tracer diffusion (default)' 138 IF( aht0 < 0 .AND. .NOT. lk_esopa ) THEN 139 IF(lwp) WRITE(numout,cform_err) 140 IF(lwp) WRITE(numout,*) ' The horizontal diffusivity coef. aht0 must be positive' 141 nstop = nstop + 1 142 ENDIF 130 IF( aht0 < 0 .AND. .NOT. lk_esopa ) & 131 & CALL ctl_stop(' The horizontal diffusivity coef. aht0 must be positive' ) 143 132 ENDIF 144 133
Note: See TracChangeset
for help on using the changeset viewer.