Changeset 3719 for branches/2012/dev_MERGE_2012/NEMOGCM
- Timestamp:
- 2012-11-30T16:27:10+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r3681 r3719 81 81 ! Coupling online : river runoff is added to the horizontal divergence (hdivn) in the subroutine sbc_rnf_div 82 82 ! 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 87 88 zsfx(:,:) = emp(:,:) 88 89 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.