632020195a
Former-commit-id:fda897d2d0[formerly253e8bc948] [formerlyfda897d2d0[formerly253e8bc948] [formerly295cbf95e5[formerly 0816cd253c86acc699cb90866131619c4679f631]]] Former-commit-id:295cbf95e5Former-commit-id:2a3bf4ec32[formerlyae3d17c698] Former-commit-id:a610dcde73
56 lines
1.9 KiB
Fortran
Executable file
56 lines
1.9 KiB
Fortran
Executable file
SUBROUTINE LC_GARE ( garea, grltln, cdproj, centrd, iret )
|
|
C************************************************************************
|
|
C* LC_GARE *
|
|
C* *
|
|
C* This subroutine processes the input variable GAREA. Information *
|
|
C* about the type of area input is returned. Only those area types *
|
|
C* which specify a latitude/longitude range are valid. If CDPROJ is *
|
|
C* not blank, it contains the default projection string. *
|
|
C* *
|
|
C* LC_GARE ( GAREA, GRLTLN, CDPROJ, CENTRD, IRET ) *
|
|
C* *
|
|
C* Input parameters: *
|
|
C* GAREA CHAR* Graphics area name *
|
|
C* *
|
|
C* Output parameters: *
|
|
C* GRLTLN (4) REAL Latitude/longitude bounds *
|
|
C* CDPROJ CHAR* Default projection string *
|
|
C* CENTRD (2) REAL Centroid latitude/longitude *
|
|
C* IRET INTEGER Return code *
|
|
C* 0 = normal return *
|
|
C* -5 = invalid garea name *
|
|
C** *
|
|
C* Log: *
|
|
C* M. desJardins/GSFC 10/84 IPAREA *
|
|
C* I. Graffman/RDS 12/84 modified IPAREA for IPGAREA *
|
|
C* I. Graffman/RDS 5/86 Converted to IN_GAREA *
|
|
C* M. desJardins/GSFC 6/88 Changed calling sequence *
|
|
C* G. Krueger/EAI 6/96 Add default projection *
|
|
C************************************************************************
|
|
INCLUDE 'GEMPRM.PRM'
|
|
C*
|
|
REAL grltln (*), centrd (*)
|
|
CHARACTER*(*) garea, cdproj
|
|
C*
|
|
CHARACTER state*8, stn (LLMXST)*8
|
|
C-----------------------------------------------------------------------
|
|
iret = 0
|
|
C
|
|
centrd (1) = 0.0
|
|
centrd (2) = 0.0
|
|
C
|
|
C* Get the area type from LC_ABND.
|
|
C
|
|
CALL LC_ABND ( garea, igarty, grltln (1), grltln (2),
|
|
+ grltln(3), grltln (4), stn, nstn, state,
|
|
+ cdproj, cenlat, cenlon, ier )
|
|
cc print*, ' In LC_GARE ----> ', ier, igarty
|
|
IF ( (ier .lt. 0) .or. (igarty .gt. 3) ) THEN
|
|
iret = -5
|
|
ELSE
|
|
centrd (1) = cenlat
|
|
centrd (2) = cenlon
|
|
END IF
|
|
C*
|
|
RETURN
|
|
END
|