diff --git a/sorc/ncep_post.fd/CALDRG.f b/sorc/ncep_post.fd/CALDRG.f index e74381fde..c06db3e7a 100644 --- a/sorc/ncep_post.fd/CALDRG.f +++ b/sorc/ncep_post.fd/CALDRG.f @@ -2,17 +2,20 @@ !> @brief Subroutine that computes drag cofficient. ! !> This rountine computes a surface layer drag coefficient using -!> equation (7.4.1A) in "An introduction to boundary layer -!> meteorology" by Stull (1988, Kluwer Academic Publishers). +!> equation (7.4.1A) in ["An introduction to boundary layer +!> meteorology" by Stull (1988, Kluwer Academic +!> Publishers)](https://link.springer.com/book/10.1007/978-94-009-3027-8). !> -!> @param[out] DRAGCO surface layer drag coefficient +!> @param[out] DRAGCO surface layer drag coefficient. !> -!> Program history -!> - 93-09-01 Russ Treadon -!> - 98-06-15 T Black - Conversion from 1-D to 2-D -!> - 00-01-04 Jim Tuccillo - MPI version -!> - 02-01-15 Mike Baldwin - WRF version -!> - 05-02-22 H Chuang - Add WRF NMM components +!> ### Program History Log +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1993-09-01 | Russ Treadon | Initial +!> 1998-06-15 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2002-01-15 | Mike Baldwin | WRF version +!> 2005-02-22 | H Chuang | Add WRF NMM components !> !> @author Russ Treadon W/NP2 @date 1993-09-01 SUBROUTINE CALDRG(DRAGCO) diff --git a/sorc/ncep_post.fd/CALDWP.f b/sorc/ncep_post.fd/CALDWP.f index f6e594e98..be3876bd0 100644 --- a/sorc/ncep_post.fd/CALDWP.f +++ b/sorc/ncep_post.fd/CALDWP.f @@ -1,21 +1,21 @@ !> @file !> @brief Subroutine related to dewpoint temperature. ! -!> Computes dewpoint from P, T, and Q +!> Computes dewpoint from P, T, and Q. !> -!> @param[in] P1D Pressure (Pa) -!> @param[in] Q1D Specific humidity (kg/kg) -!> @param[in] T1D Temperature (K) -!> @param[out] TDWP Dewpoint temperature (K) +!> @param[in] P1D Pressure (Pa). +!> @param[in] Q1D Specific humidity (kg/kg). +!> @param[in] T1D Temperature (K). +!> @param[out] TDWP Dewpoint temperature (K). !> -!> Program history -!> - 92-12-22 Russ Treadon -!> - 93-10-04 Russ Treadon - Added check to bound dewpoint -!> temperature to not exceed the -!> ambient temperature. -!> - 98-06-08 T BLACK - Conversion from 1-D to 2-D -!> - 00-01-04 Jim Tuccillo - MPI version -!> - 21-07-23 Wen Meng - Retrict computation from undefined points +!> ### Program history log: +!> Date | Programmer | Comments +!> -----|------------|--------- +!> 1992-12-22 | Russ Treadon | Initial +!> 1993-10-04 | Russ Treadon | Added check to bound dewpoint temperature to not exceed the ambient temperature. +!> 1998-06-08 | T Black | Conversion from 1-D to 2-D +!> 2000-01-04 | Jim Tuccillo | MPI version +!> 2021-07-23 | Wen Meng | Retrict computation from undefined points !> !> @author Russ Treadon W/NP2 @date 1992-12-22 SUBROUTINE CALDWP(P1D,Q1D,TDWP,T1D) diff --git a/sorc/ncep_post.fd/CALGUST.f b/sorc/ncep_post.fd/CALGUST.f index 98d3ee97b..84158170a 100644 --- a/sorc/ncep_post.fd/CALGUST.f +++ b/sorc/ncep_post.fd/CALGUST.f @@ -9,12 +9,10 @@ !> ### Program history log: !> Date | Programmer | Comments !> -----|------------|--------- -!> 03-10-15 | Geoff Manokin | Initial -!> 05-03-09 | H Chuang | WRF Version -!> 05-07-07 | Binbin Zhou | Add RSM -!> 15-03-11 | S Moorthi | set sfcwind to spval if u10 and v10 are spvals -!> | for A grid and set gust to just wind -!> | (in GSM with nemsio, it appears u10 & v10 have spval) +!> 2003-10-15 | Geoff Manokin | Initial +!> 2005-03-09 | H Chuang | WRF Version +!> 2005-07-07 | Binbin Zhou | Add RSM +!> 2015-03-11 | S Moorthi | Set sfcwind to spval if u10 and v10 are spvals for A grid and set gust to just wind (in GSM with nemsio, it appears u10 & v10 have spval) !> !> @author Geoff Manikin W/NP2 @date 1997-03-04