Changeset 1892 for trunk/NEMO/OPA_SRC/TRA/trasbc.F90
- Timestamp:
- 2010-06-01T16:00:31+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trasbc.F90
r1739 r1892 134 134 zta = ro0cpr * qns(ji,jj) * zse3t & ! temperature : heat flux 135 135 & - emp(ji,jj) * zsrau * tn(ji,jj,1) * zse3t ! & cooling/heating effet of EMP flux 136 zsa = 0.e0 ! No salinity concent./dilut. effect 136 zsa = ( emps(ji,jj) - emp(ji,jj) ) & 137 & * zsrau * sn(ji,jj,1) * zse3t ! concent./dilut. effect due to sea-ice 138 ! melt/formation and (possibly) SSS restoration 137 139 ELSE 138 140 zta = ro0cpr * qns(ji,jj) * zse3t ! temperature : heat flux
Note: See TracChangeset
for help on using the changeset viewer.