Ignore:
Timestamp:
Jun 17, 2016 7:19:16 AM (5 years ago)
Author:
maronga
Message:

bugfixes in output of land surface variables

File:
1 edited

Legend:

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

    r1852 r1949  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: calculation of lai_av, c_veg_av and c_liq_av.
    2222!
    2323! Former revisions:
     
    530530             DO  i = nxlg, nxrg
    531531                DO  j = nysg, nyng
    532                    c_liq_av(j,i) = c_liq_av(j,i)
     532                   c_liq_av(j,i) = c_liq_av(j,i) + c_liq(j,i)
    533533                ENDDO
    534534             ENDDO
     
    537537             DO  i = nxlg, nxrg
    538538                DO  j = nysg, nyng
    539                    c_soil_av(j,i) = c_soil_av(j,i) + (1.0_wp - c_veg(j,i))
     539                   c_soil_av(j,i) = c_soil_av(j,i) + (1.0 - c_veg(j,i))
    540540                ENDDO
    541541             ENDDO
     
    544544             DO  i = nxlg, nxrg
    545545                DO  j = nysg, nyng
    546                    c_veg_av(j,i) = c_veg_av(j,i)
     546                   c_veg_av(j,i) = c_veg_av(j,i) + c_veg(j,i)
    547547                ENDDO
    548548             ENDDO
     
    567567             DO  i = nxlg, nxrg
    568568                DO  j = nysg, nyng
    569                    lai_av(j,i) = lai_av(j,i)
     569                   lai_av(j,i) = lai_av(j,i) + lai(j,i)
    570570                ENDDO
    571571             ENDDO
Note: See TracChangeset for help on using the changeset viewer.