Ignore:
Timestamp:
2019-08-08T16:02:49+02:00 (15 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo : add UKESM ice sheet coupling method (ticket #2142)

File:
1 edited

Legend:

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

    r11403 r11423  
    162162      !! 
    163163      !! ** Purpose    : - read ice shelf melt from forcing file => pattern 
    164       !!                 - total amount of fwf is given by sbccpl (fwfisf_cpl) 
     164      !!                 - total amount of fwf is given by sbccpl (fwfisf_oasis) 
    165165      !!                 - scale fwf and compute heat fluxes 
    166166      !! 
     
    172172      !!-------------------------------------------------------------------- 
    173173      INTEGER                           :: jk                            ! loop index 
    174       REAL(wp)                          :: zfwf_fld, zfwf_cpl            ! total fwf in the forcing fields (pattern) and from the cpl interface (amount) 
     174      REAL(wp)                          :: zfwf_fld, zfwf_oasis            ! total fwf in the forcing fields (pattern) and from the cpl interface (amount) 
    175175      REAL(wp), DIMENSION(jpi,jpj)      :: ztfrz                         ! tbl freezing temperature 
    176176      REAL(wp), DIMENSION(jpi,jpj)      :: zfwf                          ! 2d fwf map after scaling 
     
    195195      ! 
    196196      ! compute glob sum from atm->oce ice shelf fwf 
    197       zfwf_cpl = glob_sum('isfcav_mlt', fwfisf_cpl(:,:)) 
     197      zfwf_oasis = glob_sum('isfcav_mlt', fwfisf_oasis(:,:)) 
    198198      ! 
    199199      ! scale fwf 
    200       zfwf(:,:) = zfwf(:,:) * zfwf_cpl / zfwf_fld 
     200      zfwf(:,:) = zfwf(:,:) * zfwf_oasis / zfwf_fld 
    201201      !  
    202202      ! define fwf and qoce 
Note: See TracChangeset for help on using the changeset viewer.