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

Changeset 1040


Ignore:
Timestamp:
2008-05-30T18:34:42+02:00 (16 years ago)
Author:
ctlod
Message:

trunk: avoid warning message at compilation step when not using BDY package and duplicated lines zhdiv(ji,jj)=0.e0, see ticket: #179

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/wzvmod.F90

    r911 r1040  
    5656 
    5757      !! * Local declarations 
    58       INTEGER  ::     jgrd, jb           ! temporary scalars 
    5958      INTEGER  ::           jk           ! dummy loop indices 
    6059      !! Variable volume 
    … …  
    6261      REAL(wp) ::   z2dt, zraur          ! temporary scalar 
    6362      REAL(wp), DIMENSION (jpi,jpj) ::   zssha, zun, zvn, zhdiv 
     63#if defined key_bdy || defined key_bdy_tides 
     64      INTEGER  ::     jgrd, jb           ! temporary scalars 
     65#endif 
    6466      !!---------------------------------------------------------------------- 
    6567 
    … …  
    116118           ji = nbi(jb,jgrd) 
    117119           jj = nbj(jb,jgrd) 
    118            zhdiv(ji, jj) = 0.e0 
    119            zhdiv(ji, jj) = 0.e0 
    120            zhdiv(ji, jj) = 0.e0 
     120           zhdiv(ji,jj) = 0.e0 
    121121         END DO 
    122122#endif 
Note: See TracChangeset for help on using the changeset viewer.