Changeset 1976 for palm/trunk/SOURCE/data_output_mask.f90
- Timestamp:
- Jul 27, 2016 1:28:04 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_mask.f90
r1961 r1976 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Output of radiation quantities is now done directly in the respective module 22 22 ! 23 23 ! Former revisions: … … 127 127 128 128 USE radiation_model_mod, & 129 ONLY: rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av, & 130 rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av, & 131 rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av, & 132 rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, rad_sw_hr_av 133 129 ONLY: radiation, radiation_data_output_mask 134 130 135 131 IMPLICIT NONE … … 425 421 ENDIF 426 422 427 CASE ( 'rad_lw_in' )428 IF ( av == 0 ) THEN429 to_be_resorted => rad_lw_in430 ELSE431 to_be_resorted => rad_lw_in_av432 ENDIF433 434 CASE ( 'rad_lw_out' )435 IF ( av == 0 ) THEN436 to_be_resorted => rad_lw_out437 ELSE438 to_be_resorted => rad_lw_out_av439 ENDIF440 441 CASE ( 'rad_lw_cs_hr' )442 IF ( av == 0 ) THEN443 to_be_resorted => rad_lw_cs_hr444 ELSE445 to_be_resorted => rad_lw_cs_hr_av446 ENDIF447 448 CASE ( 'rad_lw_hr' )449 IF ( av == 0 ) THEN450 to_be_resorted => rad_lw_hr451 ELSE452 to_be_resorted => rad_lw_hr_av453 ENDIF454 455 CASE ( 'rad_sw_in' )456 IF ( av == 0 ) THEN457 to_be_resorted => rad_sw_in458 ELSE459 to_be_resorted => rad_sw_in_av460 ENDIF461 462 CASE ( 'rad_sw_out' )463 IF ( av == 0 ) THEN464 to_be_resorted => rad_sw_out465 ELSE466 to_be_resorted => rad_sw_out_av467 ENDIF468 469 CASE ( 'rad_sw_cs_hr' )470 IF ( av == 0 ) THEN471 to_be_resorted => rad_sw_cs_hr472 ELSE473 to_be_resorted => rad_sw_cs_hr_av474 ENDIF475 476 CASE ( 'rad_sw_hr' )477 IF ( av == 0 ) THEN478 to_be_resorted => rad_sw_hr479 ELSE480 to_be_resorted => rad_sw_hr_av481 ENDIF482 483 423 CASE ( 'rho' ) 484 424 IF ( av == 0 ) THEN … … 531 471 532 472 CASE DEFAULT 473 474 ! 475 !-- Radiation quantity 476 IF ( radiation ) THEN 477 CALL radiation_data_output_mask(av, domask(mid,av,if), found, & 478 local_pf ) 479 ENDIF 480 533 481 ! 534 482 !-- User defined quantity 535 CALL user_data_output_mask(av, domask(mid,av,if), found, local_pf ) 483 IF ( .NOT. found ) THEN 484 CALL user_data_output_mask(av, domask(mid,av,if), found, & 485 local_pf ) 486 ENDIF 487 536 488 resorted = .TRUE. 537 489
Note: See TracChangeset
for help on using the changeset viewer.