Changeset 2350 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

2010-11-01T17:44:01+01:00 (14 years ago)

Author:

rfurner

Message:

correction to river scheme to restore conservation of heat and salt

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -131 +131 @@
       ENDIF
 
+      !----------------------------------------
+      !        EMP, EMPS and QNS effects
+      !----------------------------------------
       !                                          Set before sbc tracer content fields
       !                                          ************************************
@@ -194 +197 @@
          CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) )
       ENDIF
-      !                             !==  Runoffs  ==!
+      !
+      !----------------------------------------
+      !        River Runoff effects
+      !----------------------------------------
+      !
+      zfact = 0.5e0
+
       ! Effect on (t,s) due to river runoff (dilution effect automatically applied via vertical tracer advection) 
       IF( ln_rnf ) THEN