- Timestamp:
- 2018-07-11T10:24:17+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/ZDF/zdfmxl.F90
r9598 r9923 93 93 nmln(:,:) = nlb10 ! Initialization to the number of w ocean point 94 94 hmlp(:,:) = 0._wp ! here hmlp used as a dummy variable, integrating vertically N^2 95 zN2_c = grav * rho_c * r1_r au0 ! convert density criteria into N^2 criteria95 zN2_c = grav * rho_c * r1_rho0 ! convert density criteria into N^2 criteria 96 96 DO jk = nlb10, jpkm1 97 97 DO jj = 1, jpj ! Mixed layer level: w-level
Note: See TracChangeset
for help on using the changeset viewer.