Changeset 11979 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM/vertical_movement_fabm.F90
- Timestamp:
- 2019-11-27T12:55:34+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils305/NEMOGCM/NEMO/TOP_SRC/FABM/vertical_movement_fabm.F90
r10156 r11979 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.