Changeset 881 for branches/dev_001_SBC/NEMO/OPA_SRC/TRA/traadv_cen2.F90
- Timestamp:
- 2008-04-08T11:45:52+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/OPA_SRC/TRA/traadv_cen2.F90
r811 r881 161 161 rnfmsk(ji,jj) * rnfmsk_z(jk), & ! near runoff mouths (& closed sea outflows) 162 162 upsmsk(ji,jj) & ! some of some straits 163 #if defined key_ ice_lim163 #if defined key_lim2 164 164 ! ! below ice covered area (if tn < "freezing"+0.1 ) 165 165 , MAX( 0., SIGN( 1., fzptn(ji,jj) + 0.1 - tn(ji,jj,jk) ) ) * tmask(ji,jj,jk) &
Note: See TracChangeset
for help on using the changeset viewer.