Changeset 719 for trunk/NEMO/OPA_SRC/TRA/trasbc.F90
- Timestamp:
- 2007-10-16T16:59:56+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trasbc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r714 r719 13 13 !!---------------------------------------------------------------------- 14 14 USE oce ! ocean dynamics and active tracers 15 USE sbc_oce ! surface boundary condition: ocean16 15 USE dom_oce ! ocean space domain variables 16 USE ocesbc ! surface thermohaline fluxes 17 17 USE phycst ! physical constant 18 18 USE traqsr ! solar radiation penetration … … 32 32 !!---------------------------------------------------------------------- 33 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $ Id$34 !! $Header$ 35 35 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- … … 132 132 #endif 133 133 IF( lk_vvl) THEN 134 zta = ro0cpr * qns(ji,jj) * zse3t &! temperature : heat flux134 zta = ro0cpr * ( qt(ji,jj) - qsr(ji,jj) ) * zse3t & ! temperature : heat flux 135 135 & - emp(ji,jj) * zsrau * tn(ji,jj,1) * zse3t ! & cooling/heating effet of EMP flux 136 136 zsa = 0.e0 ! No salinity concent./dilut. effect 137 137 ELSE 138 zta = ro0cpr * qns(ji,jj) * zse3t ! temperature : heat flux138 zta = ro0cpr * ( qt(ji,jj) - qsr(ji,jj) ) * zse3t ! temperature : heat flux 139 139 zsa = emps(ji,jj) * zsrau * sn(ji,jj,1) * zse3t ! salinity : concent./dilut. effect 140 140 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.