This module sets up surface albedo for SW radiation and surface emissivity for LW radiation.
Functions/Subroutines | |
subroutine, public | sfc_init (me, ialbflg, iemsflg, semis_file, con_pi, errmsg, errflg) |
This subroutine is the initialization program for surface radiation related quantities (albedo, emissivity, etc.) More... | |
subroutine, public | setalb (slmsk, lsm, lsm_noahmp, lsm_ruc, use_cice_alb, snodi, sncovr, sncovr_ice, snoalb, zorlf, coszf, tsknf, tairf, hprif, frac_grid, lakefrac, alvsf, alnsf, alvwf, alnwf, facsf, facwf, fice, tisfc, lsmalbdvis, lsmalbdnir, lsmalbivis, lsmalbinir, icealbdvis, icealbdnir, icealbivis, icealbinir, IMAX, NF_ALBD, albPpert, pertalb, fracl, fraco, fraci, icy, ialbflg, con_ttp, sfcalb) |
This subroutine computes four components of surface albedos (i.e., vis-nir, direct-diffused) according to control flag ialbflg. 1) climatological surface albedo scheme ([31]) 2) MODIS retrieval based scheme from Boston univ. More... | |
subroutine, public | setemis (lsm, lsm_noahmp, lsm_ruc, frac_grid, cplice, use_lake_model, lakefrac, xlon, xlat, slmsk, snodl, snodi, sncovr, sncovr_ice, zorlf, tsknf, tairf, hprif, semis_lnd, semis_ice, semis_wat, IMAX, fracl, fraco, fraci, icy, semisbase, sfcemis) |
This subroutine computes surface emissivity for LW radiation. More... | |
Variables | |
character(40), parameter | vtagsfc ='NCEP-Radiation_surface v5.1 Nov 2012 ' |
integer, parameter, public | imxems = 360 |
integer, parameter, public | jmxems = 180 |
real(kind=kind_phys), parameter, public | f_zero = 0.0 |
real(kind=kind_phys), parameter, public | f_one = 1.0 |
real(kind=kind_phys), parameter, public | epsln = 1.0e-6 |
real(kind=kind_phys) | rad2dg |
integer, dimension(:,:), allocatable | idxems |
integer | iemslw = 1 |