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 5845 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90 – NEMO

Ignore:
Timestamp:
2015-10-31T08:40:45+01:00 (8 years ago)
Author:
gm
Message:

#1613: vvl by default: suppression of domzgr_substitute.h90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r5836 r5845  
    13191319               nbj => idx_bdy(ib_bdy)%nbj(ib,igrd) 
    13201320               flagu => idx_bdy(ib_bdy)%flagu(ib,igrd) 
    1321                bdysurftot = bdysurftot + hu     (nbi  , nbj)                           & 
     1321               bdysurftot = bdysurftot + hu_n   (nbi  , nbj)                           & 
    13221322                  &                    * e2u    (nbi  , nbj) * ABS( flagu ) & 
    13231323                  &                    * tmask_i(nbi  , nbj)                           & 
     
    13321332               nbj => idx_bdy(ib_bdy)%nbj(ib,igrd) 
    13331333               flagv => idx_bdy(ib_bdy)%flagv(ib,igrd) 
    1334                bdysurftot = bdysurftot + hv     (nbi, nbj  )                           & 
     1334               bdysurftot = bdysurftot + hv_n   (nbi, nbj  )                           & 
    13351335                  &                    * e1v    (nbi, nbj  ) * ABS( flagv ) & 
    13361336                  &                    * tmask_i(nbi, nbj  )                           & 
Note: See TracChangeset for help on using the changeset viewer.