Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
BDWP_MOD | File: DIAG_PRT.f |
Author :
Version:
Subroutines:
Global Variables:
- lname_strlen : used from mdiag_com
- sname_strlen : used from mdiag_com
- units_strlen : used from mdiag_com
- lname :
character(len=lname_strlen), dimension(12)
- Initial Value
= (/ 'WAVE POWER FOR U NEAR 850 MB AND EQUATOR ', 'WAVE POWER FOR V NEAR 850 MB AND EQUATOR ', 'WAVE POWER FOR U NEAR 300 MB AND EQUATOR ', 'WAVE POWER FOR V NEAR 300 MB AND EQUATOR ', 'WAVE POWER FOR U NEAR 50 MB AND EQUATOR ', 'WAVE POWER FOR V NEAR 50 MB AND EQUATOR ', 'WAVE POWER FOR PHI AT 922 MB AND 50 DEG N.', 'WAVE POWER FOR PHI AT 700 MB AND 50 DEG N.', 'WAVE POWER FOR PHI AT 500 MB AND 50 DEG N.', 'WAVE POWER FOR PHI AT 300 MB AND 50 DEG N.', 'WAVE POWER FOR PHI AT 100 MB AND 50 DEG N.', 'WAVE POWER FOR PHI AT 10 MB AND 50 DEG N. '/)
Used by: | DIAG_SERIAL:diag7p |
- units :
character(len=units_strlen), dimension(12)
- Initial Value
= (/ 'DAY*(m/s)^2 ','DAY*(m/s)^2 ','10 DAY*(m/s)^2', 'DAY*(m/s)^2 ','10 DAY*(m/s)^2','DAY*(m/s)^2 ', '10**3 DAY*m^2 ','10**3 DAY*m^2 ','10**3 DAY*m^2 ', '10**3 DAY*m^2 ','10**4 DAY*m^2 ','10**4 DAY*m^2 '/)
Used by: | DIAG_SERIAL:diag7p |
- sname :
character(len=sname_strlen), dimension(12)
- Initial Value
= (/ 'WPU850EQU ','WPV850EQU ','WPU300EQU ','WPV300EQU ', 'WPU50EQU ','WPV50EQU ','WPPHI922_50N','WPPHI700_50N', 'WPPHI500_50N','WPPHI300_50N','WPPHI100_50N','WPPHI10_50N ' /)
Used by: | DIAG_SERIAL:diag7p |