Changeset 11425 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90

Timestamp:

2019-08-08T19:15:24+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo : bug correction when oasis provide the ice shelf melt (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90

@@ -192 +192 @@
       !
       ! compute glob sum from input file
-      zfwf_fld = glob_sum('isfcav_mlt', zfwf(:,:))
+      ! (PM) should we consider delay sum as in fwb ? (it will offset by 1 time step if I understood well)
+      zfwf_fld = glob_sum('isfcav_mlt', e1e2t(:,:) * zfwf(:,:))
       !
       ! compute glob sum from atm->oce ice shelf fwf
-      zfwf_oasis = glob_sum('isfcav_mlt', fwfisf_oasis(:,:))
+      ! (PM) should we consider delay sum as in fwb ?
+      zfwf_oasis = glob_sum('isfcav_mlt', e1e2t(:,:) * fwfisf_oasis(:,:))
       !
       ! scale fwf