Changeset 1739 for trunk/NEMO/TOP_SRC/TRP/trcsbc.F90

Timestamp:

2009-11-19T14:24:00+01:00 (14 years ago)

Author:

rblod

Message:

Use rau0 instead of rauw for sbc, uchange rau0 to 1035, see ticket #606

File:

• trunk/NEMO/TOP_SRC/TRP/trcsbc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trcsbc.F90

@@ -54 +54 @@
       !!         where emp, the surface freshwater budget (evaporation minus
       !!         precipitation minus runoff) given in kg/m2/s is divided
-      !!         by 1000 kg/m3 (density of plain water) to obtain m/s.
+      !!         by 1035 kg/m3 (density of ocean water) to obtain m/s.
       !!
       !! ** Action  : - Update the 1st level of tra with the trend associated
@@ -79 +79 @@
 
       ! 0. initialization
-      zsrau = 1. / rauw
+      zsrau = 1. / rau0
       IF( .NOT. ln_sco )  zse3t = 1. / fse3t(1,1,1)