Changeset 1303

Timestamp:

2009-02-10T10:17:34+01:00 (15 years ago)

Author:

ctlod

Message:

update emp(:,:) field with runoffs every nn_fsbc only and not at each time step, see ticket: #326

File:

• trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -100 +100 @@
          ! C a u t i o n : runoff is negative and in kg/m2/s 
 
-         emp (:,:) = emp (:,:) - ABS( sf_rnf(1)%fnow(:,:) )
-         emps(:,:) = emps(:,:) - ABS( sf_rnf(1)%fnow(:,:) )
+         IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN
+            emp (:,:) = emp (:,:) - ABS( sf_rnf(1)%fnow(:,:) )
+            emps(:,:) = emps(:,:) - ABS( sf_rnf(1)%fnow(:,:) )
+         ENDIF
          !
       ENDIF