Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Doxygen caldrg caldwcp calgust refinement #464

Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
21 changes: 12 additions & 9 deletions sorc/ncep_post.fd/CALDRG.f
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
26 changes: 13 additions & 13 deletions sorc/ncep_post.fd/CALDWP.f
Original file line number Diff line number Diff line change
@@ -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)
Expand Down
10 changes: 4 additions & 6 deletions sorc/ncep_post.fd/CALGUST.f
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down