Changeset 3719 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC

Timestamp:

2012-11-30T16:27:10+01:00 (11 years ago)

Author:

cetlod

Message:

dev_MERGE_2012 : TOP_SRC/TRP/trcsbc.F90 minor bug correction

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90 (modified) (1 diff)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

@@ -81 +81 @@
       ! Coupling online : river runoff is added to the horizontal divergence (hdivn) in the subroutine sbc_rnf_div 
       ! one only consider the concentration/dilution effect due to evaporation minus precipitation + freezing/melting of sea-ice
-
-      IF( .NOT. lk_offline .AND. lk_vvl ) THEN  ! online coupling + volume variable
-         zsfx(:,:) = sfx(:,:) - emp(:,:)
-      ELSE
+      ! Coupling offline : runoff are in emp which contains E-P-R
+      !
+      IF( .NOT. lk_offline .AND. lk_vvl ) THEN  ! online coupling with vvl
+         zsfx(:,:) = 0._wp
+      ELSE                                      ! online coupling free surface or offline with free surface
          zsfx(:,:) = emp(:,:)
       ENDIF