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

Changeset 15094


Ignore:
Timestamp:
2021-07-06T18:24:19+02:00 (3 years ago)
Author:
clem
Message:

repair isoneutral diffusion on momentum (ln_dynldf_iso=T)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/DYN/dynldf_iso.F90

    r14834 r15094  
    131131            !                                      ! allocate dyn_ldf_iso arrays 
    132132            IF( dyn_ldf_iso_alloc() /= 0 )   CALL ctl_stop('STOP', 'dyn_ldf_iso: failed to allocate arrays') 
     133            ! 
     134            DO_2D_OVR( 0, 0, 0, 0 ) 
     135               akzu(ji,jj,1)   = 0._wp 
     136               akzu(ji,jj,jpk) = 0._wp 
     137               akzv(ji,jj,1)   = 0._wp 
     138               akzv(ji,jj,jpk) = 0._wp 
     139            END_2D 
     140            ! 
    133141         ENDIF 
    134142      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.