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 14588 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE – NEMO

Ignore:
Timestamp:
2021-03-05T08:42:07+01:00 (4 years ago)
Author:
clem
Message:

solve ticket #2562

Location:
NEMO/releases/r4.0/r4.0-HEAD/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DYN/dynvor.F90

    r12792 r14588  
    222222      ENDIF 
    223223      ! 
     224      zwz(:,:,jpk) = 0._wp 
    224225      ! 
    225226      SELECT CASE( kvor )                 !==  volume weighted vorticity considered  ==! 
    … …  
    349350      INTEGER  ::   ji, jj, jk           ! dummy loop indices 
    350351      REAL(wp) ::   zx1, zy1, zx2, zy2   ! local scalars 
    351       REAL(wp), DIMENSION(jpi,jpj) ::   zwx, zwy, zwz   ! 2D workspace 
     352      REAL(wp), DIMENSION(jpi,jpj) ::   zwx, zwy, zwz   ! 1D workspace 
    352353      !!---------------------------------------------------------------------- 
    353354      ! 
    … …  
    731732      ENDIF 
    732733      ! 
     734      zwz(:,:,jpk) = 0._wp 
    733735      !                                                ! =============== 
    734736      DO jk = 1, jpkm1                                 ! Horizontal slab 

  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcwave.F90

    r13255 r14588  
    220220      !                       !==  vertical Stokes Drift 3D velocity  ==! 
    221221      ! 
     222      ze3divh(:,:,jpk) = 0._wp 
    222223      DO jk = 1, jpkm1               ! Horizontal e3*divergence 
    223224         DO jj = 2, jpj 
Note: See TracChangeset for help on using the changeset viewer.