Changeset 1691 for palm/trunk/SOURCE/data_output_mask.f90
- Timestamp:
- Oct 26, 2015 4:17:44 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_mask.f90
r1683 r1691 14 14 ! PALM. If not, see <http://www.gnu.org/licenses/>. 15 15 ! 16 ! Copyright 1997-201 4Leibniz Universitaet Hannover16 ! Copyright 1997-2015 Leibniz Universitaet Hannover 17 17 !--------------------------------------------------------------------------------! 18 18 ! 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Added output of radiative heating rates for RRTMG 22 22 ! 23 23 ! Former revisions: … … 119 119 USE radiation_model_mod, & 120 120 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 122 125 123 126 IMPLICIT NONE … … 405 408 ENDIF 406 409 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 407 438 CASE ( 'rad_sw_in' ) 408 439 IF ( av == 0 ) THEN … … 419 450 ENDIF 420 451 421 CASE ( 'rad_ lw_in' )422 IF ( av == 0 ) THEN 423 to_be_resorted => rad_ lw_in424 ELSE 425 to_be_resorted => rad_ lw_in_av426 ENDIF 427 428 CASE ( 'rad_ lw_out' )429 IF ( av == 0 ) THEN 430 to_be_resorted => rad_ lw_out431 ELSE 432 to_be_resorted => rad_ lw_out_av452 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 433 464 ENDIF 434 465
Note: See TracChangeset
for help on using the changeset viewer.