Ignore:
Timestamp:
Apr 30, 2015 7:05:52 AM (6 years ago)
Author:
maronga
Message:

Added support for RRTMG radiation code

File:
1 edited

Legend:

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

    r1552 r1585  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Added support for RRTMG
    2323!
    2424! Former revisions:
     
    128128       
    129129    USE pegrid
     130
     131    USE radiation_model_mod,                                                   &
     132        ONLY:  rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av,             &
     133               rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av
     134
    130135
    131136    IMPLICIT NONE
     
    467472             ELSE
    468473                to_be_resorted => qv_av
     474             ENDIF
     475
     476          CASE ( 'rad_sw_in' )
     477             IF ( av == 0 )  THEN
     478                to_be_resorted => rad_sw_in
     479             ELSE
     480                to_be_resorted => rad_sw_in_av
     481             ENDIF
     482
     483          CASE ( 'rad_sw_out' )
     484             IF ( av == 0 )  THEN
     485                to_be_resorted => rad_sw_out
     486             ELSE
     487                to_be_resorted => rad_sw_out_av
     488             ENDIF
     489
     490          CASE ( 'rad_lw_in' )
     491             IF ( av == 0 )  THEN
     492                to_be_resorted => rad_lw_in
     493             ELSE
     494                to_be_resorted => rad_lw_in_av
     495             ENDIF
     496
     497          CASE ( 'rad_lw_out' )
     498             IF ( av == 0 )  THEN
     499                to_be_resorted => rad_lw_out
     500             ELSE
     501                to_be_resorted => rad_lw_out_av
    469502             ENDIF
    470503
Note: See TracChangeset for help on using the changeset viewer.