7f90924706
Former-commit-id:7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly7fa9dbd5fb[formerly4bfbdad17d] [formerly9f8cb727a5] [formerly8485b90ff8[formerly9f8cb727a5[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]]] Former-commit-id:8485b90ff8Former-commit-id:40aa780b3d[formerly33a67cdd82] [formerly 73930fb29d0c1e91204e76e6ebfdbe757414f319 [formerlya28d70b5c5]] Former-commit-id: a16a1b4dd44fc344ee709abbe262aeed58a8339b [formerlye5543a0e86] Former-commit-id:0c25458510
56 lines
1.9 KiB
Fortran
56 lines
1.9 KiB
Fortran
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
|