Changeset 2031 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Oct 21, 2016 3:11:58 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r2012 r2031 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! renamed variable rho to rho_ocean and rho_av to rho_ocean_av 23 23 ! 24 24 ! Former revisions: … … 318 318 ENDDO 319 319 320 CASE ( 'rho ' )321 DO i = nxlg, nxrg 322 DO j = nysg, nyng 323 DO k = nzb, nzt+1 324 rho_ av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d, KIND=wp )320 CASE ( 'rho_ocean' ) 321 DO i = nxlg, nxrg 322 DO j = nysg, nyng 323 DO k = nzb, nzt+1 324 rho_ocean_av(k,j,i) = rho_ocean_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 325 325 ENDDO 326 326 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.