Ignore:
Timestamp:
Oct 26, 2015 4:17:44 PM (8 years ago)
Author:
maronga
Message:

various bugfixes and modifications of the atmosphere-land-surface-radiation interaction. Completely re-written routine to calculate surface fluxes (surface_layer_fluxes.f90) that replaces prandtl_fluxes. Minor formatting corrections and renamings

File:
1 edited

Legend:

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

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of radiative heating rates for RRTMG
    2222!
    2323! Former revisions:
     
    119119    USE radiation_model_mod,                                                   &
    120120        ONLY:  rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av,             &
    121                rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av
     121               rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av,         &
     122               rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av,             &
     123               rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, rad_sw_hr_av
     124
    122125
    123126    IMPLICIT NONE
     
    405408             ENDIF
    406409
     410          CASE ( 'rad_lw_in' )
     411             IF ( av == 0 )  THEN
     412                to_be_resorted => rad_lw_in
     413             ELSE
     414                to_be_resorted => rad_lw_in_av
     415             ENDIF
     416
     417          CASE ( 'rad_lw_out' )
     418             IF ( av == 0 )  THEN
     419                to_be_resorted => rad_lw_out
     420             ELSE
     421                to_be_resorted => rad_lw_out_av
     422             ENDIF
     423
     424          CASE ( 'rad_lw_cs_hr' )
     425             IF ( av == 0 )  THEN
     426                to_be_resorted => rad_lw_cs_hr
     427             ELSE
     428                to_be_resorted => rad_lw_cs_hr_av
     429             ENDIF
     430
     431          CASE ( 'rad_lw_hr' )
     432             IF ( av == 0 )  THEN
     433                to_be_resorted => rad_lw_hr
     434             ELSE
     435                to_be_resorted => rad_lw_hr_av
     436             ENDIF
     437
    407438          CASE ( 'rad_sw_in' )
    408439             IF ( av == 0 )  THEN
     
    419450             ENDIF
    420451
    421           CASE ( 'rad_lw_in' )
    422              IF ( av == 0 )  THEN
    423                 to_be_resorted => rad_lw_in
    424              ELSE
    425                 to_be_resorted => rad_lw_in_av
    426              ENDIF
    427 
    428           CASE ( 'rad_lw_out' )
    429              IF ( av == 0 )  THEN
    430                 to_be_resorted => rad_lw_out
    431              ELSE
    432                 to_be_resorted => rad_lw_out_av
     452          CASE ( 'rad_sw_cs_hr' )
     453             IF ( av == 0 )  THEN
     454                to_be_resorted => rad_sw_cs_hr
     455             ELSE
     456                to_be_resorted => rad_sw_cs_hr_av
     457             ENDIF
     458
     459          CASE ( 'rad_sw_hr' )
     460             IF ( av == 0 )  THEN
     461                to_be_resorted => rad_sw_hr
     462             ELSE
     463                to_be_resorted => rad_sw_hr_av
    433464             ENDIF
    434465
Note: See TracChangeset for help on using the changeset viewer.