Skip to content

Commit 7a5ae3c

Browse files
authored
Doxygen for CALGUST (#451)
* Doxygen for CALDRG.f * This is part of Issue #392 Fixes the doxygen warnings in CALGUST.f Please review this subroutine. Thank you.
1 parent 30fcea8 commit 7a5ae3c

File tree

1 file changed

+19
-42
lines changed

1 file changed

+19
-42
lines changed

sorc/ncep_post.fd/CALGUST.f

Lines changed: 19 additions & 42 deletions
Original file line numberDiff line numberDiff line change
@@ -1,46 +1,23 @@
11
!> @file
2-
! . . .
3-
!> SUBPROGRAM: CALGUST COMPUTE MAX WIND LEVEL
4-
!! PRGRMMR: MANIKIN ORG: W/NP2 DATE: 97-03-04
5-
!!
6-
!! ABSTRACT:
7-
!! THIS ROUTINE COMPUTES SURFACE WIND GUST BY MIXING
8-
!! DOWN MOMENTUM FROM THE LEVEL AT THE HEIGHT OF THE PBL
9-
!!
10-
!!
11-
!! PROGRAM HISTORY LOG:
12-
!! 03-10-15 GEOFF MANIKIN
13-
!! 05-03-09 H CHUANG - WRF VERSION
14-
!! 05-07-07 BINBIN ZHOU - ADD RSM
15-
!! 15-03-11 S Moorthi - set sfcwind to spval if u10 and v10 are spvals
16-
!! for A grid and set gust to just wind
17-
!! (in GSM with nemsio, it appears u10 & v10 have spval)
18-
!!
19-
!! USAGE: CALL CALGUST(GUST)
20-
!! INPUT ARGUMENT LIST:
21-
!! NONE
22-
!!
23-
!! OUTPUT ARGUMENT LIST:
24-
!! GUST - SPEED OF THE MAXIMUM SFC WIND GUST
25-
!!
26-
!! OUTPUT FILES:
27-
!! NONE
28-
!!
29-
!! SUBPROGRAMS CALLED:
30-
!! UTILITIES:
31-
!! H2V
32-
!!
33-
!! LIBRARY:
34-
!! COMMON -
35-
!! LOOPS
36-
!! OPTIONS
37-
!! MASKS
38-
!! INDX
39-
!!
40-
!! ATTRIBUTES:
41-
!! LANGUAGE: FORTRAN 90
42-
!! MACHINE : CRAY C-90
43-
!!
2+
!> @brief Subroutine that computes max wind level.
3+
!
4+
!> This routine computes surface wind gust by mixing
5+
!> down momentum from the level at the height of the PBL.
6+
!>
7+
!> @param[out] GUST Speed of the maximum surface wind gust.
8+
!>
9+
!> ### Program history log:
10+
!> Date | Programmer | Comments
11+
!> -----|------------|---------
12+
!> 03-10-15 | Geoff Manokin | Initial
13+
!> 05-03-09 | H Chuang | WRF Version
14+
!> 05-07-07 | Binbin Zhou | Add RSM
15+
!> 15-03-11 | S Moorthi | set sfcwind to spval if u10 and v10 are spvals
16+
!> | for A grid and set gust to just wind
17+
!> | (in GSM with nemsio, it appears u10 & v10 have spval)
18+
!>
19+
!> @author Geoff Manikin W/NP2 @date 1997-03-04
20+
4421
SUBROUTINE CALGUST(LPBL,ZPBL,GUST)
4522

4623
!

0 commit comments

Comments
 (0)