Changeset 833 for trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90
- Timestamp:
- 2008-03-07T14:51:35+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90
r789 r833 147 147 zind(ji,jj,jk) = MAX ( upsrnfh(ji,jj) * upsrnfz(jk), & ! changing advection scheme near runoff 148 148 & upsadv(ji,jj) & ! in the vicinity of some straits 149 #if defined key_ ice_lim149 #if defined key_lim3 || defined key_lim2 150 150 & , tmask(ji,jj,jk) & ! half upstream tracer fluxes 151 151 & * MAX( 0., SIGN( 1., fzptn(ji,jj) & ! if tn < ("freezing"+0.1 )
Note: See TracChangeset
for help on using the changeset viewer.