- Timestamp:
- 2020-02-24T14:00:21+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/DOM/domvvl.F90
r12424 r12443 621 621 ELSE 622 622 tilde_e3t_b(:,:,:) = tilde_e3t_n(:,:,:) & 623 & + atfp * ( tilde_e3t_b(:,:,:) - 2.0_wp * tilde_e3t_n(:,:,:) + tilde_e3t_a(:,:,:) )623 & + rn_atfp * ( tilde_e3t_b(:,:,:) - 2.0_wp * tilde_e3t_n(:,:,:) + tilde_e3t_a(:,:,:) ) 624 624 ENDIF 625 625 tilde_e3t_n(:,:,:) = tilde_e3t_a(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.