Page 1 Source Listing TRNSEG 2025-03-12 18:24 TRNSEG.f 1 SUBROUTINE TRNSEG 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: TRNSEG 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-20 6 C 7 C ABSTRACT: 8 C THIS ROUTINE LOADS COMMON BLOCK EGRID WITH ETA 9 C GRID SPECIFICATIONS. 10 C . 11 C 12 C PROGRAM HISTORY LOG: 13 C ??-??-?? DAVID PLUMMER - SUBROUTINE TRNSEG IN ETAPACKC 14 C 92-12-20 RUSS TREADON - MODIFIED ETAPACKC TRNSEG FOR 15 C USE IN ETA POST PROCESSOR. 16 C 17 C USAGE: CALL TRNSEG 18 C INPUT ARGUMENT LIST: 19 C NONE 20 C 21 C OUTPUT ARGUMENT LIST: 22 C NONE 23 C 24 C OUTPUT FILES: 25 C STDOUT - RUN-TIME STANDARD OUT. 26 C 27 C SUBPROGRAMS CALLED: 28 C UTILITIES: 29 C NONE 30 C LIBRARY: 31 C COMMON - MAPOT 32 C EGRID 33 C IOUNIT 34 C 35 C ATTRIBUTES: 36 C LANGUAGE: FORTRAN 37 C MACHINE : CRAY C-90 38 C$$$ 39 C 40 C 41 C INCLUDE ETA E-GRID DIMENSIONS. 42 INCLUDE "parmeta" 60 PARAMETER(LP1=LM+1) 61 C 62 C DECLARE VARIABLES. 63 C 64 LOGICAL NORTH 65 REAL ALONVT, DLAM, DPHI, LAM0, PHI0, POLEI, POLEJ 66 REAL SINPH0, TANPH0, WLONC, XMESHL, YLATC 67 C 68 C INCLUDE NECESSARY COMMON BLOCKS. 69 INCLUDE "MAPOT.comm" 82 INCLUDE "EGRID.comm" 88 INCLUDE "IOUNIT.comm" 89 C 97 EQUIVALENCE (YLATC,ALONVT), (DPHI, POLEI) 98 EQUIVALENCE (WLONC, POLEJ), (DLAM,XMESHL) Page 2 Source Listing TRNSEG 2025-03-12 18:24 TRNSEG.f 99 C 100 DATA CONV2R/0.017453293/,CONV2D/57.2958/ 101 DATA EARTHR/6371.2/ 102 C 103 C SET COMMON BLOCK VARIABLES. 104 C 105 IF (TPH0D.GT.0) THEN 106 NORTH = .TRUE. 107 ELSE 108 NORTH = .FALSE. 109 ENDIF 110 YLATC = TPH0D 111 DPHI = DPHD 112 WLONC = ABS(TLM0D) 113 DLAM = DLMD 114 IDIM = 2*IM-1 115 JDIM = JM 116 117 PHI0 = YLATC * CONV2R 118 LAM0 = WLONC * CONV2R 119 COSPH0 = COS(PHI0) 120 SINPH0 = SIN(PHI0) 121 TANPH0 = TAN(PHI0) 122 C 123 WRITE(STDOUT,*)'TRNSEG: COMMON BLOCK EGRID BELOW' 124 WRITE(STDOUT,*)' NORTH : ',NORTH 125 WRITE(STDOUT,*)' ALONVT,XMESHL: ',ALONVT,XMESHL 126 WRITE(STDOUT,*)' POLEI,POLEJ : ',POLEI,POLEJ 127 WRITE(STDOUT,*)' IDIM,JDIM : ',IDIM,JDIM 128 WRITE(STDOUT,*)' PHI0,LAM0 : ',PHI0,LAM0 129 WRITE(STDOUT,*)' COS,SIN,TAN0 : ',COSPH0,SINPH0,TANPH0 130 C 131 RETURN 132 END Page 3 Source Listing TRNSEG 2025-03-12 18:24 Entry Points TRNSEG.f ENTRY POINTS Name trnseg_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References ABS Func 112 scalar 112 CONV2D Local 100 R(4) 4 scalar 100 CONV2R Local 100 R(4) 4 scalar 100,117,118 COS Func 119 scalar 119 EARTHR Local 101 R(4) 4 scalar 101 EGRID Common 84 48 SAVE IDIM1 Param 56 I(4) 4 scalar IDIM2 Param 56 I(4) 4 scalar IGSTL Param 51 I(4) 4 scalar 56 IGSTR Param 51 I(4) 4 scalar 56 IM Param 45 I(4) 4 scalar 53,56,114 INPES Param 48 I(4) 4 scalar 53,56 IOUNIT Common 93 20 SAVE ITAIL Param 53 I(4) 4 scalar JDIM1 Param 57 I(4) 4 scalar JDIM2 Param 57 I(4) 4 scalar JGSTL Param 52 I(4) 4 scalar 57 JGSTR Param 52 I(4) 4 scalar 57 JM Param 45 I(4) 4 scalar 54,57,115 JNPES Param 48 I(4) 4 scalar 54,57 JTAIL Param 54 I(4) 4 scalar LM Param 45 I(4) 4 scalar 60,77 LP1 Param 60 I(4) 4 scalar 77 LSM Param 45 I(4) 4 scalar 76 MAPOT Common 71 1448 SAVE SIN Func 120 scalar 120 TAN Func 121 scalar 121 TRNSEG Subr 1 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AETA R(4) 4 808 1 45 COM ALONVT R(4) 4 4 scalar COM 125 ALSL R(4) 4 472 1 39 COM CMLD R(4) 4 292 scalar COM COSPH0 R(4) 4 36 scalar COM 119,129 CPHI0 R(4) 4 1420 scalar COM DETA R(4) 4 628 1 45 COM DISLP R(4) 4 308 scalar COM DLAM R(4) 4 16 scalar COM 113 DLMD R(4) 4 284 scalar COM 113 Page 4 Source Listing TRNSEG 2025-03-12 18:24 Symbol Table TRNSEG.f Name Type Bytes Offset Dimen Elements Attributes References DP30 R(4) 4 296 scalar COM DPHD R(4) 4 288 scalar COM 111 DPHI R(4) 4 8 scalar COM 111 ERLAM0 R(4) 4 1416 scalar COM ETA R(4) 4 988 1 46 COM IDIM I(4) 4 20 scalar COM 114,127 ISHDE I(4) 4 12 1 61 COM IUNIT I(4) 4 1440 scalar COM IXM I(4) 4 4 scalar COM IYM I(4) 4 8 scalar COM JDIM I(4) 4 24 scalar COM 115,127 KUNIT I(4) 4 1428 scalar COM LAM0 R(4) 4 32 scalar COM 118,128 LCNTRL I(4) 4 4 scalar COM LSL I(4) 4 0 scalar COM LUNCO I(4) 4 8 scalar COM LUNIT I(4) 4 1432 scalar COM LUNLL I(4) 4 12 scalar COM LUNOUT I(4) 4 16 scalar COM MUNIT I(4) 4 1436 scalar COM NORTH L(4) 4 0 scalar COM 106,108,124 NUNIT I(4) 4 1444 scalar COM PHI0 R(4) 4 28 scalar COM 117,119,120,121,128 POLEI R(4) 4 8 scalar COM 126 POLEJ R(4) 4 12 scalar COM 126 PT R(4) 4 260 scalar COM R R(4) 4 256 scalar COM SBD R(4) 4 272 scalar COM SINPH0 R(4) 4 40 scalar COM 120,129 SPHI0 R(4) 4 1424 scalar COM SPL R(4) 4 316 1 39 COM STDOUT I(4) 4 0 scalar COM 123,124,125,126,127,128,129 TANPH0 R(4) 4 44 scalar COM 121,129 TLM0D R(4) 4 276 scalar COM 112 TPH0D R(4) 4 280 scalar COM 105,110 TSHDE R(4) 4 1172 1 61 COM TSPH R(4) 4 264 scalar COM WBD R(4) 4 268 scalar COM WLONC R(4) 4 12 scalar COM 112,118 X1P R(4) 4 300 scalar COM XMESHL R(4) 4 16 scalar COM 125 Y1P R(4) 4 304 scalar COM YLATC R(4) 4 4 scalar COM 110,117 Z0SLP R(4) 4 312 scalar COM Page 5 Source Listing TRNSEG 2025-03-12 18:24 Subprograms/Common Blocks TRNSEG.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References EGRID Common 84 48 SAVE IOUNIT Common 93 20 SAVE MAPOT Common 71 1448 SAVE TRNSEG Subr 1 COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ Page 6 Source Listing TRNSEG 2025-03-12 18:24 TRNSEG.f -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -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 -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 -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused Page 7 Source Listing TRNSEG 2025-03-12 18:24 TRNSEG.f -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : TRNSEG.lst no -o COMPILER: Intel(R) Fortran 19.1-1655