Changeset 6078 for branches/2015/dev_merge_2015
- Timestamp:
- 2015-12-17T11:07:26+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r6069 r6078 124 124 iikn = nmln(ji,jj) 125 125 imkt = mikt(ji,jj) 126 hmld (ji,jj) = gdepw (ji,jj,iiki ) * ssmask(ji,jj) ! Turbocline depth127 hmlp (ji,jj) = gdepw (ji,jj,iikn ) * ssmask(ji,jj) ! Mixed layer depth128 hmlpt(ji,jj) = gdept (ji,jj,iikn-1) * ssmask(ji,jj) ! depth of the last T-point inside the mixed layer126 hmld (ji,jj) = gdepw_n(ji,jj,iiki ) * ssmask(ji,jj) ! Turbocline depth 127 hmlp (ji,jj) = gdepw_n(ji,jj,iikn ) * ssmask(ji,jj) ! Mixed layer depth 128 hmlpt(ji,jj) = gdept_n(ji,jj,iikn-1) * ssmask(ji,jj) ! depth of the last T-point inside the mixed layer 129 129 END DO 130 130 END DO
Note: See TracChangeset
for help on using the changeset viewer.