Changeset 14699 for NEMO/branches
- Timestamp:
- 2021-04-13T14:16:16+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/NERC/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/ZDF/zdfosm.F90
r14677 r14699 1803 1803 REAL(wp), PARAMETER :: rn_vispyc_shr = 0.15 1804 1804 1805 pb_coup(:,:) = 0._wp 1806 1805 1807 DO jj = 2, jpjm1 1806 1808 DO ji = 2, jpim1 1807 pb_coup(ji,jj) = 0._wp1808 1809 IF ( lconv(ji,jj) ) THEN 1809 1810 … … 3675 3676 hbl (ji,jj) = gdepw_n(ji,jj,iiki ) ! Turbocline depth 3676 3677 dh (ji,jj) = e3t_n(ji,jj,iiki-1 ) ! Turbocline depth 3678 hml (ji,jj) = hbl(ji,jj) - dh(ji,jj) 3677 3679 END DO 3678 3680 END DO
Note: See TracChangeset
for help on using the changeset viewer.