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 12731 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/ISF/isfstp.F90 – NEMO

Ignore:
Timestamp:
2020-04-09T19:30:08+02:00 (4 years ago)
Author:
techene
Message:

replace h. and gde. in case key_qco is activated - quick and dirty

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/ISF/isfstp.F90

    r12625 r12731  
    1111 
    1212   !!---------------------------------------------------------------------- 
    13    !!   isfstp       : compute iceshelf melt and heat flux 
    14    !!---------------------------------------------------------------------- 
    15    ! 
    16    USE isf_oce                                      ! isf variables 
    17    USE isfload, ONLY: isf_load                      ! ice shelf load 
    18    USE isftbl , ONLY: isf_tbl_lvl                   ! ice shelf boundary layer 
    19    USE isfpar , ONLY: isf_par, isf_par_init         ! ice shelf parametrisation 
    20    USE isfcav , ONLY: isf_cav, isf_cav_init         ! ice shelf cavity 
    21    USE isfcpl , ONLY: isfcpl_rst_write, isfcpl_init ! isf variables 
    22  
    23    USE dom_oce                                          ! ocean space and time domain 
    24    USE domvvl,  ONLY: ln_vvl_zstar                      ! zstar logical 
    25    USE zdfdrg,  ONLY: r_Cdmin_top, r_ke0_top            ! vertical physics: top/bottom drag coef. 
     13   !!   isfstp        : compute iceshelf melt and heat flux 
     14   !!---------------------------------------------------------------------- 
     15   USE isf_oce        ! isf variables 
     16   USE isfload  , ONLY: isf_load                      ! ice shelf load 
     17   USE isftbl   , ONLY: isf_tbl_lvl                   ! ice shelf boundary layer 
     18   USE isfpar   , ONLY: isf_par, isf_par_init         ! ice shelf parametrisation 
     19   USE isfcav   , ONLY: isf_cav, isf_cav_init         ! ice shelf cavity 
     20   USE isfcpl   , ONLY: isfcpl_rst_write, isfcpl_init ! isf variables 
     21 
     22   USE dom_oce        ! ocean space and time domain 
     23   USE oce      , ONLY: ssh                           ! sea surface height 
     24   USE domvvl   , ONLY: ln_vvl_zstar                  ! zstar logical 
     25   USE zdfdrg   , ONLY: r_Cdmin_top, r_ke0_top        ! vertical physics: top/bottom drag coef. 
    2626   ! 
    2727   USE lib_mpp, ONLY: ctl_stop, ctl_nam 
    … …  
    3131 
    3232   IMPLICIT NONE 
    33  
    3433   PRIVATE 
    3534 
    … …  
    8786            ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 
    8887         END DO  
    89          CALL isf_tbl_lvl(ht, ze3t, misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav) 
     88         CALL isf_tbl_lvl(ht(:,:), ze3t, misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav) 
    9089         ! 
    9190         ! 1.3: compute ice shelf melt 
    … …  
    112111            ze3t(:,:,jk) = e3t(:,:,jk,Kmm) 
    113112         END DO 
    114          CALL isf_tbl_lvl(ht, ze3t, misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par) 
     113         CALL isf_tbl_lvl(ht(:,:), ze3t, misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par) 
    115114         ! 
    116115         ! 2.3: compute ice shelf melt 
Note: See TracChangeset for help on using the changeset viewer.