Ignore:
Timestamp:
2019-08-08T19:15:24+02:00 (16 months ago)
Author:
mathiot
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90

    r11423 r11425  
    192192      ! 
    193193      ! compute glob sum from input file 
    194       zfwf_fld = glob_sum('isfcav_mlt', zfwf(:,:)) 
     194      ! (PM) should we consider delay sum as in fwb ? (it will offset by 1 time step if I understood well) 
     195      zfwf_fld = glob_sum('isfcav_mlt', e1e2t(:,:) * zfwf(:,:)) 
    195196      ! 
    196197      ! compute glob sum from atm->oce ice shelf fwf 
    197       zfwf_oasis = glob_sum('isfcav_mlt', fwfisf_oasis(:,:)) 
     198      ! (PM) should we consider delay sum as in fwb ? 
     199      zfwf_oasis = glob_sum('isfcav_mlt', e1e2t(:,:) * fwfisf_oasis(:,:)) 
    198200      ! 
    199201      ! scale fwf 
Note: See TracChangeset for help on using the changeset viewer.