Changeset 1739 for trunk/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

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

Author:

rblod

Message:

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

File:

• trunk/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -80 +80 @@
       !!         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 ocena water) to obtain m/s.    
       !!         Note: even though Fwe does not appear explicitly for 
       !!         temperature in this routine, the heat carried by the water
@@ -113 +113 @@
       ENDIF
 
-      zsrau = 1. / rauw             ! initialization
+      zsrau = 1. / rau0             ! initialization
 #if defined key_zco
       zse3t = 1. / e3t_0(1)