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 13737 – NEMO

Changeset 13737


Ignore:
Timestamp:
2020-11-06T12:25:58+01:00 (3 years ago)
Author:
techene
Message:

#2385 hf bug correction (only used by qco) : use a dedicated fe3mask instead of fmask which values are not 0 or 1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domain.F90

    r13606 r13737  
    157157         hu_0(:,:) = hu_0(:,:) + e3u_0(:,:,jk) * umask(:,:,jk) 
    158158         hv_0(:,:) = hv_0(:,:) + e3v_0(:,:,jk) * vmask(:,:,jk) 
    159          hf_0(:,:) = hf_0(:,:) + e3f_0(:,:,jk) * fmask(:,:,jk) 
    160159      END DO 
     160      ! 
     161      DO jk = 1, jpkm1 
     162         hf_0(1:jpim1,:) = hf_0(1:jpim1,:) + e3f_0(1:jpim1,:,jk)*vmask(1:jpim1,:,jk)*vmask(2:jpi,:,jk) 
     163      END DO 
     164      CALL lbc_lnk('domain', hf_0, 'F', 1._wp) 
    161165      ! 
    162166      IF( lk_SWE ) THEN      ! SWE case redefine hf_0 
Note: See TracChangeset for help on using the changeset viewer.