Changeset 10643 for NEMO/branches

Timestamp:

2019-02-07T10:25:23+01:00 (5 years ago)

Author:

jchanut

Message:

Additional fix to Griffies triads, #1928

File:

• NEMO/branches/2018/dev_r10057_ENHANCE03_ZTILDE/src/OCE/LDF/ldfslp.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r10057_ENHANCE03_ZTILDE/src/OCE/LDF/ldfslp.F90

@@ -458 +458 @@
                      zdks = 0._wp
                   ENDIF
-                  zdzrho_raw = ( - rab_b(ji,jj,jk+kp,jp_tem) * zdkt & 
-                             &   + rab_b(ji,jj,jk+kp,jp_sal) * zdks &
+                  zdzrho_raw = ( - rab_b(ji,jj,jk,jp_tem) * zdkt & 
+                             &   + rab_b(ji,jj,jk,jp_sal) * zdks &
                              & ) / e3w_n(ji,jj,jk+kp)  
                   zdzrho(ji,jj,jk,kp) = - MIN( - repsln , zdzrho_raw )    ! force zdzrho >= repsln