- Timestamp:
- 2020-05-07T16:11:23+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbccpl.F90
r12811 r12890 41 41 #endif 42 42 #if defined key_si3 43 USE ice thd_dh ! for CALL ice_thd_snwblow43 USE icevar ! for CALL ice_var_snwblow 44 44 #endif 45 45 ! … … 1730 1730 1731 1731 ! zsnw = snow fraction over ice after wind blowing (=picefr if no blowing) 1732 zsnw(:,:) = 0._wp ; CALL ice_ thd_snwblow( ziceld, zsnw )1732 zsnw(:,:) = 0._wp ; CALL ice_var_snwblow( ziceld, zsnw ) 1733 1733 1734 1734 ! --- evaporation minus precipitation corrected (because of wind blowing on snow) --- !
Note: See TracChangeset
for help on using the changeset viewer.