Changeset 14515
- Timestamp:
- 2021-02-21T17:04:16+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90
r14514 r14515 2113 2113 ELSE ! zwb_min + 2*zwb_fk_b < 0 2114 2114 ! OSBL shoaling due to restratification flux. This is the velocity defined in Fox-Kemper et al (2008) 2115 zdhdt(ji,jj) = - zvel_mle(ji,jj)2115 zdhdt(ji,jj) = - MIN(zvel_mle(ji,jj), hbl(ji,jj)/10800.) 2116 2116 2117 2117 … … 2137 2137 ENDIF 2138 2138 zdhdt(ji,jj) = 2.0 * zdhdt(ji,jj) / MAX(zpert, epsln) 2139 zdhdt(ji,jj) = MAX(zdhdt(ji,jj), -hbl(ji,jj)/5400.) 2139 2140 ENDIF ! lconv 2140 2141 ELSE ! lshear … … 2160 2161 ELSE 2161 2162 ! OSBL shoaling due to restratification flux. This is the velocity defined in Fox-Kemper et al (2008) 2162 zdhdt(ji,jj) = - zvel_mle(ji,jj)2163 zdhdt(ji,jj) = - MIN(zvel_mle(ji,jj), hbl(ji,jj)/10800.) 2163 2164 2164 2165 … … 2184 2185 ENDIF 2185 2186 zdhdt(ji,jj) = 2.0 * zdhdt(ji,jj) / MAX(zpert, epsln) 2187 zdhdt(ji,jj) = MAX(zdhdt(ji,jj), -hbl(ji,jj)/5400.) 2186 2188 ENDIF ! lconv 2187 2189 ENDIF ! lshear
Note: See TracChangeset
for help on using the changeset viewer.