xan/awips2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
awips2/ncep/gov.noaa.nws.ncep.viz.rsc.ncgrid/dgdriv_c/DGCMN.CMN
Steve Harris e5543a0e86 12.4.1-10 baseline 
Former-commit-id: 9f8cb727a5 [formerly 9f8cb727a5 [formerly bf53d06834caa780226121334ac1bcf0534c3f16]]
Former-commit-id: 8485b90ff8
Former-commit-id: a28d70b5c5
2012-05-01 18:06:13 -05:00

409 lines
13 KiB
Text
Raw Blame History

C************************************************************************
C* DGCMN.CMN *
C* *
C* These common areas are used in the grid diagnostics package. *
C** *
C* Log: *
C* M. desJardins/GSFC 10/85 *
C* M. desJardins/GSFC 9/88 GEMPAK4 Version *
C* G. Huffman/GSC 4/89 angles, CONCON, MAPSCL *
C* M. desJardins/GSFC 4/89 Save user input, first and last time *
C* K. Brill/GSC 9/89 Allow multiple files open *
C* K. Brill/NMC 2/92 Use LLNNAV *
C* M. desJardins/NMC 3/92 Eliminate scale in common *
C* M. desJardins/NMC 3/92 Change MGFILE to equal MMFILE *
C* K. Brill/NMC 10/92 Added origin for MSFC calculation *
C* K. Brill/NMC 4/93 Added useflg for grid in use *
C* L. Sager/NMC 5/93 Added savflg for grid rename *
C* M. desJardins/NMC 8/92 Use MMFILE for maximum number of files *
C* S. Jacobs/EAI 12/93 Added ADDCOL flag *
C* T. Lee/GSC 2/96 Single dimension for dgg *
C* S. Jacobs/NCEP 5/96 Moved LLMDGG to GEMPRM.PRM *
C* D.W.Plummer/NCEP 6/98 Add DGLANC and DGLCRW for land-sea mask *
C* K. Brill/HPC 11/01 USEFLG->IUSESV; add ISUBID *
C* M. Li/SAIC 02/02 expanded the dimension of templt *
C* K. Brill/HPC 05/02 Eliminate LLMXGD REAL declarations *
C* K. Brill/HPC 08/02 Add block DGSUBG *
C* K. Brill/HPC 11/02 Eliminate SUBA logical array in DGAREA *
C* K. Brill/HPC 12/02 Added jsgxsk & jsgysk in DGSUBG *
C* R. Tian/SAIC 10/03 Added NFILE common block *
C* R. Tian/SAIC 2/04 Removed gdfprv and gdoprv *
C* R. Tian/SAIC 3/04 Removed icurfn, added irefnv *
C* R. Tian/SAIC 5/04 Added HINTRP common block *
C* T. Lee/SAIC 12/04 Removed crtmem; added mbrnum to NFILE; *
C* added iensmb () to DGGRID *
C* T. Piper/SAIC 6/05 Increased NDGRD from 40 to 80 *
C* m.gamazaychikov/SAIC 09/05 Added nfargs array to DGTABL block *
C************************************************************************
INCLUDE 'GEMPRM.PRM'
C************************************************************************
C* / DGGRID / *
C* *
C* This common area contains the internal grids of the DG package. *
C************************************************************************
PARAMETER ( NDGRD = 80 )
CHARACTER dttimd*20, gparmd*12
LOGICAL savflg
COMMON / DGGRID /
+ dgg (LLMDGG),
C! internal grids
+ idglst,
C! last grid used
+ dttimd (2, NDGRD),
C! date/times of grids
+ leveld (2, NDGRD),
C! levels of grids
+ ivcrdd ( NDGRD ),
C! vertical coordinates
+ gparmd ( NDGRD ),
C! name of grids
+ ifiled ( NDGRD ),
C! file #
+ iusesv ( NDGRD ),
C! flag for grid in use
+ savflg ( NDGRD ),
C! flag for grid rename
+ iensmb ( NDGRD ),
C! Ensemble member number
C! associated with this grid
+ maxdgg,
C! max # of internal grids
+ isubid
C! subroutine ID number
C************************************************************************
C* / DGINPT / *
C* *
C* This common area contains the user input for the grid diagnostics. *
C************************************************************************
CHARACTER ddttim*20, ingdtm*40, inglev*(LLMXLN), invcrd*4
COMMON / DGINPT /
+ ddttim (2),
C! user date/time
+ ldlevl (2),
C! user levels
+ lvcord,
C! user vertical coord
+ ingdtm,
C! input for grid time
+ inglev,
C! input for grid level
+ invcrd
C! input for vert coord
C************************************************************************
C* / DGTABL / *
C* *
C* This common area contains the table generated for the user input *
C* of GFUNC or GVECT. *
C************************************************************************
CHARACTER ctabl*16, clevel*24, cvcord*4,
+ cgdttm*48
C*
PARAMETER ( LENTC = 50 )
COMMON / DGTABL /
+ ctabl (LENTC),
C! character function table
+ ltabl,
C! length of table
+ clevel ( LENTC ),
C! level from @
+ cvcord ( LENTC ),
C! vcord from %
+ cgdttm ( LENTC ),
C! time from ^
+ icflnm ( LENTC ),
C! file number from +
+ nfargs ( LENTC )
C! function number of args
C************************************************************************
C* / DGSTCK / *
C* *
C* This common area contains the stack used in computing diagnostics. *
C************************************************************************
PARAMETER ( LNSTK = 50 )
CHARACTER stack*12
C*
COMMON / DGSTCK /
+ itop,
C! top of stack
+ stack ( LNSTK ),
C! character stack
+ istack ( LNSTK ),
C! integer stack
+ icpntr ( LNSTK )
C! ptr from stack to table
C************************************************************************
C* / DGFILE / *
C* *
C* This common area contains information from the current grid file. *
C************************************************************************
LOGICAL dgset, addcol, tmpflg
CHARACTER cprj*4, tfirst*20, tlast*20, gdcur*72
CHARACTER templt*(MXFLSZ), tdattm*20
C*
COMMON / DGFILE /
+ dgset,
C! flag indicating file set
+ idlun,
C! grid file number
+ idflnm (MMFILE),
C! other grid file numbers
+ gdcur (MMFILE),
C! grid file names
+ tmpflg (MMFILE),
C! template flag
+ templt (MMFILE),
C! template name
+ tdattm (MMFILE),
C! template date/time
+ snav (LLNNAV),
C! raw navigation data
+ kxd,
C! # x grid points
+ kyd,
C! # y grid points
+ kxyd,
C! total # of grid points
+ idglat,
C! latitude internal grd #
+ idglon,
C! longitude internal grd #
+ cprj,
C! projection type
+ ighdr (LLGDHD),
C! grid header
+ anglr1, anglr2, anglr3,
C! projection angles (rad.)
+ concon,
C! constant of cone
+ tfirst (MMFILE),
C! first time in file
+ tlast (MMFILE),
C! last time in file
+ addcol
C! flag to add col of data
C************************************************************************
C* / MAPSCL / *
C* *
C* This common area contains map scale factor information for the *
C* current grid file. *
C************************************************************************
C*
COMMON / MAPSCL /
+ ixmscl,
+ iymscl,
C! internal grid numbers for
C! scale factors in x, y
+ ixmsdy,
C! y derivative of x scl fac
C! internal grid number
+ iymsdx,
C! x derivative of y scl fac
C! internal grid number
+ gddx, gddy
C! grid spacing in x, y
C************************************************************************
C* / DGSTRM / *
C* *
C* These values are used in the HORIZON projection for polar coords *
C************************************************************************
COMMON / DGSTRM /
+ rot,
C! rotation
+ sinclt,
C! sin of center latitude
+ cosclt,
C! cos of center longitude
+ clon
C! center longitude
C************************************************************************
C* / DGERR / *
C* *
C* This common area contains the diagnostic error string. *
C************************************************************************
CHARACTER errst*60
COMMON / DGERR /
+ errst
C************************************************************************
C* / DGOVEC / *
C* *
C* This common area contains the direction of an orientation vector, *
C* for example,the tangent vector to a cross section. This is like *
C* a conventional wind direction (grid relative) with the y axis *
C* pointing north. *
C************************************************************************
REAL ornang
COMMON / DGOVEC /
+ ornang
C! direction angle (rad) *
C************************************************************************
C* / DGORIG / *
C* *
C* This common area contains the latitude/longitude position of the *
C* origin with respect to which to compute psuedo angular momentum. *
C************************************************************************
COMMON / DGORIG /
+ orglat,
C! latitude of origin
+ orglon,
C! longitude of origin
+ orgxpt,
C! grid x coord of origin
+ orgypt
C! grid y coord of origin
C************************************************************************
C* / DGAREA / *
C* *
C* This common area contains information about the points that should *
C* be included in any diagnostics computation. *
C************************************************************************
COMMON / DGAREA /
+ kgxmin, kgxmax, kgymin, kgymax,
C! user input area
+ kextnd,
C! number of additional pts
+ jgxmin, jgxmax, jgymin, jgymax,
C! full area
+ ksub1, ksub2
C! index range for sub area
C************************************************************************
C* / DGSUBG / *
C* *
C* This common area contains information needed for the placement of *
C* data on the subset internal grid. *
C************************************************************************
LOGICAL gwrapg, dgsubg
COMMON / DGSUBG /
+ tfgrid (LLMXTG),
C! array for transfer grid
+ refnav (LLNNAV),
C! reference navigation
+ gwrapg,
C! globe wrapping grid flg
+ dgsubg,
C! flag for DG_SUBG called
+ ishift,
C! shift position for grid
C! re-arrangement
+ jsgxmn, jsgxmx, jsgymn, jsgymx,
C! subset grid index bounds
C! on re-arranged transfer
C! grid
+ jsgxsk, jsgysk
C! subset stride through
C! transfer grid in x & y
C************************************************************************
C* / DGRTWD / *
C* *
C* This common area contains the cosines and sines of the rotation *
C* angle which are the elements of the matrix for the rotation *
C* transformation between grid relative and north relative and its *
C* inverse. *
C************************************************************************
COMMON / DGRTWD /
+ irtcos,
C! intrnl grd # of cosines
+ irtsin
C! intrnl grd # of sines
C************************************************************************
C* / DGLNDC / *
C* *
C* This common area contains the information for the land-sea mask. *
C* *
C************************************************************************
COMMON / DGLANC /
+ ls (8136),
C! land-sea mask raw array
+ lndsea
C! internal grid number of
C! land-sea mask grid array
C************************************************************************
C* / NFILE / *
C* *
C* This common area contains GDFILE entries. *
C************************************************************************
PARAMETER ( NGDFLS = MMFILE )
CHARACTER ntmplt*(MXFLSZ), gflpth*(MXFLSZ), crtfnm*(MXFLSZ)
CHARACTER aftrbr*20, crtgdt*20, dtmlst*20
LOGICAL outflg, nucode
COMMON / NFILE /
+ ntmplt ( NGDFLS ),
C! template associated with
C! GDFILE entry
+ gflpth ( NGDFLS ),
C! path associated with
C! GDFILE entry if entry
C! is a template
+ crtfnm ( NGDFLS ),
C! current actual file name
C! associated with GDFILE
C! entry
+ aftrbr ( NGDFLS ),
C! the information given
C! after | associated with
C! GDFILE entry
+ crtgdt ( 2, NGDFLS ),
C! current GEMPAK time
C! associated with GDFILE
C! entry
+ mbrnum ( NGDFLS ),
C! Number of ensemble
C! member currently in use
+ outflg ( NGDFLS ),
C! write flag associated
C! with GDFILE entry
+ dtmlst ( LLMXGT, 2 ),
C! list of times to process
+ ntmlst,
C! number of times in the
C! list
+ itmlst,
C! index of last time used
C! in dtmlst
+ irefnv,
C! index of navagation
C! reference entry
+ nucode
C! flag to use this new code
C************************************************************************
C* / HINTRP / *
C* *
C* This common area contains horizontal interporlation information. *
C************************************************************************
LOGICAL wndrot, adcltg, gwrptg, didint
COMMON / HINTRP /
+ tfrnav ( LLNNAV ),
C! last transfer navigation
C! read
+ igrxig,
C! internal grd# of transfer
C! grid relative i index
C! positions on internal
C! grid
+ igryig,
C! internal grd# of transfer
C! grid relative j index
C! positions on internal
C! grid
+ isnrot,
C! internal grd # of SINs
C! of rotation angle from
C! transfer grid to north
C! relative orientation
+ icsrot,
C! internal grd # of COSs
C! of rotation angle from
C! transfer grid to north
C! relative orientation
+ wndrot,
C! flag that wind rotation
C! is required
+ adcltg,
C! flag to add column to
C! transfer grid
+ gwrptg,
C! flag to indicate globe
C! wrapping transfer grid
+ didint
C! flag to indicate horz
C! intrp was done
C------------------------------------------------------------------------
Reference in a new issue View git blame Copy permalink