Ignore:
Timestamp:
2019-10-29T12:00:04+01:00 (12 months ago)
Author:
mathiot
Message:

rm useless USE statement, option compatibility test + minor changes

File:
1 edited

Legend:

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

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