Changeset 27 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-02-17T10:07:54+01:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC/LDF
- Files:
-
- 2 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 -
trunk/NEMO/OPA_SRC/LDF/ldftra.F90
r3 r27 135 135 ENDIF 136 136 137 IF( .NOT. lk_sco ) THEN ! horizontal = iso-level except in s-coordinate 138 ln_traldf_level = ln_traldf_level .OR. ln_traldf_hor 137 IF( lk_sco ) THEN ! s-coordinates: rotation required for horizontal or isopycnal mixing 138 IF( ( ln_traldf_iso .OR. ln_traldf_hor ) .AND. .NOT.lk_ldfslp ) THEN 139 IF(lwp) WRITE(numout,cform_err) 140 IF(lwp) WRITE(numout,*) ' the rotation of the diffusive tensor require key_ldfslp' 141 IF( .NOT.lk_esopa ) nstop = nstop + 1 142 ENDIF 143 ELSE ! z-coordinates with/without partial step: 144 ln_traldf_level = ln_traldf_level .OR. ln_traldf_hor ! level diffusion = horizontal diffusion 139 145 ln_traldf_hor = .FALSE. 140 ENDIF141 IF( .NOT.lk_ldfslp .AND. ( ln_traldf_iso .OR. .NOT.ln_traldf_hor ) ) THEN142 IF( .NOT.lk_esopa ) THEN146 IF(lwp) WRITE(numout,*) ' horizontal mixing in z-coord or partial steps: force ln_traldf_level = T' 147 IF(lwp) WRITE(numout,*) ' and force ln_traldf_hor = F' 148 IF( ln_traldf_iso .AND. .NOT.lk_ldfslp ) THEN ! rotation required for isopycnal mixing 143 149 IF(lwp) WRITE(numout,cform_err) 144 150 IF(lwp) WRITE(numout,*) ' the rotation of the diffusive tensor require key_ldfslp' 145 nstop = nstop + 1151 IF( .NOT.lk_esopa ) nstop = nstop + 1 146 152 ENDIF 147 153 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.