Ignore:
Timestamp:
2019-11-04T19:00:27+01:00 (12 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: fix WED025 restartability, finish removing useless USE, remove useless lbc_lnk

File:
1 edited

Legend:

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

    r11844 r11852  
    1414   !!---------------------------------------------------------------------- 
    1515 
     16   USE isf     ! ice shelf variables 
     17 
    1618   USE dom_oce ! vertical scale factor 
    17    USE lbclnk  ! lbc_lnk subroutine 
    18    USE isfutils 
    19    USE isf 
    2019 
    2120   IMPLICIT NONE 
     
    6968         CALL isf_tbl_avg( miku, ikbot, zhtbl, zfrac, e3u_n, pvarin, zvarout ) 
    7069         ! 
    71          ! check if needed (probably yes) 
    72          CALL lbc_lnk('sbcisf', pvarout,'U',-1.) 
    73          ! 
    7470         ! compute tbl property at T point 
    7571         pvarout(1,:) = 0._wp 
     
    9288         CALL isf_tbl_avg( mikv, ikbot, zhtbl, zfrac, e3v_n, pvarin, zvarout ) 
    9389         ! 
    94          ! check if needed (probably yes) 
    95          CALL lbc_lnk('sbcisf', pvarout,'V',-1.) 
    96          ! 
    9790         ! pvarout is an averaging of wet point 
    9891         pvarout(:,1) = 0._wp 
     
    110103         ! 
    111104      END SELECT 
    112       ! 
    113       IF (ln_isfdebug) CALL debug('isf_tbl pvarout:',pvarout) 
    114105      ! 
    115106   END SUBROUTINE isf_tbl 
Note: See TracChangeset for help on using the changeset viewer.