Changeset 3719


Ignore:
Timestamp:
2012-11-30T16:27:10+01:00 (8 years ago)
Author:
cetlod
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r3681 r3719  
    8181      ! Coupling online : river runoff is added to the horizontal divergence (hdivn) in the subroutine sbc_rnf_div  
    8282      ! one only consider the concentration/dilution effect due to evaporation minus precipitation + freezing/melting of sea-ice 
    83  
    84       IF( .NOT. lk_offline .AND. lk_vvl ) THEN  ! online coupling + volume variable 
    85          zsfx(:,:) = sfx(:,:) - emp(:,:) 
    86       ELSE 
     83      ! Coupling offline : runoff are in emp which contains E-P-R 
     84      ! 
     85      IF( .NOT. lk_offline .AND. lk_vvl ) THEN  ! online coupling with vvl 
     86         zsfx(:,:) = 0._wp 
     87      ELSE                                      ! online coupling free surface or offline with free surface 
    8788         zsfx(:,:) = emp(:,:) 
    8889      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.