Changes in trunk/NEMO/OPA_SRC/LDF/ldfdyn.F90 [3:27]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfdyn.F90
r3 r27 126 126 ENDIF 127 127 128 IF( .NOT. lk_sco ) THEN ! horizontal = iso-level except in s-coordinate 129 ln_dynldf_level = ln_dynldf_level .OR. ln_dynldf_hor 128 IF( lk_sco ) THEN ! s-coordinates: rotation required for horizontal or isopycnal direction 129 IF( ( ln_dynldf_iso .OR. ln_dynldf_hor ) .AND. .NOT.lk_ldfslp ) THEN 130 IF(lwp) WRITE(numout,cform_err) 131 IF(lwp) WRITE(numout,*) ' the rotation of the viscous tensor require key_ldfslp' 132 IF( .NOT.lk_esopa ) nstop = nstop + 1 133 ENDIF 134 ELSE ! z-coordinates with/without partial step: 135 ln_dynldf_level = ln_dynldf_level .OR. ln_dynldf_hor ! level mixing = horizontal mixing 130 136 ln_dynldf_hor = .FALSE. 131 137 IF(lwp) WRITE(numout,*) ' horizontal mixing in z-coord or partial steps: force ln_dynldf_level = T' 132 IF(lwp) WRITE(numout,*) ' ln_dynldf_level = ', ln_dynldf_level, ' ln_dynldf_hor = ', ln_dynldf_hor 133 IF(lwp) WRITE(numout,*) ' ln_dynldf_t 1: ', .NOT. lk_ldfslp .OR. .NOT. lk_esopa & 134 , '2 ' , ln_dynldf_iso .OR. .NOT. ln_dynldf_hor 135 ENDIF 136 IF( .NOT.lk_ldfslp .AND. ( ln_dynldf_iso .OR. .NOT. ln_dynldf_hor ) ) THEN 137 IF( .NOT.lk_esopa ) THEN 138 IF(lwp) WRITE(numout,*) ' and force ln_dynldf_hor = F' 139 IF( ln_dynldf_iso .AND. .NOT.lk_ldfslp ) THEN ! rotation required for isopycnal mixing 138 140 IF(lwp) WRITE(numout,cform_err) 139 IF(lwp) WRITE(numout,*) ' the rotation of the diffusivetensor require key_ldfslp'140 nstop = nstop + 1141 IF(lwp) WRITE(numout,*) ' the rotation of the viscous tensor require key_ldfslp' 142 IF( .NOT.lk_esopa ) nstop = nstop + 1 141 143 ENDIF 142 144 ENDIF 143 144 145 145 146 l_dynldf_lap = ln_dynldf_lap .AND. ln_dynldf_level ! iso-level laplacian operator
Note: See TracChangeset
for help on using the changeset viewer.