Ignore:
Timestamp:
Jul 13, 2009 1:14:25 PM (15 years ago)
Author:
maronga
Message:

xy cross section output of sensible and latent heatflux is now available

File:
1 edited

Legend:

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

    r198 r354  
    139139          WRITE ( 14 )  'qsws_m              ';  WRITE ( 14 ) qsws_m
    140140       ENDIF
     141       IF ( ALLOCATED( qsws_av ) )  THEN
     142          WRITE ( 14 )  'qsws_av             ';  WRITE ( 14 )  qsws_av
     143       ENDIF
    141144       WRITE ( 14 )  'qswst               ';  WRITE ( 14 ) qswst
    142145       IF ( timestep_scheme(1:5) /= 'runge' )  THEN
     
    182185    IF ( timestep_scheme(1:5) /= 'runge' )  THEN
    183186       WRITE ( 14 )  'shf_m               ';  WRITE ( 14 )  shf_m
     187    ENDIF
     188    IF ( ALLOCATED( shf_av ) )  THEN
     189       WRITE ( 14 )  'shf_av              ';  WRITE ( 14 )  shf_av
    184190    ENDIF
    185191    IF ( ALLOCATED( spectrum_x ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.