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/DOM/domvvl.F90

    r10425 r11423  
    1919   !!---------------------------------------------------------------------- 
    2020   USE oce             ! ocean dynamics and tracers 
     21   USE isfcpl 
    2122   USE phycst          ! physical constant 
    2223   USE dom_oce         ! ocean space and time domain 
     
    813814            id4 = iom_varid( numror, 'tilde_e3t_n', ldstop = .FALSE. ) 
    814815            id5 = iom_varid( numror, 'hdiv_lf', ldstop = .FALSE. ) 
     816            ! 
     817            ! coupling with an ice sheet model (grounding/calving line migration) 
     818            IF ( ln_iscpl ) THEN 
     819               ! 
     820               ! extrapolate ssh over new water column if needed 
     821               CALL isfcpl_ssh() 
     822               ! 
     823               ! everything need to compute over new water column 
     824               id1 = 0 ; id2 = 0 ; id3 = 0 ; id4 = 0 ; id5 = 0 
     825               ! 
     826            END IF 
    815827            !                             ! --------- ! 
    816828            !                             ! all cases ! 
Note: See TracChangeset for help on using the changeset viewer.