Ignore:
Timestamp:
2019-09-16T18:54:28+02:00 (15 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF: fix coupling issue (ticket #2142)

File:
1 edited

Legend:

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

    r11523 r11553  
    1919   !!---------------------------------------------------------------------- 
    2020   USE oce             ! ocean dynamics and tracers  
     21   USE isf             ! ice shelf 
     22   USE isfcpl          ! ice shelf coupling 
    2123   USE dom_oce         ! ocean space and time domain 
    2224   USE sbc_ice         ! only lk_si3  
     
    282284      ENDIF 
    283285      ! 
     286      ! ice sheet coupling: extrapolation of restart to fill new wet cell and compute divergence correction 
     287      IF ( ln_isfcpl ) CALL isfcpl_init() 
     288      ! 
    284289      IF( neuler == 0 ) THEN                                  ! Euler restart (neuler=0) 
    285290         tsb  (:,:,:,:) = tsn  (:,:,:,:)                             ! all before fields set to now values 
Note: See TracChangeset for help on using the changeset viewer.