|
1 | 1 | !> @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 | + |
44 | 21 | SUBROUTINE CALGUST(LPBL,ZPBL,GUST) |
45 | 22 |
|
46 | 23 | ! |
|
0 commit comments