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/SBC/sbccpl.F90

    r11403 r11423  
    3636   USE eosbn2         !  
    3737   USE sbcrnf  , ONLY : l_rnfcpl 
    38    USE isf     , ONLY : l_isfcpl, fwfisf_cpl 
     38   USE isf     , ONLY : l_isfoasis, fwfisf_oasis 
    3939#if defined key_cice 
    4040   USE ice_domain_size, only: ncat 
     
    475475 
    476476      IF( srcv(jpr_isf)%laction .AND. ln_isf ) THEN 
    477          l_isfcpl             = .TRUE.                      ! -> no need to read isf in sbcisf 
     477         l_isfoasis = .TRUE.  ! -> isf fwf comes from oasis 
    478478         IF(lwp) WRITE(numout,*) 
    479479         IF(lwp) WRITE(numout,*) '   iceshelf received from oasis ' 
     
    14091409         ! ice shelf fwf 
    14101410         IF( srcv(jpr_isf)%laction )  THEN 
    1411             fwfisf_cpl(:,:) = - frcv(jpr_isf)%z3(:,:,1)  ! fresh water flux from the isf (fwfisf <0 mean melting)   
     1411            fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1)  ! fresh water flux from the isf (fwfisf <0 mean melting)   
    14121412         END IF 
    14131413         
     
    17131713      ENDIF 
    17141714      IF( srcv(jpr_isf)%laction ) THEN   ! iceshelf (fwfisf <0 mean melting) 
    1715         fwfisf_cpl(:,:) = - frcv(jpr_isf)%z3(:,:,1)   
     1715        fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1)   
    17161716      ENDIF 
    17171717 
     
    17521752      ENDIF 
    17531753      IF( srcv(jpr_isf)%laction ) THEN   ! iceshelf (fwfisf <0 mean melting) 
    1754         fwfisf_cpl(:,:) = - frcv(jpr_isf)%z3(:,:,1) 
     1754        fwfisf_oasis(:,:) = - frcv(jpr_isf)%z3(:,:,1) 
    17551755      ENDIF 
    17561756      ! 
Note: See TracChangeset for help on using the changeset viewer.