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 11495 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90 – NEMO

Ignore:
Timestamp:
2019-09-03T17:45:00+02:00 (5 years ago)
Author:
mathiot
Message:

ENHANCE-02_ISF: fix issue in the computation of utbl and vtbl + cosmetic change (ticket #2142)

File:
1 edited

Legend:

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

    r11423 r11495  
    7070      ! 
    7171      ! compute misfkb_par, rhisf_tbl 
    72       rhisf_tbl_cav(:,:) = rn_htbl 
     72      rhisf_tbl_cav(:,:) = rn_htbl * mskisf_cav(:,:) 
    7373      CALL isf_tbl_lvl( ht_n, e3t_n, misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav ) 
    7474      ! 
    7575      ! compute T/S/U/V for the top boundary layer 
    76       CALL isf_tbl(tsn(:,:,:,jp_tem),zttbl(:,:),'T', misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav ) 
    77       CALL isf_tbl(tsn(:,:,:,jp_sal),zstbl(:,:),'T', misfkt_cav, misfkb_cav, rhisf_tbl_cav, rfrac_tbl_cav ) 
     76      CALL isf_tbl(tsn(:,:,:,jp_tem), zttbl(:,:),'T', misfkt_cav, rhisf_tbl_cav, misfkb_cav, rfrac_tbl_cav ) 
     77      CALL isf_tbl(tsn(:,:,:,jp_sal), zstbl(:,:),'T', misfkt_cav, rhisf_tbl_cav, misfkb_cav, rfrac_tbl_cav ) 
    7878      !  
    7979      ! output T/S/U/V for the top boundary layer 
     
    157157      ! 
    158158      ! cav 
    159       misfkt_cav(:,:)     = mikt(:,:) ; misfkb_cav(:,:)       = 1 
    160       rhisf_tbl_cav(:,:)  = 0.0_wp    ; rfrac_tbl_cav(:,:)    = 0.0_wp 
     159      misfkt_cav(:,:)    = mikt(:,:) ; misfkb_cav(:,:)    = 1 
     160      rhisf_tbl_cav(:,:) = 0.0_wp    ; rfrac_tbl_cav(:,:) = 0.0_wp 
    161161      ! 
    162162      SELECT CASE ( TRIM(cn_isfcav_mlt) ) 
Note: See TracChangeset for help on using the changeset viewer.