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 1125 for trunk/NEMO/OPA_SRC/DOM – NEMO

Ignore:
Timestamp:
2008-06-23T11:05:02+02:00 (16 years ago)
Author:
ctlod
Message:

trunk: BDY package code review (coding rules), see ticket: #214

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DOM/domvvl.F90

    r1058 r1125  
    302302#endif 
    303303 
    304 #if defined key_bdy || defined key_bdy_tides 
    305       DO jj = 1, jpj 
    306          DO ji = 1, jpi 
    307             zhdiv(ji,jj) = zhdiv(ji,jj)*bdytmask(ji,jj) 
    308          END DO 
    309       END DO 
     304#if defined key_bdy 
     305      zhdiv(:,:) = zhdiv(:,:) * bdytmask(:,:) 
    310306#endif 
    311307 
Note: See TracChangeset for help on using the changeset viewer.