Changeset 11852 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90

Timestamp:

2019-11-04T19:00:27+01:00 (4 years ago)

Author:

mathiot

Message:

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

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90 (modified) (4 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90

@@ -14 +14 @@
    !!----------------------------------------------------------------------
 
+   USE isf     ! ice shelf variables
+
    USE dom_oce ! vertical scale factor
-   USE lbclnk  ! lbc_lnk subroutine
-   USE isfutils
-   USE isf
 
    IMPLICIT NONE
@@ -69 +68 @@
          CALL isf_tbl_avg( miku, ikbot, zhtbl, zfrac, e3u_n, pvarin, zvarout )
          !
-         ! check if needed (probably yes)
-         CALL lbc_lnk('sbcisf', pvarout,'U',-1.)
-         !
          ! compute tbl property at T point
          pvarout(1,:) = 0._wp
@@ -92 +88 @@
          CALL isf_tbl_avg( mikv, ikbot, zhtbl, zfrac, e3v_n, pvarin, zvarout )
          !
-         ! check if needed (probably yes)
-         CALL lbc_lnk('sbcisf', pvarout,'V',-1.)
-         !
          ! pvarout is an averaging of wet point
          pvarout(:,1) = 0._wp
@@ -110 +103 @@
          !
       END SELECT
-      !
-      IF (ln_isfdebug) CALL debug('isf_tbl pvarout:',pvarout)
       !
    END SUBROUTINE isf_tbl