Changeset 1540 for trunk/NEMO

Timestamp:

2009-07-27T12:28:33+02:00 (15 years ago)

Author:

ctlod

Message:

add a multiplicative coefficient to be able to increase/reduce total input runoffs, see ticket: #492

File:

• trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -37 +37 @@
    REAL(wp)          , PUBLIC ::   rn_hrnf      = 0.e0    !: runoffs, depth over which enhanced vertical mixing is used
    REAL(wp)          , PUBLIC ::   rn_avt_rnf   = 0.e0    !: runoffs, value of the additional vertical mixing coef. [m2/s]
+   REAL(wp)          , PUBLIC ::   rn_mul_rnf   = 1.e0    !: multiplicative factor for runoff
 
    INTEGER , PUBLIC                     ::   nkrnf = 0   !: number of levels over which Kz is increased at river mouths
@@ -102 +103 @@
 
          IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN
-            emp (:,:) = emp (:,:) - ABS( sf_rnf(1)%fnow(:,:) )
-            emps(:,:) = emps(:,:) - ABS( sf_rnf(1)%fnow(:,:) )
+            emp (:,:) = emp (:,:) - rn_mul_rnf * ABS( sf_rnf(1)%fnow(:,:) )
+            emps(:,:) = emps(:,:) - rn_mul_rnf * ABS( sf_rnf(1)%fnow(:,:) )
             CALL iom_put( "runoffs", sf_rnf(1)%fnow )         ! runoffs
          ENDIF
@@ -125 +126 @@
       !!
       NAMELIST/namsbc_rnf/ cn_dir, ln_rnf_emp, sn_rnf, sn_cnf, ln_rnf_mouth,   &
-         &                 rn_hrnf, rn_avt_rnf
+         &                 rn_hrnf, rn_avt_rnf, rn_mul_rnf
       !!----------------------------------------------------------------------
 
@@ -151 +152 @@
          WRITE(numout,*) '      river mouth additional Kz                  rn_avt_rnf   = ', rn_avt_rnf
          WRITE(numout,*) '      depth of river mouth additional mixing     rn_hrnf      = ', rn_hrnf
+         WRITE(numout,*) '      multiplicative factor for runoff           rn_mul_rnf   = ', rn_mul_rnf  
       ENDIF