Changeset 14543
- Timestamp:
- 2021-02-24T18:54:44+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/ZDF/zdfosm.F90
r14542 r14543 1976 1976 ! full code available ! 1977 1977 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1978 IF ( zshear(ji,jj) > 1.e-10 .AND. MIN(hu_n(ji,jj), hu_n(ji-1,jj), hv_n(ji,jj), hv_n(ji,jj-1))>100._wp) THEN1979 IF ( zri_p(ji,jj) < rn_ri_p_thresh ) THEN1978 IF ( zshear(ji,jj) > 1.e-10 ) THEN 1979 IF ( zri_p(ji,jj) < rn_ri_p_thresh .AND. MIN(hu_n(ji,jj), hu_n(ji-1,jj), hv_n(ji,jj), hv_n(ji,jj-1))>100._wp ) THEN 1980 1980 ! Growing shear layer 1981 1981 j_ddh(ji,jj) = 0
Note: See TracChangeset
for help on using the changeset viewer.