- Timestamp:
- 2013-07-02T15:20:13+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r3938 r3952 176 176 zerp = zsrp * ( 1. - 2.*rnfmsk(ji,jj) ) & ! No damping in vicinity of river mouths 177 177 & * ( sss_m(ji,jj) - sf_sss(1)%fnow(ji,jj,1) ) 178 #if defined key_lim3 178 179 emps(ji,jj) = emps(ji,jj) + zerp 180 #else 181 emps(ji,jj) = emps(ji,jj) + zerp / MAX( sss_m(ji,jj) , 1.e-20 ) ! lim2 case emps is a mass flux 182 #endif 179 183 erp (ji,jj) = zerp / MAX( sss_m(ji,jj), 1.e-20 ) ! converted into an equivalent volume flux (diagnostic only) 180 184 END DO … … 193 197 IF( ln_sssr_bnd ) zerp = SIGN( 1., zerp ) * MIN( zerp_bnd, ABS(zerp) ) 194 198 emp(ji,jj) = emp (ji,jj) + zerp 199 #if defined key_lim2 200 emps(ji,jj) = emps(ji,jj) + zerp ! lim2 case: emps is a mass flux 201 #endif 195 202 erp(ji,jj) = zerp 196 203 END DO
Note: See TracChangeset
for help on using the changeset viewer.