! ! !################################################################## !################################################################## !###### ###### !###### AGRICST.H ###### !###### ###### !###### Developed by ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Include file 'agricst.h' for ARPS AGRI ! ! This file contains miscellaneous information used by arpsagri. ! !----------------------------------------------------------------------- ! ! AUTHOR: Yuhe Liu ! 03/28/1997 Combined original files, rundat.h, verbose.h, and some ! additional parameters into one file. ! !----------------------------------------------------------------------- ! ! !----------------------------------------------------------------------- ! ! Define parameters for namelist &arpsagri. ! ! Notes: The following parameters were defined in nodal.inc: ! ! intrat ! intratt ! kcheck ! mxnest ! !----------------------------------------------------------------------- ! CHARACTER (LEN=80) :: runold ! Name of the old run if restart INTEGER :: nmlntho ! Length of runold CHARACTER (LEN=80) :: runnew ! Name of this run if restart INTEGER :: nmlnthn ! Length of runnew CHARACTER (LEN=80) :: machst ! ?? REAL :: rstime ! Time at which to restart, ! if rstart=.true. INTEGER :: nxc ! Dimension size in X-direction for base ! coarse grid INTEGER :: nyc ! Dimension size in Y-direction for base ! coarse grid INTEGER :: nzc ! Dimension size in Z-direction for base ! coarse grid INTEGER :: lexbc ! Flag for external boundary condition for ! base grid INTEGER :: levfix ! Level above which to regrid at start INTEGER :: intrpodr ! Order of spatial interpolation LOGICAL :: rstart ! Restart from previous AGRI restart data? LOGICAL :: rstdump ! Dump data for later restart at end? LOGICAL :: grdsrt ! Regrid at start? LOGICAL :: verbose1 ! .true. -> output grid location information LOGICAL :: verbose2 ! .true. -> output grid descriptor information LOGICAL :: verbose3 ! .true. -> output detailed io information LOGICAL :: verbose4 ! .true. -> output detailed storage information LOGICAL :: verbose5 ! .true. -> output solver diagnostic info LOGICAL :: verbose6 ! .true. -> output random information we've ! found helpful in the past INTEGER :: nfinelv INTEGER :: nfinelv_max PARAMETER ( nfinelv_max = 10 ) INTEGER :: ngrdnew(nfinelv_max) INTEGER :: ngrdnew_max PARAMETER ( ngrdnew_max = 10 ) REAL :: ixc(ngrdnew_max,nfinelv_max), ixln(ngrdnew_max,nfinelv_max) REAL :: jyc(ngrdnew_max,nfinelv_max), jyln(ngrdnew_max,nfinelv_max) REAL :: gangle(ngrdnew_max,nfinelv_max) COMMON / agri000 / runold,runnew,machst COMMON / agri001 / nmlntho,nmlnthn COMMON / agri002 / rstime COMMON / agri003 / rstart,rstdump,grdsrt COMMON / agri100 / nxc,nyc,nzc, lexbc,levfix,intrpodr, & nfinelv,ngrdnew COMMON / agri101 / ixc,ixln,jyc,jyln,gangle COMMON / agri200 / verbose1, verbose2, verbose3, & verbose4, verbose5, verbose6