- Timestamp:
- 2019-11-28T13:22:58+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_griffies_triad_ticket1928/src/OCE/LDF/ldfslp.F90
r11715 r12000 458 458 zdks = 0._wp 459 459 ENDIF 460 zdzrho_raw = ( - rab_b(ji,jj,jk +kp,jp_tem) * zdkt &461 & + rab_b(ji,jj,jk +kp,jp_sal) * zdks &460 zdzrho_raw = ( - rab_b(ji,jj,jk ,jp_tem) * zdkt & 461 & + rab_b(ji,jj,jk ,jp_sal) * zdks & 462 462 & ) / e3w_n(ji,jj,jk+kp) 463 463 zdzrho(ji,jj,jk,kp) = - MIN( - repsln , zdzrho_raw ) ! force zdzrho >= repsln
Note: See TracChangeset
for help on using the changeset viewer.