Changeset 12198 for NEMO/trunk/src/OCE
- Timestamp:
- 2019-12-12T09:16:14+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldfslp.F90
r12196 r12198 408 408 REAL(wp) :: zbeta0, ze3_e1, ze3_e2 409 409 REAL(wp), DIMENSION(jpi,jpj) :: z1_mlbw 410 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zalbet411 410 REAL(wp), DIMENSION(jpi,jpj,jpk,0:1) :: zdxrho , zdyrho, zdzrho ! Horizontal and vertical density gradients 412 411 REAL(wp), DIMENSION(jpi,jpj,0:1,0:1) :: zti_mlb, ztj_mlb ! for Griffies operator only … … 464 463 zdks = 0._wp 465 464 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 & 468 467 & ) / e3w_n(ji,jj,jk+kp) 469 468 zdzrho(ji,jj,jk,kp) = - MIN( - repsln , zdzrho_raw ) ! force zdzrho >= repsln
Note: See TracChangeset
for help on using the changeset viewer.