Changeset 3111


Ignore:
Timestamp:
2011-11-15T15:14:38+01:00 (9 years ago)
Author:
flavoni
Message:

add missing loop in jk, in dynvor.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_LOCEAN_CMCC_INGV_MERCATOR_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r3098 r3111  
    714714      ! at angles with three ocean points and one land point 
    715715      IF( ln_vorlat .AND. (ln_dynvor_ene .OR. ln_dynvor_ens .OR. ln_dynvor_mix) ) THEN 
    716           DO jj = 2, jpjm1 
    717             DO ji = 2, jpim1 
    718                IF( tmask(ji,jj,jk)+tmask(ji+1,jj,jk)+tmask(ji,jj+1,jk)+tmask(ji+1,jj+1,jk) == 3._wp ) & 
    719                    fmask(ji,jj,jk) = 1._wp 
    720             END DO 
    721           END DO 
     716         DO jk = 1, jpk 
     717            DO jj = 2, jpjm1 
     718               DO ji = 2, jpim1 
     719                  IF( tmask(ji,jj,jk)+tmask(ji+1,jj,jk)+tmask(ji,jj+1,jk)+tmask(ji+1,jj+1,jk) == 3._wp ) & 
     720                      fmask(ji,jj,jk) = 1._wp 
     721               END DO 
     722            END DO 
     723         END DO 
    722724          ! 
    723725          CALL lbc_lnk( fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
Note: See TracChangeset for help on using the changeset viewer.