Changeset 4587


Ignore:
Timestamp:
Jul 6, 2020 8:53:45 AM (2 months ago)
Author:
pavelkrc
Message:

Marked RTM version 3.1, bugfixes

File:
1 edited

Legend:

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

    r4584 r4587  
    2323! Current revisions:
    2424! ------------------
    25 ! 
    26 ! 
     25!
     26!
    2727! Former revisions:
    2828! -----------------
    2929! $Id$
     30! RTM version 3.1 (see also previous commits):
     31! - rotation_angle supported
     32! - plant canopy box count minimized
     33! - multiple enhancements and bugfixes
     34!
     35! 4584 2020-06-29 13:16:14Z pavelkrc
    3036! Consider only boxes with LAD>0 as plant canopy (credit: S. Schubert)
    3137!
     
    1050210508              ENDDO
    1050310509
    10504           CASE ( 'rad_mrt_sw' )
     10510          CASE ( 'rtm_mrt_sw' )
    1050510511             IF ( ALLOCATED( mrtinsw_av ) )  THEN
    1050610512                mrtinsw_av(:) = mrtinsw_av(:) + mrtinsw(:)
    1050710513             ENDIF
    1050810514
    10509           CASE ( 'rad_mrt_lw' )
     10515          CASE ( 'rtm_mrt_lw' )
    1051010516             IF ( ALLOCATED( mrtinlw_av ) )  THEN
    1051110517                mrtinlw_av(:) = mrtinlw_av(:) + mrtinlw(:)
    1051210518             ENDIF
    1051310519
    10514           CASE ( 'rad_mrt' )
     10520          CASE ( 'rtm_mrt' )
    1051510521             IF ( ALLOCATED( mrt_av ) )  THEN
    1051610522                mrt_av(:) = mrt_av(:) + mrt(:)
     
    1079410800              ENDDO
    1079510801
    10796           CASE ( 'rad_mrt_lw' )
     10802          CASE ( 'rtm_mrt_sw' )
     10803             IF ( ALLOCATED( mrtinsw_av ) )  THEN
     10804                DO imrt = 1, nmrtbl
     10805                   mrtinsw_av(imrt) = mrtinsw_av(imrt) / REAL( average_count_3d, KIND=wp )
     10806                ENDDO
     10807             ENDIF
     10808
     10809          CASE ( 'rtm_mrt_lw' )
    1079710810             IF ( ALLOCATED( mrtinlw_av ) )  THEN
    1079810811                DO imrt = 1, nmrtbl
     
    1080110814             ENDIF
    1080210815
    10803           CASE ( 'rad_mrt' )
     10816          CASE ( 'rtm_mrt' )
    1080410817             IF ( ALLOCATED( mrt_av ) )  THEN
    1080510818                DO imrt = 1, nmrtbl
     
    1086610879                 'rad_sw_hr_xy', 'rad_lw_cs_hr_xz', 'rad_lw_hr_xz',               &
    1086710880                 'rad_sw_cs_hr_xz', 'rad_sw_hr_xz', 'rad_lw_cs_hr_yz',            &
    10868                  'rad_lw_hr_yz', 'rad_sw_cs_hr_yz', 'rad_sw_hr_yz',               &
    10869                  'rad_mrt', 'rad_mrt_sw', 'rad_mrt_lw' )
     10881                 'rad_lw_hr_yz', 'rad_sw_cs_hr_yz', 'rad_sw_hr_yz' )
    1087010882             grid_x = 'x'
    1087110883             grid_y = 'y'
Note: See TracChangeset for help on using the changeset viewer.