Changeset 12448 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/TOP_SRC/FABM/vertical_movement_fabm.F90
- Timestamp:
- 2020-02-24T17:39:27+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/TOP_SRC/FABM/vertical_movement_fabm.F90
r10156 r12448 104 104 c_no(2:k_floor)=abs(w_if(2:k_floor,jn))*z2dt/ & 105 105 ( 0.5_wp*(fse3t(ji,jj,2:k_floor) + & 106 fse3t(ji,j i,1:k_floor-1)) )106 fse3t(ji,jj,1:k_floor-1)) ) 107 107 cmax_no=MAXVAL(c_no(2:k_floor)) 108 108
Note: See TracChangeset
for help on using the changeset viewer.