Changeset 4518 for palm/trunk/SOURCE/data_output_2d.f90
- Timestamp:
- May 4, 2020 3:44:28 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_2d.f90
r4514 r4518 25 25 ! ----------------- 26 26 ! $Id$ 27 ! remove double index 28 ! 29 ! 4514 2020-04-30 16:29:59Z suehring 27 30 ! Enable output of qsurf and ssurf 28 31 ! … … 891 894 DO j = nys, nyn 892 895 k = topo_top_ind(j,i,0) 893 local_pf(i,j,nzb+1) = s(k +k,j,i)896 local_pf(i,j,nzb+1) = s(k,j,i) 894 897 ENDDO 895 898 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.