Changeset 5907


Ignore:
Timestamp:
2015-11-23T12:23:05+01:00 (5 years ago)
Author:
jchanut
Message:

Move lbclk else unreproductible results with ln_dynvor_een=T and ln_dynvor_msk=T

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r5836 r5907  
    547547         END SELECT 
    548548         ! 
     549         IF( ln_dynvor_msk ) THEN          !==  mask/unmask vorticity ==! 
     550            DO jj = 1, jpjm1 
     551               DO ji = 1, fs_jpim1   ! vector opt. 
     552                  zwz(ji,jj) = zwz(ji,jj) * fmask(ji,jj,jk) 
     553               END DO 
     554            END DO 
     555         ENDIF 
     556         ! 
    549557         CALL lbc_lnk( zwz, 'F', 1. ) 
    550          ! 
    551          IF( ln_dynvor_msk ) THEN          !==  mask/unmask vorticity ==! 
    552             DO jj = 1, jpjm1 
    553                DO ji = 1, fs_jpim1   ! vector opt. 
    554                   zwz(ji,jj) = zwz(ji,jj) * fmask(ji,jj,jk) 
    555                END DO 
    556             END DO 
    557          ENDIF 
    558558         ! 
    559559         !                                   !==  horizontal fluxes  ==! 
Note: See TracChangeset for help on using the changeset viewer.