Ignore:
Timestamp:
Nov 28, 2018 11:40:28 AM (3 years ago)
Author:
suehring
Message:

Additional output for radiative fluxes added

File:
1 edited

Legend:

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

    r3560 r3572  
    2626! -----------------
    2727! $Id$
     28! Define short- and longwave radiation flux arrays (e.g. diffuse, direct,
     29! reflected, resedual) for all surfaces. This is required to surface outputs
     30! in suface_output_mod. (M. Salim)
     31!
     32! 3560 2018-11-23 09:20:21Z raasch
    2833! Surface restoring in restarts commented. Some formatting.
    2934!
     
    392397       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_lw_in           !< incoming longwave radiation
    393398       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_lw_out          !< emitted longwave radiation
     399       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_lw_dif          !< incoming longwave radiation from sky
     400       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_lw_ref          !< incoming longwave radiation from reflection
     401       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_lw_res          !< resedual longwave radiation in surface after last reflection step
    394402       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_sw_in           !< incoming shortwave radiation
    395403       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_sw_out          !< emitted shortwave radiation
     404       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_sw_dir          !< direct incoming shortwave radiation
     405       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_sw_dif          !< diffuse incoming shortwave radiation
     406       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_sw_ref          !< incoming shortwave radiation from reflection
     407       REAL(wp), DIMENSION(:), ALLOCATABLE ::  rad_sw_res          !< resedual shortwave radiation in surface after last reflection step
    396408       
    397409
Note: See TracChangeset for help on using the changeset viewer.