Changeset 1976 for palm/trunk/SOURCE/data_output_3d.f90
- Timestamp:
- Jul 27, 2016 1:28:04 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_3d.f90
r1973 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: … … 165 165 166 166 USE radiation_model_mod, & 167 ONLY: rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av, & 168 rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av, & 169 rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av, & 170 rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, rad_sw_hr_av 167 ONLY: radiation, radiation_data_output_3d 171 168 172 169 … … 494 491 ENDIF 495 492 496 CASE ( 'rad_sw_in' )497 IF ( av == 0 ) THEN498 to_be_resorted => rad_sw_in499 ELSE500 to_be_resorted => rad_sw_in_av501 ENDIF502 503 CASE ( 'rad_sw_out' )504 IF ( av == 0 ) THEN505 to_be_resorted => rad_sw_out506 ELSE507 to_be_resorted => rad_sw_out_av508 ENDIF509 510 CASE ( 'rad_sw_cs_hr' )511 IF ( av == 0 ) THEN512 to_be_resorted => rad_sw_cs_hr513 ELSE514 to_be_resorted => rad_sw_cs_hr_av515 ENDIF516 517 CASE ( 'rad_sw_hr' )518 IF ( av == 0 ) THEN519 to_be_resorted => rad_sw_hr520 ELSE521 to_be_resorted => rad_sw_hr_av522 ENDIF523 524 CASE ( 'rad_lw_in' )525 IF ( av == 0 ) THEN526 to_be_resorted => rad_lw_in527 ELSE528 to_be_resorted => rad_lw_in_av529 ENDIF530 531 CASE ( 'rad_lw_out' )532 IF ( av == 0 ) THEN533 to_be_resorted => rad_lw_out534 ELSE535 to_be_resorted => rad_lw_out_av536 ENDIF537 538 CASE ( 'rad_lw_cs_hr' )539 IF ( av == 0 ) THEN540 to_be_resorted => rad_lw_cs_hr541 ELSE542 to_be_resorted => rad_lw_cs_hr_av543 ENDIF544 545 CASE ( 'rad_lw_hr' )546 IF ( av == 0 ) THEN547 to_be_resorted => rad_lw_hr548 ELSE549 to_be_resorted => rad_lw_hr_av550 ENDIF551 552 493 CASE ( 'rho' ) 553 494 IF ( av == 0 ) THEN … … 613 554 614 555 CALL lsm_data_output_3d( av, do3d(av,if), found, local_pf ) 556 resorted = .TRUE. 557 558 ! 559 !-- If no soil model variable was found, re-allocate local_pf 560 IF ( .NOT. found ) THEN 561 nzb_do = nzb 562 nzt_do = nz_do3d 563 564 DEALLOCATE ( local_pf ) 565 ALLOCATE( local_pf(nxlg:nxrg,nysg:nyng,nzb_do:nzt_do) ) 566 ENDIF 567 568 ENDIF 569 570 ! 571 !-- Radiation quantity 572 IF ( .NOT. found .AND. radiation ) THEN 573 CALL radiation_data_output_3d( av, do3d(av,if), found, & 574 local_pf ) 615 575 resorted = .TRUE. 616 576 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.