! ! ! ################################################################## ! ################################################################## ! ###### ###### ! ###### VERICST.INC ###### ! ###### ###### ! ###### Developed by ###### ! ###### Center for Analysis and Prediction of Storms ###### ! ###### University of Oklahoma ###### ! ###### ###### ! ################################################################## ! ################################################################## ! ! !####################################################################### ! ! PURPOSE: ! ! Include file 'vericst.inc' for ARPS verification software. ! ! This file defines the arrays to be used in the verification ! code for the ARPS model. ! !####################################################################### ! ! AUTHOR: John Mewes ! 09/15/97 ! ! MODIFICATION HISTORY: ! ! Eric Kemp, May 2000 ! Added precipitation station arrays. ! ! Eric Kemp, June 2000 ! Added MOS station arrays. ! !####################################################################### ! ! Sounding verification station data variables ! !####################################################################### ! integer, parameter :: sndmax=2000 ! Maximum number of stations in sndstns.tbl integer :: sndstn ! Actual number of stations in the domain character(4) :: sndstid(sndmax) ! Sounding stn's letter identifier real :: sndlat(sndmax) ! Station latitude real :: sndlon(sndmax) ! Station longitude real :: sndelev_act(sndmax) ! Station elevation (actual) real :: sndxpt(sndmax),sndypt(sndmax) ! Stn locations in x,y coords integer :: sndipt(sndmax),sndjpt(sndmax) ! Stn locations in i,j coords common /sndver1/ sndstn,sndlat,sndlon,sndelev_act,& &sndxpt,sndypt,sndipt,sndjpt common /sndver2/ sndstid !####################################################################### ! ! Profiler verification station data variables ! !####################################################################### integer, parameter :: promax=2000 ! Maximum number of stations in profstns.tbl integer :: prostn ! Actual number of stations in the domain character(3) :: prostid(promax) ! Profiler stn's letter identifier real :: prolat(promax) ! Station latitude real :: prolon(promax) ! Station longitude real :: proelev_act(promax) ! Station elevation (actual) real :: proxpt(promax),proypt(promax) ! Stn locations in x,y coords integer :: proipt(promax),projpt(promax) ! Stn locations in i,j coords common /prover1/ prostn,prolat,prolon,proelev_act,& &proxpt,proypt,proipt,projpt common /prover2/ prostid !####################################################################### ! ! Surface verification station data variables ! !####################################################################### integer, parameter :: sfcmax=2000 ! Maximum number of stations in msstns.tbl integer :: sfcstn ! Actual number of stations in the domain integer :: sfcstn_master ! Master list character(4) :: sfcstid(sfcmax) ! Surface stn's letter identifier character(4) :: sfcstid_master(sfcmax) ! Master list character(4) :: sfcuse(sfcmax) ! Subset we want to use real :: sfclat(sfcmax) ! Station latitude real :: sfclon(sfcmax) ! Station longitude real :: sfcelev_act(sfcmax) ! Station elevevation (actual) real :: sfcxpt(sfcmax),sfcypt(sfcmax) ! Stn locations in x,y coords integer :: sfcipt(sfcmax),sfcjpt(sfcmax) ! Stn locations in i,j coords integer :: nsfcuse logical :: readstns common /sfcver1/ sfcstn,sfcstn_master,sfclat,sfclon,sfcelev_act,& &sfcxpt,sfcypt,sfcipt,sfcjpt,readstns common /sfcver2/ sfcstid, sfcstid_master common /sfcver3/ nsfcuse, sfcuse !####################################################################### ! ! Precipitation verification station data variables ! !####################################################################### integer, parameter :: precmax=2000 ! Maximum number of stations in msstns.tbl integer :: precstn ! Actual number of stations in the domain character(16) :: precstid(precmax) ! Surface stn's letter identifier real :: preclat(precmax) ! Station latitude real :: preclon(precmax) ! Station longitude real :: precelev_act(precmax) ! Station elevevation (actual) real :: precxpt(precmax),precypt(precmax) ! Stn locations in x,y ! coords integer :: precipt(precmax),precjpt(precmax) ! Stn locations in i,j ! coords common /precver1/ precstn,preclat,preclon,precelev_act,& &precxpt,precypt,precipt,precjpt common /precver2/ precstid !####################################################################### ! ! MOS verification station data variables ! !####################################################################### integer, parameter :: mosmax=2000 ! Maximum number of stations in mosstns.tbl integer :: mosstn ! Actual number of stations in the domain character(4) :: mosstid(mosmax) ! Sounding stn's letter identifier real :: moslat(mosmax) ! Station latitude real :: moslon(mosmax) ! Station longitude real :: moselev_act(mosmax) ! Station elevation (actual) real :: mosxpt(mosmax),mosypt(mosmax) ! Stn locations in x,y coords integer :: mosipt(mosmax),mosjpt(mosmax) ! Stn locations in i,j coords common /mosver1/ mosstn,moslat,moslon,moselev_act,& &mosxpt,mosypt,mosipt,mosjpt common /sndver2/ mosstid