Changeset 11852 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcavmlt.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/isfcavmlt.F90 (modified) (3 diffs)

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

@@ -11 +11 @@
    !!   isfcav_mlt    : update surface ocean boundary condition under ice shelf
    !!----------------------------------------------------------------------
-   USE oce            ! ocean dynamics and tracers
-   USE isf            ! ice shelf public variables
-   USE isfutils       ! ice shelf debug subroutine
-   USE dom_oce        ! ocean space and time domain
-   USE phycst         ! physical constants
-   USE eosbn2         ! equation of state
-   !
-   USE in_out_manager ! I/O manager
-   USE iom            ! I/O library
-   USE fldread        ! read input field at current time step
-   USE lib_fortran
+
+   USE isf                      ! ice shelf
+   USE isftbl , ONLY: isf_tbl   ! ice shelf depth average
+   USE isfutils,ONLY: debug     ! debug subroutine
+
+   USE dom_oce                            ! ocean space and time domain
+   USE oce    , ONLY: tsn                 ! ocean dynamics and tracers
+   USE phycst , ONLY: rcp, rau0, rau0_rcp ! physical constants
+   USE eosbn2 , ONLY: eos_fzp             ! equation of state
+
+   USE in_out_manager              ! I/O manager
+   USE iom        , ONLY: iom_put  ! I/O library
+   USE fldread    , ONLY: fld_read !
+   USE lib_fortran, ONLY: glob_sum !
+   USE lib_mpp    , ONLY: ctl_stop !
 
    IMPLICIT NONE
@@ -110 +114 @@
       !
       ! read input file
-      CALL fld_read ( kt, nn_fsbc, sf_isfcav_fwf )
+      CALL fld_read ( kt, 1, sf_isfcav_fwf )
       !
       ! define fwf and qoce
@@ -276 +280 @@
       !
       ! read input file
-      CALL fld_read ( kt, nn_fsbc, sf_isfcav_fwf )
+      CALL fld_read ( kt, 1, sf_isfcav_fwf )
       !
       ! ice shelf 2d map