SUEWS API Site
Documentation of SUEWS source code
|
Functions/Subroutines | |
subroutine | radmethod (NetRadiationMethod, snowUse, NetRadiationMethod_use, AlbedoChoice, ldown_option) |
subroutine | narp (nsurf, sfr, SnowFrac, alb, emis, IceFrac, NARP_TRANS_SITE, NARP_EMIS_SNOW, DTIME, ZENITH_deg, tsurf_0, kdown, Temp_C, RH, Press_hPa, qn1_obs, SnowAlb, AlbedoChoice, ldown_option, NetRadiationMethod_use, DiagQN, QSTARall, QSTAR_SF, QSTAR_S, kclear, KUPall, LDOWN, LUPall, fcld, TSURFall, qn1_ind_snow, kup_ind_snow, Tsurf_ind_snow, Tsurf_ind, alb0, alb1) |
subroutine | narp_cal_sunposition (year, idectime, UTC, locationlatitude, locationlongitude, locationaltitude, sunazimuth, sunzenith) |
subroutine | julian_calculation (year, month, day, hour, min, sec, UTC, juliancentury, julianday, julianephemeris_century, julianephemeris_day, julianephemeris_millenium) |
subroutine | earth_heliocentric_position_calculation (julianephemeris_millenium, earth_heliocentric_positionlatitude, earth_heliocentric_positionlongitude, earth_heliocentric_positionradius) |
subroutine | sun_geocentric_position_calculation (earth_heliocentric_positionlongitude, earth_heliocentric_positionlatitude, sun_geocentric_positionlatitude, sun_geocentric_positionlongitude) |
subroutine | nutation_calculation (julianephemeris_century, nutationlongitude, nutationobliquity) |
subroutine | corr_obliquity_calculation (julianephemeris_millenium, nutationobliquity, corr_obliquity) |
subroutine | abberation_correction_calculation (earth_heliocentric_positionradius, aberration_correction) |
subroutine | apparent_sun_longitude_calculation (sun_geocentric_positionlongitude, nutationlongitude, aberration_correction, apparent_sun_longitude) |
subroutine | apparent_stime_at_greenwich_calculation (julianday, juliancentury, nutationlongitude, corr_obliquity, apparent_stime_at_greenwich) |
subroutine | sun_rigth_ascension_calculation (apparent_sun_longitude, corr_obliquity, sun_geocentric_positionlatitude, sun_rigth_ascension) |
subroutine | sun_geocentric_declination_calculation (apparent_sun_longitude, corr_obliquity, sun_geocentric_positionlatitude, sun_geocentric_declination) |
subroutine | observer_local_hour_calculation (apparent_stime_at_greenwich, locationlongitude, sun_rigth_ascension, observer_local_hour) |
subroutine | topocentric_sun_position_calculate (topocentric_sun_positionrigth_ascension, topocentric_sun_positionrigth_ascension_parallax, topocentric_sun_positiondeclination, locationaltitude, locationlatitude, observer_local_hour, sun_rigth_ascension, sun_geocentric_declination, earth_heliocentric_positionradius) |
subroutine | topocentric_local_hour_calculate (observer_local_hour, topocentric_sun_positionrigth_ascension_parallax, topocentric_local_hour) |
subroutine | sun_topocentric_zenith_angle_calculate (locationlatitude, topocentric_sun_positiondeclination, topocentric_local_hour, sunazimuth, sunzenith) |
real(kind(1d0)) function | set_to_range (var) |
real(kind(1d0)) function | dewpoint (Temp_C, rh) |
real(kind(1d0)) function | prata_emis (Temp_K, EA_hPa) |
real(kind(1d0)) function | emis_cloud (EMIS_A, FCLD) |
real(kind(1d0)) function | emis_cloud_sq (EMIS_A, FCLD) |
real(kind(1d0)) function | cloud_fraction (KDOWN, KCLEAR) |
real(kind(1d0)) function | wc_fraction (RH, Temp) |
real(kind(1d0)) function | isurface (doy, zenith) |
real(kind(1d0)) function | solar_esdist (doy) |
real(kind(1d0)) function, dimension(365) | smithlambda (lat) |
real(kind(1d0)) function | transmissivity (Press_hPa, Temp_C_dew, G, zenith) |
subroutine narp_module::abberation_correction_calculation | ( | real(kind(1d0)), intent(in) | earth_heliocentric_positionradius, |
real(kind(1d0)), intent(out) | aberration_correction | ||
) |
Definition at line 988 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
subroutine narp_module::apparent_stime_at_greenwich_calculation | ( | real(kind(1d0)), intent(in) | julianday, |
real(kind(1d0)), intent(in) | juliancentury, | ||
real(kind(1d0)), intent(in) | nutationlongitude, | ||
real(kind(1d0)), intent(in) | corr_obliquity, | ||
real(kind(1d0)), intent(out) | apparent_stime_at_greenwich | ||
) |
Definition at line 1017 of file suews_phys_narp.f95.
References set_to_range().
Referenced by narp_cal_sunposition().
subroutine narp_module::apparent_sun_longitude_calculation | ( | real(kind(1d0)), intent(in) | sun_geocentric_positionlongitude, |
real(kind(1d0)), intent(in) | nutationlongitude, | ||
real(kind(1d0)), intent(in) | aberration_correction, | ||
real(kind(1d0)), intent(out) | apparent_sun_longitude | ||
) |
Definition at line 1002 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
real(kind(1d0)) function narp_module::cloud_fraction | ( | real(kind(1d0)) | KDOWN, |
real(kind(1d0)) | KCLEAR | ||
) |
Definition at line 1278 of file suews_phys_narp.f95.
Referenced by narp().
subroutine narp_module::corr_obliquity_calculation | ( | real(kind(1d0)), intent(in) | julianephemeris_millenium, |
real(kind(1d0)), intent(in) | nutationobliquity, | ||
real(kind(1d0)), intent(out) | corr_obliquity | ||
) |
Definition at line 965 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
real(kind(1d0)) function narp_module::dewpoint | ( | real(kind(1d0)) | Temp_C, |
real(kind(1d0)) | rh | ||
) |
Definition at line 1241 of file suews_phys_narp.f95.
Referenced by narp().
subroutine narp_module::earth_heliocentric_position_calculation | ( | real(kind(1d0)) | julianephemeris_millenium, |
real(kind(1d0)) | earth_heliocentric_positionlatitude, | ||
real(kind(1d0)) | earth_heliocentric_positionlongitude, | ||
real(kind(1d0)) | earth_heliocentric_positionradius | ||
) |
Definition at line 642 of file suews_phys_narp.f95.
References set_to_range().
Referenced by narp_cal_sunposition().
real(kind(1d0)) function narp_module::emis_cloud | ( | real(kind(1d0)) | EMIS_A, |
real(kind(1d0)) | FCLD | ||
) |
Definition at line 1264 of file suews_phys_narp.f95.
Referenced by narp().
real(kind(1d0)) function narp_module::emis_cloud_sq | ( | real(kind(1d0)) | EMIS_A, |
real(kind(1d0)) | FCLD | ||
) |
Definition at line 1272 of file suews_phys_narp.f95.
Referenced by narp().
real(kind(1d0)) function narp_module::isurface | ( | integer | doy, |
real(kind(1d0)) | zenith | ||
) |
Definition at line 1329 of file suews_phys_narp.f95.
References solar_esdist().
Referenced by narp().
subroutine narp_module::julian_calculation | ( | real(kind(1d0)) | year, |
integer | month, | ||
integer | day, | ||
integer | hour, | ||
integer | min, | ||
real(kind(1d0)) | sec, | ||
real(kind(1d0)) | UTC, | ||
real(kind(1d0)) | juliancentury, | ||
real(kind(1d0)) | julianday, | ||
real(kind(1d0)) | julianephemeris_century, | ||
real(kind(1d0)) | julianephemeris_day, | ||
real(kind(1d0)) | julianephemeris_millenium | ||
) |
Definition at line 572 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
subroutine narp_module::narp | ( | integer, intent(in) | nsurf, |
real(kind(1d0)), dimension(nsurf), intent(in) | sfr, | ||
real(kind(1d0)), dimension(nsurf), intent(in) | SnowFrac, | ||
real(kind(1d0)), dimension(nsurf), intent(in) | alb, | ||
real(kind(1d0)), dimension(nsurf), intent(in) | emis, | ||
real(kind(1d0)), dimension(nsurf), intent(in) | IceFrac, | ||
real(kind(1d0)), intent(in) | NARP_TRANS_SITE, | ||
real(kind(1d0)), intent(in) | NARP_EMIS_SNOW, | ||
real(kind(1d0)), intent(in) | DTIME, | ||
real(kind(1d0)), intent(in) | ZENITH_deg, | ||
real(kind(1d0)), intent(in) | tsurf_0, | ||
real(kind(1d0)), intent(in) | kdown, | ||
real(kind(1d0)), intent(in) | Temp_C, | ||
real(kind(1d0)), intent(in) | RH, | ||
real(kind(1d0)), intent(in) | Press_hPa, | ||
real(kind(1d0)), intent(in) | qn1_obs, | ||
real(kind(1d0)), intent(in) | SnowAlb, | ||
integer, intent(in) | AlbedoChoice, | ||
integer, intent(in) | ldown_option, | ||
integer, intent(in) | NetRadiationMethod_use, | ||
integer, intent(in) | DiagQN, | ||
real(kind(1d0)), intent(out) | QSTARall, | ||
real(kind(1d0)), intent(out) | QSTAR_SF, | ||
real(kind(1d0)), intent(out) | QSTAR_S, | ||
real(kind(1d0)), intent(out) | kclear, | ||
real(kind(1d0)), intent(out) | KUPall, | ||
real(kind(1d0)), intent(out) | LDOWN, | ||
real(kind(1d0)), intent(out) | LUPall, | ||
real(kind(1d0)), intent(out) | fcld, | ||
real(kind(1d0)), intent(out) | TSURFall, | ||
real(kind(1d0)), dimension(nsurf), intent(out) | qn1_ind_snow, | ||
real(kind(1d0)), dimension(nsurf), intent(out) | kup_ind_snow, | ||
real(kind(1d0)), dimension(nsurf), intent(out) | Tsurf_ind_snow, | ||
real(kind(1d0)), dimension(nsurf), intent(out) | Tsurf_ind, | ||
real(kind(1d0)), intent(out) | alb0, | ||
real(kind(1d0)), intent(out) | alb1 | ||
) |
Definition at line 116 of file suews_phys_narp.f95.
References cloud_fraction(), dewpoint(), emis_cloud(), emis_cloud_sq(), isurface(), prata_emis(), transmissivity(), and wc_fraction().
Referenced by suews_driver::suews_cal_qn().
subroutine narp_module::narp_cal_sunposition | ( | real(kind(1d0)), intent(in) | year, |
real(kind(1d0)), intent(in) | idectime, | ||
real(kind(1d0)), intent(in) | UTC, | ||
real(kind(1d0)), intent(in) | locationlatitude, | ||
real(kind(1d0)), intent(in) | locationlongitude, | ||
real(kind(1d0)), intent(in) | locationaltitude, | ||
real(kind(1d0)), intent(out) | sunazimuth, | ||
real(kind(1d0)), intent(out) | sunzenith | ||
) |
Definition at line 464 of file suews_phys_narp.f95.
References abberation_correction_calculation(), apparent_stime_at_greenwich_calculation(), apparent_sun_longitude_calculation(), corr_obliquity_calculation(), day2month(), dectime_to_timevec(), earth_heliocentric_position_calculation(), julian_calculation(), nutation_calculation(), observer_local_hour_calculation(), sun_geocentric_declination_calculation(), sun_geocentric_position_calculation(), sun_rigth_ascension_calculation(), sun_topocentric_zenith_angle_calculate(), topocentric_local_hour_calculate(), and topocentric_sun_position_calculate().
Referenced by metdisagg::disaggregatemet(), suews_driver::suews_cal_main(), and suews_driver::suews_cal_sunposition().
subroutine narp_module::nutation_calculation | ( | real(kind(1d0)), intent(in) | julianephemeris_century, |
real(kind(1d0)) | nutationlongitude, | ||
real(kind(1d0)) | nutationobliquity | ||
) |
Definition at line 844 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
subroutine narp_module::observer_local_hour_calculation | ( | real(kind(1d0)), intent(in) | apparent_stime_at_greenwich, |
real(kind(1d0)), intent(in) | locationlongitude, | ||
real(kind(1d0)), intent(in) | sun_rigth_ascension, | ||
real(kind(1d0)), intent(out) | observer_local_hour | ||
) |
Definition at line 1085 of file suews_phys_narp.f95.
References set_to_range().
Referenced by narp_cal_sunposition().
real(kind(1d0)) function narp_module::prata_emis | ( | real(kind(1d0)) | Temp_K, |
real(kind(1d0)) | EA_hPa | ||
) |
Definition at line 1255 of file suews_phys_narp.f95.
Referenced by narp().
subroutine narp_module::radmethod | ( | integer, intent(in) | NetRadiationMethod, |
integer, intent(in) | snowUse, | ||
integer, intent(out) | NetRadiationMethod_use, | ||
integer, intent(out) | AlbedoChoice, | ||
integer, intent(out) | ldown_option | ||
) |
Definition at line 48 of file suews_phys_narp.f95.
Referenced by suews_driver::suews_cal_qn().
real(kind(1d0)) function narp_module::set_to_range | ( | real(kind(1d0)) | var | ) |
Definition at line 1221 of file suews_phys_narp.f95.
Referenced by apparent_stime_at_greenwich_calculation(), earth_heliocentric_position_calculation(), observer_local_hour_calculation(), sun_geocentric_position_calculation(), sun_rigth_ascension_calculation(), and sun_topocentric_zenith_angle_calculate().
real(kind(1d0)) function, dimension(365) narp_module::smithlambda | ( | integer | lat | ) |
Definition at line 1367 of file suews_phys_narp.f95.
References errorhint(), defaultnotused::notused, and filename::smithfile.
real(kind(1d0)) function narp_module::solar_esdist | ( | integer | doy | ) |
Definition at line 1351 of file suews_phys_narp.f95.
Referenced by isurface().
subroutine narp_module::sun_geocentric_declination_calculation | ( | real(kind(1d0)), intent(in) | apparent_sun_longitude, |
real(kind(1d0)), intent(in) | corr_obliquity, | ||
real(kind(1d0)), intent(in) | sun_geocentric_positionlatitude, | ||
real(kind(1d0)), intent(out) | sun_geocentric_declination | ||
) |
Definition at line 1068 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
subroutine narp_module::sun_geocentric_position_calculation | ( | real(kind(1d0)), intent(in) | earth_heliocentric_positionlongitude, |
real(kind(1d0)), intent(in) | earth_heliocentric_positionlatitude, | ||
real(kind(1d0)) | sun_geocentric_positionlatitude, | ||
real(kind(1d0)) | sun_geocentric_positionlongitude | ||
) |
Definition at line 825 of file suews_phys_narp.f95.
References set_to_range().
Referenced by narp_cal_sunposition().
subroutine narp_module::sun_rigth_ascension_calculation | ( | real(kind(1d0)), intent(in) | apparent_sun_longitude, |
real(kind(1d0)), intent(in) | corr_obliquity, | ||
real(kind(1d0)), intent(in) | sun_geocentric_positionlatitude, | ||
real(kind(1d0)), intent(out) | sun_rigth_ascension | ||
) |
Definition at line 1045 of file suews_phys_narp.f95.
References set_to_range().
Referenced by narp_cal_sunposition().
subroutine narp_module::sun_topocentric_zenith_angle_calculate | ( | real(kind(1d0)), intent(in) | locationlatitude, |
real(kind(1d0)), intent(in) | topocentric_sun_positiondeclination, | ||
real(kind(1d0)), intent(in) | topocentric_local_hour, | ||
real(kind(1d0)) | sunazimuth, | ||
real(kind(1d0)) | sunzenith | ||
) |
Definition at line 1171 of file suews_phys_narp.f95.
References set_to_range().
Referenced by narp_cal_sunposition().
subroutine narp_module::topocentric_local_hour_calculate | ( | real(kind(1d0)), intent(in) | observer_local_hour, |
real(kind(1d0)), intent(in) | topocentric_sun_positionrigth_ascension_parallax, | ||
real(kind(1d0)), intent(out) | topocentric_local_hour | ||
) |
Definition at line 1158 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
subroutine narp_module::topocentric_sun_position_calculate | ( | real(kind(1d0)) | topocentric_sun_positionrigth_ascension, |
real(kind(1d0)) | topocentric_sun_positionrigth_ascension_parallax, | ||
real(kind(1d0)) | topocentric_sun_positiondeclination, | ||
real(kind(1d0)), intent(in) | locationaltitude, | ||
real(kind(1d0)), intent(in) | locationlatitude, | ||
real(kind(1d0)), intent(in) | observer_local_hour, | ||
real(kind(1d0)), intent(in) | sun_rigth_ascension, | ||
real(kind(1d0)), intent(in) | sun_geocentric_declination, | ||
real(kind(1d0)), intent(in) | earth_heliocentric_positionradius | ||
) |
Definition at line 1101 of file suews_phys_narp.f95.
Referenced by narp_cal_sunposition().
real(kind(1d0)) function narp_module::transmissivity | ( | real(kind(1d0)) | Press_hPa, |
real(kind(1d0)) | Temp_C_dew, | ||
real(kind(1d0)) | G, | ||
real(kind(1d0)) | zenith | ||
) |
Definition at line 1391 of file suews_phys_narp.f95.
Referenced by narp().
real(kind(1d0)) function narp_module::wc_fraction | ( | real(kind(1d0)), intent(in) | RH, |
real(kind(1d0)), intent(in) | Temp | ||
) |
Definition at line 1286 of file suews_phys_narp.f95.
Referenced by narp().