Ignore:
Timestamp:
2019-11-27T15:50:29+01:00 (10 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: changes needed after Dave's review

File:
1 edited

Legend:

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

    r11931 r11987  
    3434   USE domvvl         ! variable volume 
    3535   USE bdy_oce   , ONLY: ln_bdy 
     36   USE isf_oce   , ONLY: ln_isf     ! ice shelf 
    3637   USE bdydta         ! ocean open boundary conditions 
    3738   USE bdydyn         ! ocean open boundary conditions 
     
    4041   USE trddyn         ! trend manager: dynamics 
    4142   USE trdken         ! trend manager: kinetic energy 
    42    USE isf       , ONLY: ln_isf     ! ice shelf 
    43    USE isfdynnxt , ONLY: isf_dynnxt ! ice shelf  
     43   USE isfdynnxt , ONLY: isf_dynnxt ! ice shelf volume filter correction subroutine  
    4444   ! 
    4545   USE in_out_manager ! I/O manager 
     
    246246            ! PM: we could probably define a generic subroutine to do the in depth correction 
    247247            !     to manage rnf, isf and possibly in the futur icb, tide water glacier (...) 
     248            !     ...(kt, coef, ktop, kbot, hz, fwf_b, fwf) 
    248249            IF ( ln_isf ) CALL isf_dynnxt( kt, atfp * rdt ) 
    249250            ! 
Note: See TracChangeset for help on using the changeset viewer.