Changeset 714 for trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

Timestamp:

2007-10-11T11:58:02+02:00 (17 years ago)

Author:

smasson

Message:

replace qt by qns, see ticket:11

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

@@ -459 +459 @@
             zBosol(ji,jj) = grav * zthermal * qsr(ji,jj)
             ! Non radiative surface buoyancy force
-            zBo   (ji,jj) = grav * zthermal * ( qt(ji,jj) - qsr(ji,jj) ) -  grav * zhalin * emp(ji,jj)
+            zBo   (ji,jj) = grav * zthermal * qns(ji,jj) -  grav * zhalin * emp(ji,jj)
             ! Surface Temperature flux for non-local term
-            wt0(ji,jj) = - qt(ji,jj) * ro0cpr * tmask(ji,jj,1)
+            wt0(ji,jj) = - ( qsr(ji,jj) + qns(ji,jj) )* ro0cpr * tmask(ji,jj,1)
             ! Surface salinity flux for non-local term
             ws0(ji,jj) = - ( emp(ji,jj) * sn(ji,jj,1) * rcs ) * tmask(ji,jj,1)