- Timestamp:
- 2019-12-12T17:01:46+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/ZDF/zdfosm.F90
r12218 r12221 1914 1914 ELSE 1915 1915 ! MLE layer relaxes towards mixed layer depth on timescale tau_mle, or tau_mle/10 1916 IF ( hmle(ji,jj) > zmld(ji,jj) ) THEN 1917 hmle(ji,jj) = hmle(ji,jj) - ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau 1916 ! IF ( hmle(ji,jj) > zmld(ji,jj) ) THEN 1917 ! hmle(ji,jj) = hmle(ji,jj) - ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau 1918 ! ELSE 1919 ! hmle(ji,jj) = hmle(ji,jj) - 10.0 * ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau ! fast relaxation if MLE layer shallower than MLD 1920 ! ENDIF 1921 IF ( hmle(ji,jj) > hbl(ji,jj) ) THEN 1922 hmle(ji,jj) = hmle(ji,jj) - ( hmle(ji,jj) - hbl(ji,jj) ) * rn_rdt / rn_osm_mle_tau 1918 1923 ELSE 1919 hmle(ji,jj) = hmle(ji,jj) - 10.0 * ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau ! fast relaxation if MLE layer shallower than MLD1924 hmle(ji,jj) = hmle(ji,jj) - 10.0 * ( hmle(ji,jj) - hbl(ji,jj) ) * rn_rdt / rn_osm_mle_tau ! fast relaxation if MLE layer shallower than MLD 1920 1925 ENDIF 1921 1926 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.