Page 1 Source Listing TTBLEX 2025-03-12 18:23 /tmp/ifortJU8xek.i 1 # 1 "TTBLEX.F" 2 SUBROUTINE TTBLEX(TREF,TTBL,ITB,JTB,KNUM,IARR,JARR 3 1, PDSL,AETAL,HTML,PT,PL,QQ,PP,RDP,THE0 4 2, STHE,RDTHE,THESP,IPTB,ITHTB) 5 C ****************************************************************** 6 C * * 7 C * EXTRACT TEMPERATURE OF THE MOIST ADIABAT FROM * 8 C * THE APPROPRIATE TTBL * 9 C * * 10 C ****************************************************************** 11 C---------------------------------------------------------------------- 12 INCLUDE "parmeta" 36 INCLUDE "mpp.h" 37 # 1 "./sp.h" 1 38 # 4 39 40 # 14 "TTBLEX.F" 2 41 C---------------------------------------------------------------------- 100 parameter(IMJM_LOC=IDIM2*JDIM2) 101 C---------------------------------------------------------------------- 102 P A R A M E T E R 103 & (IMJM=IM*JM-JM/2,IMXJM=IM*JM) 104 C---------------------------------------------------------------------- 105 D I M E N S I O N 106 1 TREF(IDIM1:IDIM2,JDIM1:JDIM2) 107 2,TTBL(JTB,ITB),IARR(IMJM_LOC),JARR(IMJM_LOC) 108 3,PDSL(IDIM1:IDIM2,JDIM1:JDIM2) 109 4,QQ(IDIM1:IDIM2,JDIM1:JDIM2) 110 5,PP(IDIM1:IDIM2,JDIM1:JDIM2),THE0(ITB) 111 6,STHE(ITB),THESP(IDIM1:IDIM2,JDIM1:JDIM2) 112 7,IPTB(IDIM1:IDIM2,JDIM1:JDIM2) 113 8,ITHTB(IDIM1:IDIM2,JDIM1:JDIM2) 114 9,HTML(IDIM1:IDIM2,JDIM1:JDIM2) 115 C----------------------------------------------------------------------- 116 DO 500 KK=1,KNUM 117 C--------------SCALING PRESSURE & TT TABLE INDEX------------------------ 118 I=IARR(KK) 119 J=JARR(KK) 120 PK=PDSL(I,J)*AETAL+PT 121 TPK=(PK-PL)*RDP 122 QQ(I,J)=TPK-AINT(TPK) 123 IPTB(I,J)=INT(TPK)+1 124 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 125 IF(IPTB(I,J).LT.1)THEN 126 IPTB(I,J)=1 127 QQ(I,J)=0. 128 ENDIF 129 IF(IPTB(I,J).GE.ITB)THEN 130 IPTB(I,J)=ITB-1 131 QQ(I,J)=0. 132 ENDIF 133 C--------------BASE AND SCALING FACTOR FOR THE-------------------------- 134 IPTBK=IPTB(I,J) 135 BTHE00K=THE0(IPTBK) 136 STHE00K=STHE(IPTBK) 137 BTHE10K=THE0(IPTBK+1) 138 STHE10K=STHE(IPTBK+1) Page 2 Source Listing TTBLEX 2025-03-12 18:23 TTBLEX.F 139 C--------------SCALING THE & TT TABLE INDEX----------------------------- 140 BTHK=(BTHE10K-BTHE00K)*QQ(I,J)+BTHE00K 141 STHK=(STHE10K-STHE00K)*QQ(I,J)+STHE00K 142 TTHK=(THESP(I,J)-BTHK)/STHK*RDTHE 143 PP(I,J)=TTHK-AINT(TTHK) 144 ITHTB(I,J)=INT(TTHK)+1 145 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 146 IF(ITHTB(I,J).LT.1)THEN 147 ITHTB(I,J)=1 148 PP(I,J)=0. 149 ENDIF 150 IF(ITHTB(I,J).GE.JTB)THEN 151 ITHTB(I,J)=JTB-1 152 PP(I,J)=0. 153 ENDIF 154 C--------------TEMPERATURE AT FOUR SURROUNDING TT TABLE PTS.------------ 155 ITH=ITHTB(I,J) 156 IP=IPTB(I,J) 157 T00K=TTBL(ITH ,IP ) 158 T10K=TTBL(ITH+1,IP ) 159 T01K=TTBL(ITH ,IP+1) 160 T11K=TTBL(ITH+1,IP+1) 161 C--------------PARCEL TEMPERATURE------------------------------------- 162 TREF(I,J)=(T00K+(T10K-T00K)*PP(I,J)+(T01K-T00K)*QQ(I,J) 163 1 +(T00K-T10K-T01K+T11K)*PP(I,J)*QQ(I,J))*HTML(I,J) 164 500 CONTINUE 165 C 166 RETURN 167 END Page 3 Source Listing TTBLEX 2025-03-12 18:23 Entry Points TTBLEX.F ENTRY POINTS Name ttblex_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 500 Label 164 116 AETAL Dummy 3 R(4) 4 scalar ARG,INOUT 120 AINT Func 122 scalar 122,143 BTHE00K Local 135 R(4) 4 scalar 135,140 BTHE10K Local 137 R(4) 4 scalar 137,140 BTHK Local 140 R(4) 4 scalar 140,142 GLB_TABLE Common 78 336 SAVE HTML Dummy 3 R(4) 4 2 6319 ARG,INOUT 163 I Local 118 I(4) 4 scalar 118,120,122,123,125,126,127,129,13 0,131,134,140,141,142,143,144,146, 147,148,150,151,152,155,156,162,16 3 IARR Dummy 2 I(4) 4 1 5395 ARG,INOUT 118 IDIM1 Param 32 I(4) 4 scalar 106,108,109,110,111,112,113,114 IDIM2 Param 32 I(4) 4 scalar 100,106,108,109,110,111,112,113,11 4 IGSTL Param 27 I(4) 4 scalar 32 IGSTR Param 27 I(4) 4 scalar 32 IM Param 15 I(4) 4 scalar 29,32,84,85,86,87,88,92,93,98,103 IMJM Param 103 I(4) 4 scalar IMJM_LOC Param 100 I(4) 4 scalar 107 IMXJM Param 103 I(4) 4 scalar INPES Param 24 I(4) 4 scalar 29,32,68,69,70,79,80 INT Func 123 scalar 123,144 IP Local 156 I(4) 4 scalar 156,157,158,159,160 IPTB Dummy 4 I(4) 4 2 6319 ARG,INOUT 123,125,126,129,130,134,156 IPTBK Local 134 I(4) 4 scalar 134,135,136,137,138 ITAIL Param 29 I(4) 4 scalar ITB Dummy 2 I(4) 4 scalar ARG,INOUT 107,110,111,129,130 ITH Local 155 I(4) 4 scalar 155,157,158,159,160 ITHTB Dummy 4 I(4) 4 2 6319 ARG,INOUT 144,146,147,150,151,155 J Local 119 I(4) 4 scalar 119,120,122,123,125,126,127,129,13 0,131,134,140,141,142,143,144,146, 147,148,150,151,152,155,156,162,16 3 JARR Dummy 2 I(4) 4 1 5395 ARG,INOUT 119 JDIM1 Param 33 I(4) 4 scalar 106,108,109,110,111,112,113,114 JDIM2 Param 33 I(4) 4 scalar 100,106,108,109,110,111,112,113,11 4 JGSTL Param 28 I(4) 4 scalar 33 JGSTR Param 28 I(4) 4 scalar 33 JM Param 15 I(4) 4 scalar 30,33,84,85,86,87,88,92,93,98,103 JNPES Param 24 I(4) 4 scalar 30,33,68,69,70,79,80 JTAIL Param 30 I(4) 4 scalar Page 4 Source Listing TTBLEX 2025-03-12 18:23 Symbol Table TTBLEX.F Name Object Declared Type Bytes Dimen Elements Attributes References JTB Dummy 2 I(4) 4 scalar ARG,INOUT 107,150,151 KK Local 116 I(4) 4 scalar 116,118,119 KNUM Dummy 2 I(4) 4 scalar ARG,INOUT 116 LM Param 15 I(4) 4 scalar 93 LSM Param 15 I(4) 4 scalar MAPPINGS Common 97 5024 SAVE MPPCOM Common 42 1724 SAVE PDSL Dummy 3 R(4) 4 2 6319 ARG,INOUT 120 PK Local 120 R(4) 4 scalar 120,121 PL Dummy 3 R(4) 4 scalar ARG,INOUT 121 PP Dummy 3 R(4) 4 2 6319 ARG,INOUT 143,148,152,162,163 PT Dummy 3 R(4) 4 scalar ARG,INOUT 120 QQ Dummy 3 R(4) 4 2 6319 ARG,INOUT 122,127,131,140,141,162,163 RDP Dummy 3 R(4) 4 scalar ARG,INOUT 121 RDTHE Dummy 4 R(4) 4 scalar ARG,INOUT 142 STHE Dummy 4 R(4) 4 1 0 ARG,INOUT 136,138 STHE00K Local 136 R(4) 4 scalar 136,141 STHE10K Local 138 R(4) 4 scalar 138,141 STHK Local 141 R(4) 4 scalar 141,142 T00K Local 157 R(4) 4 scalar 157,162,163 T01K Local 159 R(4) 4 scalar 159,162,163 T10K Local 158 R(4) 4 scalar 158,162,163 T11K Local 160 R(4) 4 scalar 160,163 TEMPCOM Common 83 6603768 SAVE THE0 Dummy 3 R(4) 4 1 0 ARG,INOUT 135,137 THESP Dummy 4 R(4) 4 2 6319 ARG,INOUT 142 TOPO Common 91 17478548 SAVE TPK Local 121 R(4) 4 scalar 121,122,123 TREF Dummy 2 R(4) 4 2 6319 ARG,INOUT 162 TTBL Dummy 2 R(4) 4 2 0 ARG,INOUT 157,158,159,160 TTBLEX Subr 2 TTHK Local 142 R(4) 4 scalar 142,143,144 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 828 1 21 COM IE_GLB_TABLE I(4) 4 84 1 21 COM IE_LOC_TABLE I(4) 4 660 1 21 COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1324 1 100 COM IQUILT_GROUP I(4) 4 1320 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM Page 5 Source Listing TTBLEX 2025-03-12 18:23 Symbol Table TTBLEX.F Name Type Bytes Offset Dimen Elements Attributes References IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 21 COM IS_LOC_TABLE I(4) 4 492 1 21 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 252 1 21 COM JE_LOC_TABLE I(4) 4 744 1 21 COM JS_GLB_TABLE I(4) 4 168 1 21 COM JS_LOC_TABLE I(4) 4 576 1 21 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM MPI_COMM_COMP I(4) 4 912 scalar COM MPI_COMM_INTER I(4) 4 916 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 920 1 100 COM MYIE I(4) 4 52 scalar COM MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM MYJE1 I(4) 4 240 scalar COM Page 6 Source Listing TTBLEX 2025-03-12 18:23 Symbol Table TTBLEX.F Name Type Bytes Offset Dimen Elements Attributes References MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM Page 7 Source Listing TTBLEX 2025-03-12 18:23 Symbol Table TTBLEX.F Name Type Bytes Offset Dimen Elements Attributes References MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NPES I(4) 4 4 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TTVG R(4) 4 371884 2 92971 COM Page 8 Source Listing TTBLEX 2025-03-12 18:23 TTBLEX.F 168 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Page 9 Source Listing TTBLEX 2025-03-12 18:23 Subprograms/Common Blocks TTBLEX.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References GLB_TABLE Common 78 336 SAVE MAPPINGS Common 97 5024 SAVE MPPCOM Common 42 1724 SAVE TEMPCOM Common 83 6603768 SAVE TOPO Common 91 17478548 SAVE TTBLEX Subr 2 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 Page 10 Source Listing TTBLEX 2025-03-12 18:23 TTBLEX.F -D __gnu_linux__ -D unix -D linux -D __ELF__ -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 precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -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 Page 11 Source Listing TTBLEX 2025-03-12 18:23 TTBLEX.F 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 -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 : TTBLEX.lst no -o COMPILER: Intel(R) Fortran 19.1-1655