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/DYN/divhor.F90

    r11395 r11423  
    2323   USE sbcrnf          ! river runoff  
    2424   USE isfhdiv         ! ice shelf 
    25    USE iscplhsb        ! ice sheet / ocean coupling 
    26    USE iscplini        ! ice sheet / ocean coupling 
    2725#if defined key_asminc    
    2826   USE asminc          ! Assimilation increment 
     
    10098      !  
    10199#endif 
    102       IF( ln_isf )   CALL isf_hdiv( hdivn )      !==  ice shelf  ==!   (update hdivn field) 
     100      IF( ln_isf )   CALL isf_hdiv( kt, hdivn )      !==  ice shelf  ==!   (update hdivn field) 
    103101      ! 
    104102      CALL lbc_lnk( 'divhor', hdivn, 'T', 1. )   !   (no sign change) 
Note: See TracChangeset for help on using the changeset viewer.