Changeset 5487 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Timestamp:
- 2015-06-25T11:10:44+02:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r5407 r5487 663 663 664 664 ! --- evaporation minus precipitation --- ! 665 zsnw(:,:) = 0._wp 665 666 CALL lim_thd_snwblow( pfrld, zsnw ) ! snow redistribution by wind 666 667 emp_oce(:,:) = pfrld(:,:) * zevap(:,:) - ( tprecip(:,:) - sprecip(:,:) ) - sprecip(:,:) * ( 1._wp - zsnw ) -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r5407 r5487 613 613 614 614 ! --- evaporation minus precipitation --- ! 615 zsnw(:,:) = 0._wp 615 616 CALL lim_thd_snwblow( pfrld, zsnw ) ! snow distribution over ice after wind blowing 616 617 emp_oce(:,:) = pfrld(:,:) * zevap(:,:) - ( tprecip(:,:) - sprecip(:,:) ) - sprecip(:,:) * (1._wp - zsnw ) -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5486 r5487 1524 1524 1525 1525 ! --- heat flux associated with emp --- ! 1526 zsnw(:,:) = 0._wp 1526 1527 CALL lim_thd_snwblow( p_frld, zsnw ) ! snow distribution over ice after wind blowing 1527 1528 zqemp_oce(:,:) = - zevap(:,:) * p_frld(:,:) * zcptn(:,:) & ! evap
Note: See TracChangeset
for help on using the changeset viewer.