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

Added support for RRTMG radiation code

File:
1 edited

Legend:

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

    r1439 r1585  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added support for RRTMG
    2323!
    2424! Former revisions:
     
    108108   
    109109    USE pegrid
     110
     111    USE radiation_model_mod,                                                   &
     112        ONLY:  rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av,             &
     113               rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av
    110114
    111115    IMPLICIT NONE
     
    393397             ENDIF
    394398
     399          CASE ( 'rad_sw_in' )
     400             IF ( av == 0 )  THEN
     401                to_be_resorted => rad_sw_in
     402             ELSE
     403                to_be_resorted => rad_sw_in_av
     404             ENDIF
     405
     406          CASE ( 'rad_sw_out' )
     407             IF ( av == 0 )  THEN
     408                to_be_resorted => rad_sw_out
     409             ELSE
     410                to_be_resorted => rad_sw_out_av
     411             ENDIF
     412
     413          CASE ( 'rad_lw_in' )
     414             IF ( av == 0 )  THEN
     415                to_be_resorted => rad_lw_in
     416             ELSE
     417                to_be_resorted => rad_lw_in_av
     418             ENDIF
     419
     420          CASE ( 'rad_lw_out' )
     421             IF ( av == 0 )  THEN
     422                to_be_resorted => rad_lw_out
     423             ELSE
     424                to_be_resorted => rad_lw_out_av
     425             ENDIF
     426
    395427          CASE ( 'rho' )
    396428             IF ( av == 0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.