Page 1 Source Listing RDTEMP 2014-12-17 20:47 /tmpnwprd/ifortaeEpM8.i 1 # 1 "RDTEMP.F" 2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 3 SUBROUTINE RDTEMP 4 C ****************************************************************** 5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 6 C . . . 7 C SUBPROGRAM: RDTEMP RADIATIVE TEMPERATURE CHANGE 8 C PRGRMMR: BLACK ORG: W/NP22 DATE: 93-12-29 9 C 10 C ABSTRACT: 11 C RDTEMP APPLIES THE TEMPERATURE TENDENCIES DUE TO 12 C RADIATION AT ALL LAYERS AT EACH ADJUSTMENT TIME STEP 13 C 14 C PROGRAM HISTORY LOG: 15 C 87-09-?? BLACK - ORIGINATOR 16 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 17 C 95-11-20 ABELES - PARALLEL OPTIMIZATION 18 C 98-10-30 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 19 C 20 C USAGE: CALL RDTEMP FROM MAIN PROGRAM EBU 21 C INPUT ARGUMENT LIST: 22 C NONE 23 C 24 C OUTPUT ARGUMENT LIST: 25 C NONE 26 C 27 C OUTPUT FILES: 28 C NONE 29 C 30 C SUBPROGRAMS CALLED: 31 C 32 C UNIQUE: NONE 33 C 34 C LIBRARY: NONE 35 C 36 C COMMON BLOCKS: CTLBLK 37 C MASKS 38 C VRBLS 39 C PVRBLS 40 C PHYS 41 C ACMRDS 42 C ACMRDL 43 C 44 C ATTRIBUTES: 45 C LANGUAGE: FORTRAN 90 46 C MACHINE : IBM SP 47 C$$$ 48 C*********************************************************************** 49 C----------------------------------------------------------------------- 50 INCLUDE "parmeta" 73 INCLUDE "parm.tbl" 75 INCLUDE "mpp.h" 76 # 1 "./sp.h" 1 77 # 4 78 79 # 53 "RDTEMP.F" 2 80 C----------------------------------------------------------------------- Page 2 Source Listing RDTEMP 2014-12-17 20:47 RDTEMP.F 139 P A R A M E T E R 140 & (LP1=LM+1) 141 C----------------------------------------------------------------------- 142 L O G I C A L 143 & RUN,FIRST,RESTRT,SIGMA 144 C---------------------------------------------------------------------- 145 INCLUDE "CTLBLK.comm" 146 C----------------------------------------------------------------------- 156 INCLUDE "MASKS.comm" 157 C----------------------------------------------------------------------- 168 INCLUDE "VRBLS.comm" 169 C----------------------------------------------------------------------- 179 INCLUDE "PVRBLS.comm" 180 C----------------------------------------------------------------------- 210 INCLUDE "PHYS.comm" 211 C----------------------------------------------------------------------- 239 INCLUDE "ACMRDS.comm" 240 C----------------------------------------------------------------------- 249 INCLUDE "ACMRDL.comm" 250 C----------------------------------------------------------------------- 259 D I M E N S I O N 260 & FACTR(IDIM1:IDIM2,JDIM1:JDIM2) 261 C----------------------------------------------------------------------- 262 C 263 C GET CURRENT VALUE OF COS(ZENITH ANGLE) 264 C 265 TIMES=(NTSD-1)*DT 266 CALL ZENITH(TIMES,DAYI,HOUR) 267 C 268 !$omp parallel do 269 DO 50 J=MYJS,MYJE 270 DO 50 I=MYIS,MYIE 271 IF(CZMEAN(I,J).GT.0.)THEN 272 FACTR(I,J)=CZEN(I,J)/CZMEAN(I,J) 273 ELSE 274 FACTR(I,J)=0. 275 ENDIF 276 50 CONTINUE 277 C 278 !$omp parallel do private(ttndkl) 279 DO 100 L=1,LM 280 DO J=MYJS,MYJE 281 DO I=MYIS,MYIE 282 c if(mype.eq.13.and.i.eq.40.and.j.eq.77) then 283 c print*,'l=',l 284 c print*,'rswtt,fact,rlwtt=',rswtt(i,j,l),factr(i,j),rlwtt(i,j,l) 285 c endif 286 TTNDKL=RSWTT(I,J,L)*FACTR(I,J)+RLWTT(I,J,L) 287 T(I,J,L)=T(I,J,L)+TTNDKL*DT*HTM(I,J,L)*HBM2(I,J) 288 c if(mype.eq.13.and.i.eq.40.and.j.eq.77) then 289 c print*,'l=',l 290 c print*,'ttndkl=',ttndkl 291 c print*,'dt=',dt 292 c print*,'htm(i,j,l)=',htm(i,j,l) 293 c print*,'hbm2(i,j)=',hbm2(i,j) 294 c endif 295 ENDDO Page 3 Source Listing RDTEMP 2014-12-17 20:47 RDTEMP.F 296 ENDDO 297 100 CONTINUE 298 C----------------------------------------------------------------------- 299 RETURN 300 END ENTRY POINTS Name rdtemp_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 112 94 50 Label 91 84,85 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACMRDL Common 2 3662832 ACMRDS Common 2 3662832 ACPREC Scalar 12 R(4) 4 2 17955 COM AETA Scalar 9 R(4) 4 1 45 COM AFSI Scalar 26 R(4) 4 2 17955 COM AKHS Scalar 7 R(4) 4 2 17955 COM AKMS Scalar 7 R(4) 4 2 17955 COM ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM ALWIN Scalar 5 R(4) 4 2 17955 COM ALWOUT Scalar 6 R(4) 4 2 17955 COM ALWTOA Scalar 6 R(4) 4 2 17955 COM ARDLW Scalar 3 R(4) 4 scalar COM ARDSW Scalar 3 R(4) 4 scalar COM ASWIN Scalar 5 R(4) 4 2 17955 COM ASWOUT Scalar 6 R(4) 4 2 17955 COM ASWTOA Scalar 6 R(4) 4 2 17955 COM CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVTOP Scalar 18 R(4) 4 2 17955 COM CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CZEN Scalar 16 R(4) 4 2 17955 COM 87 CZMEAN Scalar 23 R(4) 4 2 17955 COM 86,87 DAYI Local 81 R(4) 4 scalar 81 DETA Scalar 9 R(4) 4 1 45 COM DFRLG Scalar 9 R(4) 4 1 46 COM DI Scalar 6 R(4) 4 scalar COM DS Scalar 6 R(4) 4 scalar COM DT Scalar 6 R(4) 4 scalar COM 80,102 DTD Scalar 5 R(4) 4 scalar COM DTQ2 Scalar 5 R(4) 4 scalar COM EPSR Scalar 13 R(4) 4 2 17955 COM FACTR Local 75 R(4) 4 2 17955 87,89,101 Page 4 Source Listing RDTEMP 2014-12-17 20:47 Symbol Table RDTEMP.F Name Object Declared Type Bytes Dimen Elements Attributes References FIRST Scalar 58 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM HBM2 Scalar 8 R(4) 4 2 17955 COM 102 HBM3 Scalar 8 R(4) 4 2 17955 COM HBOT Scalar 17 R(4) 4 2 17955 COM HDAC Scalar 22 R(4) 4 2 17955 COM HDACV Scalar 22 R(4) 4 2 17955 COM HOUR Local 81 R(4) 4 scalar 81 HTM Scalar 6 R(4) 4 3 807975 COM 102 HTMG Scalar 52 R(4) 4 3 4183695 COM HTOP Scalar 17 R(4) 4 2 17955 COM I Local 85 I(4) 4 scalar 85,86,87,89,96,101,102 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,75 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,75 IDTAD Scalar 6 I(4) 4 scalar COM IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHRST Scalar 5 I(4) 4 scalar COM ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57 INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM Page 5 Source Listing RDTEMP 2014-12-17 20:47 Symbol Table RDTEMP.F Name Object Declared Type Bytes Dimen Elements Attributes References ITROW Scalar 22 I(4) 4 scalar COM J Local 84 I(4) 4 scalar 84,86,87,89,95,101,102 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,75 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,75 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 10,25 JTBQ Param 1 I(4) 4 scalar 25 JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM KTM Scalar 5 I(4) 4 scalar COM L Local 94 I(4) 4 scalar 94,101,102 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 5,6,7,9,21,52,55,94 LP1 Param 55 I(4) 4 scalar 9 LSM Param 3 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MXSNAL Scalar 2 R(4) 4 2 17955 COM MYIE Scalar 4 I(4) 4 scalar COM 85,96 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM Page 6 Source Listing RDTEMP 2014-12-17 20:47 Symbol Table RDTEMP.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIS Scalar 4 I(4) 4 scalar COM 85,96 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 84,95 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 84,95 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM Page 7 Source Listing RDTEMP 2014-12-17 20:47 Symbol Table RDTEMP.F Name Object Declared Type Bytes Dimen Elements Attributes References MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NRDLW Scalar 3 I(4) 4 scalar COM NRDSW Scalar 3 I(4) 4 scalar COM NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM 80 NTSTM Scalar 6 I(4) 4 scalar COM PD Scalar 3 R(4) 4 2 17955 COM PHYS Common 4 1788916 PL Scalar 7 R(4) 4 scalar COM PLQ Scalar 8 R(4) 4 scalar COM PREC Scalar 12 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 5 R(4) 4 scalar COM PTBL Scalar 25 R(4) 4 2 10184 COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM Q30 Scalar 14 R(4) 4 2 17955 COM QS Scalar 6 R(4) 4 2 17955 COM Page 8 Source Listing RDTEMP 2014-12-17 20:47 Symbol Table RDTEMP.F Name Object Declared Type Bytes Dimen Elements Attributes References QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM QWBS Scalar 9 R(4) 4 2 17955 COM QZ0 Scalar 5 R(4) 4 2 17955 COM RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM RDP Scalar 7 R(4) 4 scalar COM RDPQ Scalar 8 R(4) 4 scalar COM RDQ Scalar 7 R(4) 4 scalar COM RDTEMP Subr 2 RDTH Scalar 7 R(4) 4 scalar COM RDTHE Scalar 7 R(4) 4 scalar COM RDTHEQ Scalar 8 R(4) 4 scalar COM RES Scalar 7 R(4) 4 2 17955 COM RESTRT Scalar 58 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM RLWIN Scalar 4 R(4) 4 2 17955 COM RLWOUT Scalar 4 R(4) 4 2 17955 COM RLWTOA Scalar 5 R(4) 4 2 17955 COM RLWTT Scalar 7 R(4) 4 3 807975 COM 101 ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM RSWIN Scalar 4 R(4) 4 2 17955 COM RSWOUT Scalar 4 R(4) 4 2 17955 COM RSWTOA Scalar 5 R(4) 4 2 17955 COM RSWTT Scalar 7 R(4) 4 3 807975 COM 101 RUN Scalar 58 L(4) 4 scalar COM SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 58 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SQS Scalar 10 R(4) 4 1 134 COM SST Scalar 20 R(4) 4 2 17955 COM STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 102 TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM Page 9 Source Listing RDTEMP 2014-12-17 20:47 Symbol Table RDTEMP.F Name Object Declared Type Bytes Dimen Elements Attributes References TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TG Scalar 19 R(4) 4 2 17955 COM TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THE0 Scalar 10 R(4) 4 1 76 COM THE0Q Scalar 11 R(4) 4 1 152 COM THL Scalar 7 R(4) 4 scalar COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM TIMES Local 80 R(4) 4 scalar 80,81 TOPO Common 50 17478548 TRDLW Scalar 3 R(4) 4 scalar COM TRDSW Scalar 3 R(4) 4 scalar COM TSHLTR Scalar 18 R(4) 4 2 17955 COM TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTNDKL Local 101 R(4) 4 scalar 101,102 TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM U Scalar 5 R(4) 4 3 807975 COM U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM USTAR Scalar 3 R(4) 4 2 17955 COM UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM V10 Scalar 17 R(4) 4 2 17955 COM V30 Scalar 15 R(4) 4 2 17955 COM VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM Z0 Scalar 3 R(4) 4 2 17955 COM ZENITH Subr 81 81 Page 10 Source Listing RDTEMP 2014-12-17 20:47 Subprograms/Common Blocks RDTEMP.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMRDL Common 2 3662832 ACMRDS Common 2 3662832 CTLBLK Common 4 112 GLB_TABLE Common 37 128 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPPCOM Common 1 1464 PHYS Common 4 1788916 PVRBLS Common 2 5530140 RDTEMP Subr 2 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 VRBLS Common 2 13143060 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__ Page 11 Source Listing RDTEMP 2014-12-17 20:47 RDTEMP.F -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 -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 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 : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : RDTEMP.lst Page 12 Source Listing RDTEMP 2014-12-17 20:47 RDTEMP.F -o filename : none COMPILER: Intel(R) Fortran 12.1-2100