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

Changeset 12198


Ignore:
Timestamp:
2019-12-12T09:16:14+01:00 (4 years ago)
Author:
smasson
Message:

trunk: bugfix in ldf_slp_triad, see #1928

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LDF/ldfslp.F90

    r12196 r12198  
    408408      REAL(wp) ::   zbeta0, ze3_e1, ze3_e2 
    409409      REAL(wp), DIMENSION(jpi,jpj)     ::   z1_mlbw 
    410       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zalbet 
    411410      REAL(wp), DIMENSION(jpi,jpj,jpk,0:1) ::   zdxrho , zdyrho, zdzrho     ! Horizontal and vertical density gradients 
    412411      REAL(wp), DIMENSION(jpi,jpj,0:1,0:1) ::   zti_mlb, ztj_mlb            ! for Griffies operator only 
     
    464463                     zdks = 0._wp 
    465464                  ENDIF 
    466                   zdzrho_raw = ( - rab_b(ji,jj,jk+kp,jp_tem) * zdkt &  
    467                              &   + rab_b(ji,jj,jk+kp,jp_sal) * zdks & 
     465                  zdzrho_raw = ( - rab_b(ji,jj,jk   ,jp_tem) * zdkt &  
     466                             &   + rab_b(ji,jj,jk   ,jp_sal) * zdks & 
    468467                             & ) / e3w_n(ji,jj,jk+kp)   
    469468                  zdzrho(ji,jj,jk,kp) = - MIN( - repsln , zdzrho_raw )    ! force zdzrho >= repsln 
Note: See TracChangeset for help on using the changeset viewer.