SUEWS API Site
Documentation of SUEWS source code
|
Functions/Subroutines | |
subroutine | beers_cal_main (iy, id, dectime, lamdaP, lamdaF, avkdn, ldown, Temp_C, avrh, Press_hPa, Tsurf, lat, lng, alt, timezone, zenith_deg, azimuth, alb_ground, alb_bldg, emis_ground, emis_wall, dataOutLineBEERS) |
subroutine | cal_ci_latenight (iy, DOY, Ta_degC, RH_frac, radG, lat, P_kPa, CIlatenight, dectime_sunrise, zen_sunrise, I0_sunrise) |
subroutine | kroof (radI, radD, radG, F_sh, altitude, svfr, svfveg, shadow, psi, alb_bldg, Kdown) |
subroutine | cal_svfalfa (svfr, svfveg, svfalfa, tmp) |
real(kind(1d0)) function | cal_ratio_height2width (lamdaP, lamdaF) |
real(kind(1d0)) function | hwtosvf_ground (hw) |
real(kind(1d0)) function | hwtosvf_roof (hw) |
subroutine | tsurfbeers (iy, Ta, RH, radI, I0, dectime, SNUP, altitude, zen, timezone, lat, lng, alt, Tg, Tgwall, altmax) |
subroutine | shadowgroundkusaka (HW, azimuth, zen, shadowground, shadowwalls) |
subroutine | clearnessindex_2013b (zen, DOY, Ta_degC, RH_frac, radG, lat, P_kPa, I0, CI, Kt, I0et, CIuncorr) |
subroutine | sun_distance (jday, D) |
subroutine | cylindric_wedge (zen, svfalfa, F_sh) |
subroutine | diffusefraction (radG, altitude, Kt, Ta, RH, radI, radD) |
subroutine | kwalls (svf, svfveg, shadow, F_sh, radI, radG, radD, azimuth, altitude, psi, t, alb_ground, alb_bldg, Keast, Knorth, Ksouth, Kwest) |
subroutine | kvikt_veg (svf, svfveg, vikttot, viktveg, viktwall) |
real(kind(1d0)) function | cal_vikt (svf_x, vikttot) |
subroutine | lwalls (svf, svfveg, svfaveg, Ldown2d, Lup2d, altitude, Ta, Tw, SBC, emis_wall, emis_sky, t, CI, azimuth, ldown, svfalfa, F_sh_in, Least, Lnorth, Lsouth, Lwest) |
subroutine | lvikt_veg (isvf, isvfveg, isvfaveg, vikttot, viktveg, viktsky, viktrefl, viktwall) |
subroutine | issign (IX, MAXPOS, ISIGNM) |
subroutine | day2month (b, mb, md, seas, year, latitude) |
subroutine | month2day (mon, ne, k, b) |
subroutine | leapyearcalc (year_int, nroDays) |
elemental integer function | days_of_year (year_int) |
subroutine | day_of_week (DATE, MONTH, YEAR, DOW) |
subroutine | dectime_to_timevec (dectime, HOURS, MINS, SECS) |
subroutine | daylen (DOY, XLAT, DAYL, DEC, SNDN, SNUP) |
subroutine | suews_cal_dectime (id, it, imin, isec, dectime) |
subroutine | suews_cal_tstep (tstep, nsh, nsh_real, tstep_real) |
subroutine | suews_cal_weekday (iy, id, lat, dayofWeek_id) |
subroutine | suews_cal_dls (id, startDLS, endDLS, DLS) |
Variables | |
real(kind(1d0)), parameter | pi = ATAN(1.)*4 |
real(kind(1d0)), parameter | deg2rad = pi/180 |
real(kind(1d0)), parameter | rad2deg = 1/DEG2RAD |
subroutine beers_module::beers_cal_main | ( | integer, intent(in) | iy, |
integer, intent(in) | id, | ||
real(kind(1d0)), intent(in) | dectime, | ||
real(kind(1d0)), intent(in) | lamdaP, | ||
real(kind(1d0)), intent(in) | lamdaF, | ||
real(kind(1d0)), intent(in) | avkdn, | ||
real(kind(1d0)), intent(in) | ldown, | ||
real(kind(1d0)), intent(in) | Temp_C, | ||
real(kind(1d0)), intent(in) | avrh, | ||
real(kind(1d0)), intent(in) | Press_hPa, | ||
real(kind(1d0)), intent(in) | Tsurf, | ||
real(kind(1d0)), intent(in) | lat, | ||
real(kind(1d0)), intent(in) | lng, | ||
real(kind(1d0)), intent(in) | alt, | ||
real(kind(1d0)), intent(in) | timezone, | ||
real(kind(1d0)), intent(in) | zenith_deg, | ||
real(kind(1d0)), intent(in) | azimuth, | ||
real(kind(1d0)), intent(in) | alb_ground, | ||
real(kind(1d0)), intent(in) | alb_bldg, | ||
real(kind(1d0)), intent(in) | emis_ground, | ||
real(kind(1d0)), intent(in) | emis_wall, | ||
real(kind(1d0)), dimension(ncolumnsdataoutbeers - 5), intent(out) | dataOutLineBEERS | ||
) |
Definition at line 37 of file suews_phys_beers.f95.
References cal_ci_latenight(), cal_ratio_height2width(), clearnessindex_2013b(), cylindric_wedge(), daylen(), allocatearray::deg2rad, diffusefraction(), hwtosvf_ground(), hwtosvf_roof(), kroof(), kwalls(), lwalls(), shadowgroundkusaka(), and tsurfbeers().
Referenced by suews_driver::suews_cal_main().
subroutine beers_module::cal_ci_latenight | ( | integer, intent(in) | iy, |
integer, intent(in) | DOY, | ||
real(kind(1d0)), intent(in) | Ta_degC, | ||
real(kind(1d0)), intent(in) | RH_frac, | ||
real(kind(1d0)), intent(in) | radG, | ||
real(kind(1d0)), intent(in) | lat, | ||
real(kind(1d0)), intent(in) | P_kPa, | ||
real(kind(1d0)), intent(out) | CIlatenight, | ||
real(kind(1d0)), intent(out) | dectime_sunrise, | ||
real(kind(1d0)), intent(out) | zen_sunrise, | ||
real(kind(1d0)), intent(out) | I0_sunrise | ||
) |
Definition at line 339 of file suews_phys_beers.f95.
References clearnessindex_2013b(), daylen(), narp_module::narp_cal_sunposition(), and pi.
Referenced by beers_cal_main().
real(kind(1d0)) function beers_module::cal_ratio_height2width | ( | real(kind(1d0)), intent(in) | lamdaP, |
real(kind(1d0)), intent(in) | lamdaF | ||
) |
Definition at line 438 of file suews_phys_beers.f95.
Referenced by beers_cal_main().
subroutine beers_module::cal_svfalfa | ( | real(kind(1d0)), intent(in) | svfr, |
real(kind(1d0)), intent(in) | svfveg, | ||
real(kind(1d0)), intent(out) | svfalfa, | ||
real(kind(1d0)), intent(out) | tmp | ||
) |
Definition at line 422 of file suews_phys_beers.f95.
real(kind(1d0)) function beers_module::cal_vikt | ( | real(kind(1d0)), intent(in) | svf_x, |
real(kind(1d0)), intent(in) | vikttot | ||
) |
Definition at line 949 of file suews_phys_beers.f95.
Referenced by kvikt_veg().
subroutine beers_module::clearnessindex_2013b | ( | real(kind(1d0)), intent(in) | zen, |
integer, intent(in) | DOY, | ||
real(kind(1d0)), intent(in) | Ta_degC, | ||
real(kind(1d0)), intent(in) | RH_frac, | ||
real(kind(1d0)), intent(in) | radG, | ||
real(kind(1d0)), intent(in) | lat, | ||
real(kind(1d0)), intent(in) | P_kPa, | ||
real(kind(1d0)), intent(out) | I0, | ||
real(kind(1d0)), intent(out) | CI, | ||
real(kind(1d0)), intent(out) | Kt, | ||
real(kind(1d0)), intent(out) | I0et, | ||
real(kind(1d0)), intent(out) | CIuncorr | ||
) |
Definition at line 585 of file suews_phys_beers.f95.
References allocatearray::a2, pi, and sun_distance().
Referenced by beers_cal_main(), and cal_ci_latenight().
subroutine beers_module::cylindric_wedge | ( | real(kind(1d0)), intent(in) | zen, |
real(kind(1d0)), intent(in) | svfalfa, | ||
real(kind(1d0)), intent(out) | F_sh | ||
) |
Definition at line 706 of file suews_phys_beers.f95.
References pi.
Referenced by beers_cal_main().
subroutine beers_module::day2month | ( | integer, intent(in) | b, |
integer, intent(out) | mb, | ||
integer, intent(out) | md, | ||
integer, intent(out) | seas, | ||
integer, intent(in) | year, | ||
real(kind(1d0)) | latitude | ||
) |
Definition at line 1266 of file suews_phys_beers.f95.
Referenced by suews_cal_weekday().
subroutine beers_module::day_of_week | ( | integer | DATE, |
integer | MONTH, | ||
integer | YEAR, | ||
integer | DOW | ||
) |
Definition at line 1416 of file suews_phys_beers.f95.
Referenced by suews_cal_weekday().
subroutine beers_module::daylen | ( | integer | DOY, |
real(kind(1d0)), intent(in) | XLAT, | ||
real(kind(1d0)), intent(out) | DAYL, | ||
real(kind(1d0)), intent(out) | DEC, | ||
real(kind(1d0)), intent(out) | SNDN, | ||
real(kind(1d0)), intent(out) | SNUP | ||
) |
Definition at line 1469 of file suews_phys_beers.f95.
References pi.
Referenced by beers_cal_main(), and cal_ci_latenight().
elemental integer function beers_module::days_of_year | ( | integer, intent(in) | year_int | ) |
Definition at line 1399 of file suews_phys_beers.f95.
References allocatearray::ndays.
subroutine beers_module::dectime_to_timevec | ( | real(kind(1d0)) | dectime, |
integer | HOURS, | ||
integer | MINS, | ||
real(kind(1d0)) | SECS | ||
) |
Definition at line 1445 of file suews_phys_beers.f95.
subroutine beers_module::diffusefraction | ( | real(kind(1d0)), intent(in) | radG, |
real(kind(1d0)), intent(in) | altitude, | ||
real(kind(1d0)), intent(in) | Kt, | ||
real(kind(1d0)), intent(in) | Ta, | ||
real(kind(1d0)), intent(in) | RH, | ||
real(kind(1d0)), intent(out) | radI, | ||
real(kind(1d0)), intent(out) | radD | ||
) |
Definition at line 777 of file suews_phys_beers.f95.
References allocatearray::deg2rad.
Referenced by beers_cal_main(), and tsurfbeers().
real(kind(1d0)) function beers_module::hwtosvf_ground | ( | real(kind(1d0)), intent(in) | hw | ) |
Definition at line 457 of file suews_phys_beers.f95.
Referenced by beers_cal_main().
real(kind(1d0)) function beers_module::hwtosvf_roof | ( | real(kind(1d0)), intent(in) | hw | ) |
Definition at line 472 of file suews_phys_beers.f95.
Referenced by beers_cal_main().
subroutine beers_module::issign | ( | real(kind(1d0)) | IX, |
real(kind(1d0)) | MAXPOS, | ||
real(kind(1d0)) | ISIGNM | ||
) |
Definition at line 1236 of file suews_phys_beers.f95.
subroutine beers_module::kroof | ( | real(kind(1d0)), intent(in) | radI, |
real(kind(1d0)), intent(in) | radD, | ||
real(kind(1d0)), intent(in) | radG, | ||
real(kind(1d0)), intent(in) | F_sh, | ||
real(kind(1d0)), intent(in) | altitude, | ||
real(kind(1d0)), intent(in) | svfr, | ||
real(kind(1d0)), intent(in) | svfveg, | ||
real(kind(1d0)), intent(in) | shadow, | ||
real(kind(1d0)), intent(in) | psi, | ||
real(kind(1d0)), intent(in) | alb_bldg, | ||
real(kind(1d0)), intent(out) | Kdown | ||
) |
Definition at line 378 of file suews_phys_beers.f95.
References allocatearray::deg2rad.
Referenced by beers_cal_main().
subroutine beers_module::kvikt_veg | ( | real(kind(1d0)), intent(in) | svf, |
real(kind(1d0)), intent(in) | svfveg, | ||
real(kind(1d0)), intent(in) | vikttot, | ||
real(kind(1d0)), intent(out) | viktveg, | ||
real(kind(1d0)), intent(out) | viktwall | ||
) |
Definition at line 922 of file suews_phys_beers.f95.
References cal_vikt().
Referenced by kwalls().
subroutine beers_module::kwalls | ( | real(kind(1d0)), intent(in) | svf, |
real(kind(1d0)), intent(in) | svfveg, | ||
real(kind(1d0)), intent(in) | shadow, | ||
real(kind(1d0)), intent(in) | F_sh, | ||
real(kind(1d0)), intent(in) | radI, | ||
real(kind(1d0)), intent(in) | radG, | ||
real(kind(1d0)), intent(in) | radD, | ||
real(kind(1d0)), intent(in) | azimuth, | ||
real(kind(1d0)), intent(in) | altitude, | ||
real(kind(1d0)), intent(in) | psi, | ||
real(kind(1d0)), intent(in) | t, | ||
real(kind(1d0)), intent(in) | alb_ground, | ||
real(kind(1d0)), intent(in) | alb_bldg, | ||
real(kind(1d0)), intent(out) | Keast, | ||
real(kind(1d0)), intent(out) | Knorth, | ||
real(kind(1d0)), intent(out) | Ksouth, | ||
real(kind(1d0)), intent(out) | Kwest | ||
) |
Definition at line 822 of file suews_phys_beers.f95.
References allocatearray::deg2rad, and kvikt_veg().
Referenced by beers_cal_main().
subroutine beers_module::leapyearcalc | ( | integer | year_int, |
integer | nroDays | ||
) |
Definition at line 1381 of file suews_phys_beers.f95.
subroutine beers_module::lvikt_veg | ( | real(kind(1d0)), intent(in) | isvf, |
real(kind(1d0)), intent(in) | isvfveg, | ||
real(kind(1d0)), intent(in) | isvfaveg, | ||
real(kind(1d0)), intent(in) | vikttot, | ||
real(kind(1d0)), intent(out) | viktveg, | ||
real(kind(1d0)), intent(out) | viktsky, | ||
real(kind(1d0)), intent(out) | viktrefl, | ||
real(kind(1d0)), intent(out) | viktwall | ||
) |
Definition at line 1189 of file suews_phys_beers.f95.
Referenced by lwalls().
subroutine beers_module::lwalls | ( | real(kind(1d0)), intent(in) | svf, |
real(kind(1d0)), intent(in) | svfveg, | ||
real(kind(1d0)), intent(in) | svfaveg, | ||
real(kind(1d0)), intent(in) | Ldown2d, | ||
real(kind(1d0)), intent(in) | Lup2d, | ||
real(kind(1d0)), intent(in) | altitude, | ||
real(kind(1d0)), intent(in) | Ta, | ||
real(kind(1d0)), intent(in) | Tw, | ||
real(kind(1d0)), intent(in) | SBC, | ||
real(kind(1d0)), intent(in) | emis_wall, | ||
real(kind(1d0)), intent(in) | emis_sky, | ||
real(kind(1d0)), intent(in) | t, | ||
real(kind(1d0)), intent(in) | CI, | ||
real(kind(1d0)), intent(in) | azimuth, | ||
real(kind(1d0)), intent(in) | ldown, | ||
real(kind(1d0)), intent(in) | svfalfa, | ||
real(kind(1d0)), intent(in) | F_sh_in, | ||
real(kind(1d0)), intent(out) | Least, | ||
real(kind(1d0)), intent(out) | Lnorth, | ||
real(kind(1d0)), intent(out) | Lsouth, | ||
real(kind(1d0)), intent(out) | Lwest | ||
) |
Definition at line 961 of file suews_phys_beers.f95.
References lvikt_veg(), and pi.
Referenced by beers_cal_main().
subroutine beers_module::month2day | ( | integer | mon, |
integer | ne, | ||
integer | k, | ||
integer | b | ||
) |
Definition at line 1348 of file suews_phys_beers.f95.
subroutine beers_module::shadowgroundkusaka | ( | real(kind(1d0)), intent(in) | HW, |
real(kind(1d0)), intent(in) | azimuth, | ||
real(kind(1d0)), intent(in) | zen, | ||
real(kind(1d0)), intent(out) | shadowground, | ||
real(kind(1d0)), intent(out) | shadowwalls | ||
) |
Definition at line 544 of file suews_phys_beers.f95.
References allocatearray::deg2rad, and pi.
Referenced by beers_cal_main().
subroutine beers_module::suews_cal_dectime | ( | integer, intent(in) | id, |
integer, intent(in) | it, | ||
integer, intent(in) | imin, | ||
integer, intent(in) | isec, | ||
real(kind(1d0)), intent(out) | dectime | ||
) |
Definition at line 1513 of file suews_phys_beers.f95.
Referenced by suews_driver::suews_cal_main().
subroutine beers_module::suews_cal_dls | ( | integer, intent(in) | id, |
integer, intent(in) | startDLS, | ||
integer, intent(in) | endDLS, | ||
integer, intent(out) | DLS | ||
) |
Definition at line 1569 of file suews_phys_beers.f95.
Referenced by suews_driver::suews_cal_main().
subroutine beers_module::suews_cal_tstep | ( | integer, intent(in) | tstep, |
integer, intent(out) | nsh, | ||
real(kind(1d0)), intent(out) | nsh_real, | ||
real(kind(1d0)), intent(out) | tstep_real | ||
) |
Definition at line 1529 of file suews_phys_beers.f95.
Referenced by suews_driver::suews_cal_main().
subroutine beers_module::suews_cal_weekday | ( | integer, intent(in) | iy, |
integer, intent(in) | id, | ||
real(kind(1d0)), intent(in) | lat, | ||
integer, dimension(3), intent(out) | dayofWeek_id | ||
) |
Definition at line 1544 of file suews_phys_beers.f95.
References day2month(), and day_of_week().
Referenced by suews_driver::suews_cal_main().
subroutine beers_module::sun_distance | ( | integer | jday, |
real(kind(1d0)) | D | ||
) |
Definition at line 692 of file suews_phys_beers.f95.
Referenced by clearnessindex_2013b().
subroutine beers_module::tsurfbeers | ( | integer, intent(in) | iy, |
real(kind(1d0)), intent(in) | Ta, | ||
real(kind(1d0)), intent(in) | RH, | ||
real(kind(1d0)), intent(in) | radI, | ||
real(kind(1d0)), intent(in) | I0, | ||
real(kind(1d0)), intent(in) | dectime, | ||
real(kind(1d0)), intent(in) | SNUP, | ||
real(kind(1d0)), intent(in) | altitude, | ||
real(kind(1d0)), intent(in) | zen, | ||
real(kind(1d0)), intent(in) | timezone, | ||
real(kind(1d0)), intent(in) | lat, | ||
real(kind(1d0)), intent(in) | lng, | ||
real(kind(1d0)), intent(in) | alt, | ||
real(kind(1d0)), intent(out) | Tg, | ||
real(kind(1d0)), intent(out) | Tgwall, | ||
real(kind(1d0)), intent(out) | altmax | ||
) |
Definition at line 486 of file suews_phys_beers.f95.
References diffusefraction(), narp_module::narp_cal_sunposition(), pi, and allocatearray::rad2deg.
Referenced by beers_cal_main().
real(kind(1d0)), parameter beers_module::deg2rad = pi/180 |
Definition at line 32 of file suews_phys_beers.f95.
real(kind(1d0)), parameter beers_module::pi = ATAN(1.)*4 |
Definition at line 31 of file suews_phys_beers.f95.
Referenced by cal_ci_latenight(), clearnessindex_2013b(), cylindric_wedge(), daylen(), lwalls(), shadowgroundkusaka(), and tsurfbeers().
real(kind(1d0)), parameter beers_module::rad2deg = 1/DEG2RAD |
Definition at line 33 of file suews_phys_beers.f95.