New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11852 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r11541 r11852  
    88   !!---------------------------------------------------------------------- 
    99 
    10    USE oce            ! ocean dynamics and tracers 
    1110   USE isf            ! ice shelf 
    12    USE isftbl         ! ice shelf depth average 
    13    USE dom_oce        ! ocean space and time domain 
    14    USE phycst         ! physical constants 
    15    USE eosbn2         ! equation of state 
    16  
    17    USE in_out_manager ! I/O manager 
    18    USE iom            ! I/O library 
    19    USE fldread        ! 
    20    USE lib_fortran    ! 
     11   USE isftbl , ONLY: isf_tbl   ! ice shelf depth average 
     12 
     13   USE dom_oce                  ! ocean space and time domain 
     14   USE oce    , ONLY: tsn       ! ocean dynamics and tracers 
     15   USE phycst , ONLY: rcp, rau0 ! physical constants 
     16   USE eosbn2 , ONLY: eos_fzp   ! equation of state 
     17 
     18   USE in_out_manager              ! I/O manager 
     19   USE iom        , ONLY: iom_put  ! I/O library 
     20   USE fldread    , ONLY: fld_read ! 
     21   USE lib_fortran, ONLY: glob_sum ! 
     22   USE lib_mpp    , ONLY: ctl_stop ! 
    2123 
    2224   IMPLICIT NONE 
    … …  
    9193      ! 
    9294      ! 0. ------------Read specified runoff 
    93       CALL fld_read ( kt, nn_fsbc, sf_isfpar_fwf   ) 
     95      CALL fld_read ( kt, 1, sf_isfpar_fwf   ) 
    9496      ! 
    9597      ! compute ptfrz 
    … …  
    153155      CALL iom_put('isfthermald_par',( ztfrz(:,:) - ztavg(:,:) ) * mskisf_par(:,:)) 
    154156      ! 
    155       ! 
    156157   END SUBROUTINE isfpar_mlt_bg03 
    157158 
    … …  
    180181      ! 
    181182      ! 0. ------------Read specified runoff 
    182       CALL fld_read ( kt, nn_fsbc, sf_isfpar_fwf   ) 
     183      CALL fld_read ( kt, 1, sf_isfpar_fwf   ) 
    183184      ! 
    184185      ! 1. ------------Mean freezing point (needed for heat content flux) 
Note: See TracChangeset for help on using the changeset viewer.