Changeset 1587


Ignore:
Timestamp:
May 4, 2015 2:19:01 PM (7 years ago)
Author:
maronga
Message:

small adjustments for RRTMG

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1586 r1587  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added check for set of albedos when using RRTMG
    2323!
    2424! Former revisions:
     
    11671167          CALL message( 'check_parameters', 'PA0410', 1, 2, 0, 6, 0 )
    11681168       ENDIF
     1169       IF ( albedo_type == 0 .AND. radiation_scheme == 'rrtmg' .AND.           &
     1170          (    albedo_lw_dif == 9999999.9_wp .OR. albedo_lw_dir == 9999999.9_wp&
     1171          .OR. albedo_sw_dif == 9999999.9_wp .OR. albedo_sw_dir == 9999999.9_wp&
     1172          ) ) THEN
     1173          message_string = 'radiation_scheme = "rrtmg" in combination' //      &
     1174                           'with albedo_type = 0 requires setting of ' //      &
     1175                           'albedo_lw_dif /= 9999999.9' //                     &
     1176                           'albedo_lw_dir /= 9999999.9' //                     &
     1177                           'albedo_sw_dif /= 9999999.9 and' //                 &
     1178                           'albedo_sw_dir /= 9999999.9'
     1179          CALL message( 'check_parameters', 'PA0411', 1, 2, 0, 6, 0 )
     1180       ENDIF
     1181
    11691182    ENDIF
    11701183
  • palm/trunk/SOURCE/radiation_model.f90

    r1586 r1587  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added albedo class for snow
    2323!
    2424! Former revisions:
     
    123123                                   'desert, rocky',                        & ! 12
    124124                                   'tundra',                               & ! 13
    125                                    'landice',                              & ! 14
     125                                   'land ice',                             & ! 14
    126126                                   'sea ice',                              & ! 15
    127127                                   'snow'                                  & ! 16
     
    178178!-- Land surface albedos for solar zenith angle of 60° after Briegleb (1992)     
    179179!-- (shortwave, longwave, broadband):   sw,      lw,      bb,
    180     REAL(wp), DIMENSION(0:2,1:15), PARAMETER :: albedo_pars = RESHAPE( (/&
     180    REAL(wp), DIMENSION(0:2,1:16), PARAMETER :: albedo_pars = RESHAPE( (/&
    181181                                   0.06_wp, 0.06_wp, 0.06_wp,            & !  1
    182182                                   0.09_wp, 0.28_wp, 0.19_wp,            & !  2
     
    193193                                   0.10_wp, 0.27_wp, 0.19_wp,            & ! 13
    194194                                   0.90_wp, 0.65_wp, 0.77_wp,            & ! 14
    195                                    0.95_wp, 0.70_wp, 0.82_wp             & ! 15
    196                                  /), (/ 3, 15 /) )
     195                                   0.90_wp, 0.65_wp, 0.77_wp,            & ! 15
     196                                   0.95_wp, 0.70_wp, 0.82_wp             & ! 16
     197                                 /), (/ 3, 16 /) )
    197198
    198199    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET :: &
Note: See TracChangeset for help on using the changeset viewer.