Page 1 Source Listing GD2TLL 2014-12-17 20:48 GD2TLL.f 1 SUBROUTINE GD2TLL(GDLAT,GDLON,GDTLAT,GDTLON,IMOUT,JMOUT) 2 C 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . 5 C SUBPROGRAM: GD2TLL COMPUTE TRANSFORMED (LAT,LON) 6 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-23 7 C 8 C ABSTRACT: 9 C THIS ROUTINE COMPUTES THE TRANSFORMED LATITUDE OF (LAT, 10 C LON) OF OUTPUT GRID POINTS. THE TRANSFORMED (LAT,LON) 11 C ARE WITH RESPECT TO THE INPUT E-GRID. 12 C . 13 C 14 C PROGRAM HISTORY LOG: 15 C ??-??-?? DAVID PLUMMER - SUBROUTINE CGTLL IN ETAPACKC 16 C 92-12-23 RUSS TREADON - GENERALIZED TO HANDLE VARIABLE 17 C OUTPUT GRIDS. 18 C 19 C USAGE: CALL GD2TLL(GDLAT,GDLON,GDTLAT,GDTLON,IMOUT,JMOUT) 20 C INPUT ARGUMENT LIST: 21 C GDLAT - GEODETIC LATITUDE OF OUTPUT GRID POINTS. 22 C GDLON - GEODETIC LONGTUDE OF OUTPUT GRID POINTS. 23 C IMOUT - FIRST DIMENSION OF OUTPUT GRID. 24 C JMOUT - SECOND DIMENSION OF OUTPUT GRID. 25 C 26 C OUTPUT ARGUMENT LIST: 27 C GDTLAT - TRANSFORMED LATITUDE OF OUTPUT GRID POINTS. 28 C GDTLON - TRANSFORMED LONGITUDE OF OUTPUT GRID POINTS. 29 C 30 C OUTPUT FILES: 31 C NONE 32 C 33 C SUBPROGRAMS CALLED: 34 C UTILITIES: 35 C NONE 36 C LIBRARY: 37 C COMMON - EGRID 38 C 39 C ATTRIBUTES: 40 C LANGUAGE: FORTRAN 41 C MACHINE : CRAY C-90 42 C$$$ 43 C 44 C 45 C INCLUDE ETA GRID DIMENSIONS 46 INCLUDE "parmeta" 64 INCLUDE "parmout" 68 PARAMETER (LP1=LM+1) 69 C 70 C SET CONVERSION CONSTANTS. 71 PARAMETER (R2D=57.29578,D2R=1./R2D) 72 C 73 C DECLARE VARIABLES AND COMMONS. 74 75 LOGICAL NORTH 76 REAL GDLAT(IMX,JMX), GDLON(IMX,JMX) 77 REAL GDTLAT(IMX,JMX), GDTLON(IMX,JMX) Page 2 Source Listing GD2TLL 2014-12-17 20:48 GD2TLL.f 78 C 79 C INCLUDE ETA GRID SPECIFICATIONS IN COMMON MAPOT. 80 INCLUDE "EGRID.comm" 81 C 82 C DECLARE EQUIVALENCES. 88 EQUIVALENCE (YLATC,ALONVT), (DPHI, POLEI) 89 EQUIVALENCE (WLONC, POLEJ), (DLAM,XMESHL) 90 C 91 C******************************************************************* 92 C START GD2TLL HERE. 93 C 94 C SET CONSTANTS. 95 C 96 ELAM0=WLONC+360. 97 EPHI0=YLATC 98 SPHI0=SINPH0 99 CPHI0=COSPH0 100 C 101 C LOOP TO COMPUTE TRANSFORMED (LAT,LON). 102 C 103 DO 20 J = 1,JMOUT 104 DO 10 I = 1,IMOUT 105 WLON = GDLON(I,J) 106 YLAT = GDLAT(I,J) 107 RELM = (WLON-ELAM0)*D2R 108 SRLM = SIN(RELM) 109 CRLM = COS(RELM) 110 APH = YLAT*D2R 111 SPH = SIN(APH) 112 CPH = COS(APH) 113 CC = CPH*CRLM 114 ANUM = -CPH*SRLM 115 DENOM = CPHI0*CC+SPHI0*SPH 116 TLM = ATAN2(ANUM,DENOM)/D2R 117 TPH = ASIN(CPHI0*SPH-SPHI0*CC)/D2R 118 GDTLAT(I,J) = TPH 119 GDTLON(I,J) = TLM 120 10 CONTINUE 121 20 CONTINUE 122 C 123 C END OF ROUTINE. 124 C 125 RETURN 126 END Page 3 Source Listing GD2TLL 2014-12-17 20:48 Entry Points GD2TLL.f ENTRY POINTS Name gd2tll_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 95 79 20 Label 96 78 ALONVT Scalar 2 R(4) 4 scalar COM ANUM Local 89 R(4) 4 scalar 89,91 APH Local 85 R(4) 4 scalar 85,86,87 ASIN Func 92 scalar 92 ATAN2 Func 91 scalar 91 CC Local 88 R(4) 4 scalar 88,90,92 COS Func 84 scalar 84,87 COSPH0 Scalar 3 R(4) 4 scalar COM 74 CPH Local 87 R(4) 4 scalar 87,88,89 CPHI0 Local 74 R(4) 4 scalar 74,90,92 CRLM Local 84 R(4) 4 scalar 84,88 D2R Param 51 R(4) 4 scalar 82,85,91,92 DENOM Local 90 R(4) 4 scalar 90,91 DLAM Scalar 64 R(4) 4 scalar COM DPHI Scalar 63 R(4) 4 scalar COM EGRID Common 2 48 ELAM0 Local 71 R(4) 4 scalar 71,82 EPHI0 Local 72 R(4) 4 scalar 72 GD2TLL Subr 1 GDLAT Dummy 1 R(4) 4 2 91719 ARG,INOUT 81 GDLON Dummy 1 R(4) 4 2 91719 ARG,INOUT 80 GDTLAT Dummy 1 R(4) 4 2 91719 ARG,INOUT 93 GDTLON Dummy 1 R(4) 4 2 91719 ARG,INOUT 94 I Local 79 I(4) 4 scalar 79,80,81,93,94 IDIM Scalar 3 I(4) 4 scalar COM IDIM1 Param 14 I(4) 4 scalar IDIM2 Param 14 I(4) 4 scalar IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IM Param 3 I(4) 4 scalar 3,11,14 IMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 79 IMX Param 3 I(4) 4 scalar 56,57 INPES Param 6 I(4) 4 scalar 11,14 ITAIL Param 11 I(4) 4 scalar J Local 78 I(4) 4 scalar 78,80,81,93,94 JDIM Scalar 3 I(4) 4 scalar COM JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JM Param 3 I(4) 4 scalar 3,12,15 JMOUT Dummy 1 I(4) 4 scalar ARG,INOUT 78 Page 4 Source Listing GD2TLL 2014-12-17 20:48 Symbol Table GD2TLL.f Name Object Declared Type Bytes Dimen Elements Attributes References JMX Param 3 I(4) 4 scalar 56,57 JNPES Param 6 I(4) 4 scalar 12,15 JTAIL Param 12 I(4) 4 scalar LAM0 Scalar 3 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,48 LP1 Param 48 I(4) 4 scalar LSM Param 3 I(4) 4 scalar MXFLD Param 3 I(4) 4 scalar MXLVL Param 3 I(4) 4 scalar NORTH Scalar 55 L(4) 4 scalar COM PHI0 Scalar 3 R(4) 4 scalar COM POLEI Scalar 2 R(4) 4 scalar COM POLEJ Scalar 2 R(4) 4 scalar COM R2D Param 51 R(4) 4 scalar 51 RELM Local 82 R(4) 4 scalar 82,83,84 SIN Func 83 scalar 83,86 SINPH0 Scalar 4 R(4) 4 scalar COM 73 SPH Local 86 R(4) 4 scalar 86,90,92 SPHI0 Local 73 R(4) 4 scalar 73,90,92 SRLM Local 83 R(4) 4 scalar 83,89 TANPH0 Scalar 4 R(4) 4 scalar COM TLM Local 91 R(4) 4 scalar 91,94 TPH Local 92 R(4) 4 scalar 92,93 WLON Local 80 R(4) 4 scalar 80,82 WLONC Scalar 64 R(4) 4 scalar COM 71 XMESHL Scalar 3 R(4) 4 scalar COM YLAT Local 81 R(4) 4 scalar 81,85 YLATC Scalar 63 R(4) 4 scalar COM 72 Page 5 Source Listing GD2TLL 2014-12-17 20:48 Subprograms/Common Blocks GD2TLL.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References EGRID Common 2 48 GD2TLL Subr 1 COMPILER OPTIONS BEING USED -align nocommons -align nodcommons -align noqcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume byterecl -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_unit_star -assume old_ldout_format -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume nostd_mod_proc_name -assume norealloc_lhs -assume underscore -assume no2underscores no -auto -auto_scalar no -bintext -ccdefault default -check noargs -check noarg_temp_created -check nobounds -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check power -check noshape -check nounderflow -check nouninitialized -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals -fixed no -fpconstant Page 6 Source Listing GD2TLL 2014-12-17 20:48 GD2TLL.f -fpe3 -fprm nearest no -ftz -fp_model noprecise -fp_model fast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -heap_arrays 0 no -threadprivate_compat -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude -O2 no -pad_source -real_size 32 no -recursive -reentrancy none no -sharable_localsaves -vec=simd -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w noargument_checking -w nodeclarations -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage -includepath : /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/,.f,./.f,/usrx/local/intel/composerxe/mkl/include/.f, /usrx/local/intel/composerxe/tbb/include/.f,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/.f,/usr/local/include/.f,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/.f, /usr/include/.f,/usr/include/.f -list filename : GD2TLL.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100