Ignore:
Timestamp:
Nov 2, 2015 7:43:04 AM (6 years ago)
Author:
maronga
Message:

minor bugfixes for radiation model. bugfix in subjob

File:
1 edited

Legend:

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

    r1692 r1701  
    1515!
    1616! Copyright 1997-2015 Leibniz Universitaet Hannover
    17 !--------------------------------------------------------------------------------!
     17 !--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix in output of RRTGM data
    2222!
    2323! Former revisions:
     
    953953                   to_be_resorted => rad_lw_in_av
    954954                ENDIF
     955                IF ( mode == 'xy' )  level_z = zu
    955956
    956957             CASE ( 'rad_lw_out_xy', 'rad_lw_out_xz', 'rad_lw_out_yz' )
     
    960961                   to_be_resorted => rad_lw_out_av
    961962                ENDIF
     963                IF ( mode == 'xy' )  level_z = zu
    962964
    963965             CASE ( 'rad_lw_cs_hr_xy', 'rad_lw_cs_hr_xz', 'rad_lw_cs_hr_yz' )
     
    967969                   to_be_resorted => rad_lw_cs_hr_av
    968970                ENDIF
     971                IF ( mode == 'xy' )  level_z = zw
    969972
    970973             CASE ( 'rad_lw_hr_xy', 'rad_lw_hr_xz', 'rad_lw_hr_yz' )
     
    974977                   to_be_resorted => rad_lw_hr_av
    975978                ENDIF
     979                IF ( mode == 'xy' )  level_z = zw
    976980
    977981             CASE ( 'rad_sw_in_xy', 'rad_sw_in_xz', 'rad_sw_in_yz' )
     
    981985                   to_be_resorted => rad_sw_in_av
    982986                ENDIF
     987                IF ( mode == 'xy' )  level_z = zu
    983988
    984989             CASE ( 'rad_sw_out_xy', 'rad_sw_out_xz', 'rad_sw_out_yz' )
     
    988993                   to_be_resorted => rad_sw_out_av
    989994                ENDIF
     995                IF ( mode == 'xy' )  level_z = zu
    990996
    991997             CASE ( 'rad_sw_cs_hr_xy', 'rad_sw_cs_hr_xz', 'rad_sw_cs_hr_yz' )
     
    9951001                   to_be_resorted => rad_sw_cs_hr_av
    9961002                ENDIF
     1003                IF ( mode == 'xy' )  level_z = zw
    9971004
    9981005             CASE ( 'rad_sw_hr_xy', 'rad_sw_hr_xz', 'rad_sw_hr_yz' )
     
    10021009                   to_be_resorted => rad_sw_hr_av
    10031010                ENDIF
     1011                IF ( mode == 'xy' )  level_z = zw
    10041012
    10051013             CASE ( 'rho_xy', 'rho_xz', 'rho_yz' )
Note: See TracChangeset for help on using the changeset viewer.