Changeset 5487 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2015-06-25T11:10:44+02:00 (9 years ago)

Author:

clem

Message:

bug fix concerning precipitation distribution over ice/ocean after wind blowing. see ticket #1547

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -663 +663 @@
 
       ! --- evaporation minus precipitation --- !
+      zsnw(:,:) = 0._wp
       CALL lim_thd_snwblow( pfrld, zsnw )          ! snow redistribution by wind
       emp_oce(:,:) = pfrld(:,:) * zevap(:,:) - ( tprecip(:,:) - sprecip(:,:) ) - sprecip(:,:) * ( 1._wp - zsnw )