Ignore:
Timestamp:
Oct 21, 2016 3:11:58 PM (5 years ago)
Author:
knoop
Message:

Renamed variable rho to rho_ocean, rho_init to rho_ocean_init and rho_av to rho_ocean_av

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/average_3d_data.f90

    r2012 r2031  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
    2323!
    2424! Former revisions:
     
    318318             ENDDO
    319319
    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 )
    325325                   ENDDO
    326326                ENDDO
Note: See TracChangeset for help on using the changeset viewer.