Page 1 Source Listing CONRAD 2025-03-12 18:21 /tmp/ifortmCO3Sh.i 1 # 1 "CONRAD.F" 2 SUBROUTINE CONRAD(NFILE) 3 C 4 C----------------------------------------------------------------------- 5 INCLUDE "parmeta" 28 INCLUDE "mpif.h" 590 INCLUDE "mpp.h" 591 # 1 "./sp.h" 1 592 # 4 593 594 # 8 "CONRAD.F" 2 595 C----------------------------------------------------------------------- 654 P A R A M E T E R 655 1 (IX=2*IM-1,KX=LM) 656 C ******************************************************************* 657 C * C O N R A D * 658 C * READ CO2 TRANSMISSION DATA FROM UNIT(NFILE)FOR NEW VERTICAL * 659 C * COORDINATE TESTS ... * 660 C * THESE ARRAYS USED TO BE IN BLOCK DATA ...K.CAMPANA-MAR 90 * 661 C ******************************************************************* 662 C 663 PARAMETER (L=KX,LP1=KX+1,KP=KX+1,LP12=LP1*LP1) 664 DIMENSION SGTMP(LP1,2),CO21D(L,6),CO22D(LP1,LP1,6) 665 DIMENSION CO21D3(LP1,6),CO21D7(LP1,6) 666 DIMENSION RSZE(3),DATA2(LP12) 667 INTEGER RSZE,RSIZE 668 C 669 C CO2 DATA TABLES FOR USER''S VERTICAL COORDINATE 670 C 671 C THE FOLLOWING COMMON BLOCKS CONTAIN PRETABULATED CO2 TRANSMISSION 672 C FUNCTIONS, EVALUATED USING THE METHODS OF FELS AND 673 C SCHWARZKOPF (1981) AND SCHWARZKOPF AND FELS (1985), 674 C----- THE 2-DIMENSIONAL ARRAYS ARE 675 C CO2 TRANSMISSION FUNCTIONS AND THEIR DERIVATIVES 676 C FROM 109-LEVEL LINE-BY-LINE CALCULATIONS MADE USING THE 1982 677 C MCCLATCHY TAPE (12511 LINES),CONSOLIDATED,INTERPOLATED 678 C TO THE NMC MRF VERTICAL COORDINATTE,AND RE-CONSOLIDATED TO A 679 C 200 CM-1 BANDWIDTH. THE INTERPOLATION METHOD IS DESCRIBED IN 680 C SCHWARZKOPF AND FELS (J.G.R.,1985). 681 C----- THE 1-DIM ARRAYS ARE 682 C CO2 TRANSMISSION FUNCTIONS AND THEIR DERIVATIVES 683 C FOR TAU(I,I+1),I=1,L, 684 C WHERE THE VALUES ARE NOT OBTAINED BY QUADRATURE,BUT ARE THE 685 C ACTUAL TRANSMISSIVITIES,ETC,BETWEEN A PAIR OF PRESSURES. 686 C THESE USED ONLY FOR NEARBY LAYER CALCULATIONS INCLUDING QH2O. 687 C----- THE WEIGHTING FUNCTION GTEMP=P(K)**0.2*(1.+P(K)/30000.)**0.8/ 688 C 1013250.,WHERE P(K)=PRESSURE,NMC MRF(NEW) L18 DATA LEVELS FOR 689 C PSTAR=1013250. 690 C----- STEMP IS US STANDARD ATMOSPHERES,1976,AT DATA PRESSURE LEVELS 691 C USING NMC MRF SIGMAS,WHERE PSTAR=1013.25 MB (PTZ PROGRAM) 692 C***COMMON CO2BD3 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE 693 C AND PRESSURE DERIVATIVES FOR THE 560-800 CM-1 BAND. ALSO INCLUDED 694 C ARE THE STANDARD TEMPERATURES AND THE WEIGHTING FUNCTION. THESE 695 C DATA ARE IN BLOCK DATA BD3: 696 C CO251 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 697 C WITH P(SFC)=1013.25 MB 698 C CO258 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) Page 2 Source Listing CONRAD 2025-03-12 18:21 CONRAD.F 699 C WITH P(SFC)= 810 MB 700 C CDT51 = FIRST TEMPERATURE DERIVATIVE OF CO251 701 C CDT58 = FIRST TEMPERATURE DERIVATIVE OF CO258 702 C C2D51 = SECOND TEMPERATURE DERIVATIVE OF CO251 703 C C2D58 = SECOND TEMPERATURE DERIVATIVE OF CO251 704 C CO2M51 = TRANSMISSION FCTNS FOR T0 FOR ADJACENT PRESSURE 705 C LEVELS, WITH NO PRESSURE QUADRATURE. USED FOR 706 C NEARBY LAYER COMPUTATIONS. P(SFC)=1013.25 MB 707 C CO2M58 = SAME AS CO2M51,WITH P(SFC)= 810 MB 708 C CDTM51 = FIRST TEMPERATURE DERIVATIVE OF CO2M51 709 C CDTM58 = FIRST TEMPERATURE DERIVATIVE OF CO2M58 710 C C2DM51 = SECOND TEMPERATURE DERIVATIVE OF CO2M51 711 C C2DM58 = SECOND TEMPERATURE DERIVATIVE OF CO2M58 712 C STEMP = STANDARD TEMPERATURES FOR MODEL PRESSURE LEVEL 713 C STRUCTURE WITH P(SFC)=1013.25 MB 714 C GTEMP = WEIGHTING FUNCTION FOR MODEL PRESSURE LEVEL 715 C STRUCTURE WITH P(SFC)=1013.25 MB. 716 C----- THE FOLLOWING ARE STILL IN BLOCK DATA 717 C B0 = TEMP. COEFFICIENT USED FOR CO2 TRANS. FCTN. 718 C CORRECTION FOR T(K). (SEE REF. 4 AND BD3) 719 C B1 = TEMP. COEFFICIENT, USED ALONG WITH B0 720 C B2 = TEMP. COEFFICIENT, USED ALONG WITH B0 721 C B3 = TEMP. COEFFICIENT, USED ALONG WITH B0 722 C 723 COMMON/CO2BD3/CO251(LP1,LP1),CO258(LP1,LP1),CDT51(LP1,LP1), 724 1 CDT58(LP1,LP1),C2D51(LP1,LP1),C2D58(LP1,LP1),CO2M51(L), 725 2 CO2M58(L),CDTM51(L),CDTM58(L),C2DM51(L),C2DM58(L), 726 3 STEMP(LP1),GTEMP(LP1),B0,B1,B2,B3 727 C 728 C***COMMON CO2BD2 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE 729 C AND PRESSURE DERIVATIVES FOR THE 560-670 CM-1 PART OF THE 15 UM 730 C CO2 BAND. THESE DATA ARE IN BLOCK DATA BD2. 731 C FOR THE 560-670 CM-1 BAND,ONLY THE (1,I) VALUES ARE USED , SINCE 732 C THESE ARE USED FOR CTS COMPUTATIONS. 733 C CO231 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 734 C WITH P(SFC)=1013.25 MB 735 C CO238 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) 736 C WITH P(SFC)= 810 MB 737 C CDT31 = FIRST TEMPERATURE DERIVATIVE OF CO231 738 C CDT38 = FIRST TEMPERATURE DERIVATIVE OF CO238 739 C C2D31 = SECOND TEMPERATURE DERIVATIVE OF CO231 740 C C2D38 = SECOND TEMPERATURE DERIVATIVE OF CO231 741 C 742 COMMON / CO2BD2 / CO231(LP1),CO238(LP1),CDT31(LP1), 743 1 CDT38(LP1),C2D31(LP1),C2D38(LP1) 744 C 745 C***COMMON CO2BD4 CONTAINS CO2 TRANSMISSION FUNCTIONS AND TEMPERATURE 746 C AND PRESSURE DERIVATIVES FOR THE 670-800 CM-1 PART OF THE 15 UM 747 C CO2 BAND. THESE DATA ARE IN BLOCK DATA BD4. 748 C CO271 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 749 C WITH P(SFC)=1013.25 MB 750 C CO278 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) 751 C WITH P(SFC)= 810 MB 752 C CDT71 = FIRST TEMPERATURE DERIVATIVE OF CO271 753 C CDT78 = FIRST TEMPERATURE DERIVATIVE OF CO278 754 C C2D71 = SECOND TEMPERATURE DERIVATIVE OF CO271 755 C C2D78 = SECOND TEMPERATURE DERIVATIVE OF CO271 Page 3 Source Listing CONRAD 2025-03-12 18:21 CONRAD.F 756 C 757 COMMON / CO2BD4 / CO271(LP1),CO278(LP1),CDT71(LP1), 758 1 CDT78(LP1),C2D71(LP1),C2D78(LP1) 759 C 760 C *****THE FOLLOWING NOT USED IN CURRENT VERSION OF RADIATION ******* 761 C 762 C --COMMON CO2BD5 CONTAINS CO2 TRANSMISSION FUNCTIONS FOR THE 2270- 763 C 2380 PART OF THE 4.3 UM CO2 BAND. 764 C THESE DATA ARE IN BLOCK DATA BD5. 765 C CO211 = TRANSMISSION FCTNS FOR T0 (STD. PROFILE) 766 C WITH P(SFC)=1013.25 MB 767 C CO218 = TRANSMISSION FCTNS. FOR T0 (STD. PROFILE) 768 C WITH P(SFC)= 810 MB 769 C 770 COMMON / CO2BD5 / CO211(LP1),CO218(LP1) 771 C 772 C *****THE ABOVE NOT USED IN CURRENT VERSION OF RADIATION *********** 773 C 774 C====> BEGIN HERE TO GET CONSTANTS FOR RADIATION PACKAGE 775 REWIND NFILE 776 C READ IN PRE-COMPUTED CO2 TRANSMISSION DATA.... 777 C.... AND CONVERT TO CYBER WORDS 778 RSZE(1) = LP1 779 RSZE(2) = L 780 RSZE(3) = LP1*LP1 781 C----------------------------------------------------------------- 782 RSIZE = RSZE(1) 783 DO 10 KK=1,2 784 IF(MYPE.EQ.0)READ(NFILE)(SGTMP(I,KK),I=1,RSIZE) 785 CALL MPI_BCAST(SGTMP(1,KK),RSIZE,MPI_REAL,0, 786 1 MPI_COMM_COMP,IRTN) 787 10 CONTINUE 788 C 789 C----------------------------------------------------------------- 790 RSIZE = RSZE(2) 791 DO 15 KK=1,6 792 IF(MYPE.EQ.0)READ(NFILE)(CO21D(I,KK),I=1,RSIZE) 793 CALL MPI_BCAST(CO21D(1,KK),RSIZE,MPI_REAL,0, 794 1 MPI_COMM_COMP,IRTN) 795 15 CONTINUE 796 C 797 C----------------------------------------------------------------- 798 RSIZE = RSZE(3) 799 DO 20 KK=1,6 800 IF(MYPE.EQ.0)READ(NFILE)(DATA2(I),I=1,RSIZE) 801 CALL MPI_BCAST(DATA2(1),RSIZE,MPI_REAL,0, 802 1 MPI_COMM_COMP,IRTN) 803 C 804 N=0 805 DO 5673 I1=1,LP1 806 DO 5673 I2=1,LP1 807 N=N+1 808 CO22D(I1,I2,KK)=DATA2(N) 809 5673 CONTINUE 810 20 CONTINUE 811 C 812 C----------------------------------------------------------------- Page 4 Source Listing CONRAD 2025-03-12 18:21 CONRAD.F 813 RSIZE = RSZE(1) 814 DO 25 KK=1,6 815 IF(MYPE.EQ.0)READ(NFILE)(CO21D3(I,KK),I=1,RSIZE) 816 CALL MPI_BCAST(CO21D3(1,KK),RSIZE,MPI_REAL,0, 817 1 MPI_COMM_COMP,IRTN) 818 25 CONTINUE 819 C 820 C----------------------------------------------------------------- 821 DO 30 KK=1,6 822 IF(MYPE.EQ.0)READ(NFILE)(CO21D7(I,KK),I=1,RSIZE) 823 CALL MPI_BCAST(CO21D7(1,KK),RSIZE,MPI_REAL,0, 824 1 MPI_COMM_COMP,IRTN) 825 30 CONTINUE 826 C 827 C----------------------------------------------------------------- 828 REWIND NFILE 829 DO 35 K=1,LP1 830 STEMP(K) = SGTMP(K,1) 831 GTEMP(K) = SGTMP(K,2) 832 35 CONTINUE 833 DO 40 K=1,L 834 CDTM51(K) = CO21D(K,1) 835 CO2M51(K) = CO21D(K,2) 836 C2DM51(K) = CO21D(K,3) 837 CDTM58(K) = CO21D(K,4) 838 CO2M58(K) = CO21D(K,5) 839 C2DM58(K) = CO21D(K,6) 840 40 CONTINUE 841 DO 45 J=1,LP1 842 DO 45 I=1,LP1 843 CDT51(I,J) = CO22D(I,J,1) 844 CO251(I,J) = CO22D(I,J,2) 845 C2D51(I,J) = CO22D(I,J,3) 846 CDT58(I,J) = CO22D(I,J,4) 847 CO258(I,J) = CO22D(I,J,5) 848 C2D58(I,J) = CO22D(I,J,6) 849 45 CONTINUE 850 DO 50 K=1,LP1 851 CDT31(K) = CO21D3(K,1) 852 CO231(K) = CO21D3(K,2) 853 C2D31(K) = CO21D3(K,3) 854 CDT38(K) = CO21D3(K,4) 855 CO238(K) = CO21D3(K,5) 856 C2D38(K) = CO21D3(K,6) 857 50 CONTINUE 858 DO 55 K=1,LP1 859 CDT71(K) = CO21D7(K,1) 860 CO271(K) = CO21D7(K,2) 861 C2D71(K) = CO21D7(K,3) 862 CDT78(K) = CO21D7(K,4) 863 CO278(K) = CO21D7(K,5) 864 C2D78(K) = CO21D7(K,6) 865 55 CONTINUE 866 IF(MYPE.EQ.0)PRINT 66,NFILE 867 66 FORMAT(1H ,'----READ CO2 TRANSMISSION FUNCTIONS FROM UNIT ',I2) 868 C 869 C...... DEFINE TABLES FOR LW RADIATION Page 5 Source Listing CONRAD 2025-03-12 18:21 CONRAD.F 870 CALL TABLE 871 C 872 RETURN 873 END ENTRY POINTS Name conrad_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 787 783 15 Label 795 791 20 Label 810 799 25 Label 818 814 30 Label 825 821 35 Label 832 829 40 Label 840 833 45 Label 849 841,842 50 Label 857 850 55 Label 865 858 5673 Label 809 805,806 66 Label 867 866 CO21D Local 664 R(4) 4 2 270 792,793,834,835,836,837,838,839 CO21D3 Local 665 R(4) 4 2 276 815,816,851,852,853,854,855,856 CO21D7 Local 665 R(4) 4 2 276 822,823,859,860,861,862,863,864 CO22D Local 664 R(4) 4 3 12696 808,843,844,845,846,847,848 CO2BD2 Common 742 1104 CO2BD3 Common 723 52248 CO2BD4 Common 757 1104 CO2BD5 Common 770 368 CONRAD Subr 2 DATA2 Local 666 R(4) 4 1 2116 800,801,808 GLB_TABLE Common 632 128 SAVE I Local 784 I(4) 4 scalar 784,792,800,815,822,842,843,844,84 5,846,847,848 I1 Local 805 I(4) 4 scalar 805,808 I2 Local 806 I(4) 4 scalar 806,808 IDIM1 Param 24 I(4) 4 scalar IDIM2 Param 24 I(4) 4 scalar IGSTL Param 19 I(4) 4 scalar 24 IGSTR Param 19 I(4) 4 scalar 24 IM Param 8 I(4) 4 scalar 21,24,638,639,640,641,642,646,647, 652,655 INPES Param 16 I(4) 4 scalar 21,24,622,623,624,633,634 IRTN Local 786 I(4) 4 scalar 786,794,802,817,824 ITAIL Param 21 I(4) 4 scalar IX Param 655 I(4) 4 scalar J Local 841 I(4) 4 scalar 841,843,844,845,846,847,848 JDIM1 Param 25 I(4) 4 scalar JDIM2 Param 25 I(4) 4 scalar Page 6 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Object Declared Type Bytes Dimen Elements Attributes References JGSTL Param 20 I(4) 4 scalar 25 JGSTR Param 20 I(4) 4 scalar 25 JM Param 8 I(4) 4 scalar 22,25,638,639,640,641,642,646,647, 652 JNPES Param 16 I(4) 4 scalar 22,25,622,623,624,633,634 JTAIL Param 22 I(4) 4 scalar K Local 829 I(4) 4 scalar 829,830,831,833,834,835,836,837,83 8,839,850,851,852,853,854,855,856, 858,859,860,861,862,863,864 KK Local 783 I(4) 4 scalar 783,784,785,791,792,793,799,808,81 4,815,816,821,822,823 KP Param 663 I(4) 4 scalar KX Param 655 I(4) 4 scalar 663 L Param 663 I(4) 4 scalar 664,724,725,779,833 LM Param 8 I(4) 4 scalar 647,655 LP1 Param 663 I(4) 4 scalar 663,664,665,723,724,726,742,743,75 7,758,770,778,780,805,806,829,841, 842,850,858 LP12 Param 663 I(4) 4 scalar 666 LSM Param 8 I(4) 4 scalar MAPPINGS Common 651 5024 SAVE MPIFCMB5 Common 578 4 SAVE MPIFCMB9 Common 579 4 SAVE MPIPRIV1 Common 583 28 SAVE MPIPRIV2 Common 585 24 SAVE MPIPRIVC Common 588 2 SAVE MPI_2DOUBLE_PRECISION Param 324 I(4) 4 scalar MPI_2INT Param 408 I(4) 4 scalar MPI_2INTEGER Param 322 I(4) 4 scalar MPI_2REAL Param 326 I(4) 4 scalar MPI_ADDRESS_KIND Param 360 I(4) 4 scalar MPI_AINT Param 438 I(4) 4 scalar MPI_ANY_SOURCE Param 290 I(4) 4 scalar MPI_ANY_TAG Param 292 I(4) 4 scalar MPI_APPNUM Param 254 I(4) 4 scalar MPI_ASYNC_PROTECTS_NONBLOC KING Param 560 L(4) 4 scalar MPI_BAND Param 198 I(4) 4 scalar MPI_BCAST Subr 785 785,793,801,816,823 MPI_BOR Param 202 I(4) 4 scalar MPI_BSEND_OVERHEAD Param 286 I(4) 4 scalar MPI_BXOR Param 206 I(4) 4 scalar MPI_BYTE Param 330 I(4) 4 scalar MPI_CART Param 298 I(4) 4 scalar MPI_CHAR Param 368 I(4) 4 scalar MPI_CHARACTER Param 328 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 456 I(4) 4 scalar MPI_COMBINER_DARRAY Param 478 I(4) 4 scalar MPI_COMBINER_DUP Param 454 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 482 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 484 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 480 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 468 I(4) 4 scalar MPI_COMBINER_HINDEXED_BLOC K Param 488 I(4) 4 scalar Page 7 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_COMBINER_HINDEXED_INTE GER Param 466 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 462 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 460 I(4) 4 scalar MPI_COMBINER_INDEXED Param 464 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 470 I(4) 4 scalar MPI_COMBINER_NAMED Param 452 I(4) 4 scalar MPI_COMBINER_RESIZED Param 486 I(4) 4 scalar MPI_COMBINER_STRUCT Param 474 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 472 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 476 I(4) 4 scalar MPI_COMBINER_VECTOR Param 458 I(4) 4 scalar MPI_COMM_DUP_FN Subr 567 scalar MPI_COMM_NULL Param 222 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 568 scalar MPI_COMM_NULL_DELETE_FN Subr 567 scalar MPI_COMM_SELF Param 218 I(4) 4 scalar MPI_COMM_TYPE_SHARED Param 506 I(4) 4 scalar MPI_COMM_WORLD Param 216 I(4) 4 scalar MPI_COMPLEX Param 310 I(4) 4 scalar MPI_COMPLEX16 Param 356 I(4) 4 scalar MPI_COMPLEX32 Param 358 I(4) 4 scalar MPI_COMPLEX8 Param 354 I(4) 4 scalar MPI_CONGRUENT Param 170 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 573 scalar MPI_COUNT Param 442 I(4) 4 scalar MPI_COUNT_KIND Param 364 I(4) 4 scalar MPI_CXX_BOOL Param 444 I(4) 4 scalar MPI_CXX_DOUBLE_COMPLEX Param 448 I(4) 4 scalar MPI_CXX_FLOAT_COMPLEX Param 446 I(4) 4 scalar MPI_CXX_LONG_DOUBLE_COMPLE X Param 450 I(4) 4 scalar MPI_C_BOOL Param 428 I(4) 4 scalar MPI_C_COMPLEX Param 432 I(4) 4 scalar MPI_C_DOUBLE_COMPLEX Param 434 I(4) 4 scalar MPI_C_FLOAT_COMPLEX Param 430 I(4) 4 scalar MPI_C_LONG_DOUBLE_COMPLEX Param 436 I(4) 4 scalar MPI_DATATYPE_NULL Param 232 I(4) 4 scalar 347,445,447,449,451 MPI_DISPLACEMENT_CURRENT Param 556 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 548 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 550 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 554 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 552 I(4) 4 scalar MPI_DIST_GRAPH Param 300 I(4) 4 scalar MPI_DOUBLE Param 390 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 312 I(4) 4 scalar MPI_DOUBLE_INT Param 402 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 318 I(4) 4 scalar MPI_DUP_FN Subr 564 scalar MPI_ERRHANDLER_NULL Param 236 I(4) 4 scalar MPI_ERROR Param 37 I(4) 4 scalar MPI_ERRORS_ARE_FATAL Param 164 I(4) 4 scalar MPI_ERRORS_RETURN Param 166 I(4) 4 scalar Page 8 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_ACCESS Param 156 I(4) 4 scalar MPI_ERR_AMODE Param 142 I(4) 4 scalar MPI_ERR_ARG Param 112 I(4) 4 scalar MPI_ERR_ASSERT Param 118 I(4) 4 scalar MPI_ERR_BAD_FILE Param 80 I(4) 4 scalar MPI_ERR_BASE Param 110 I(4) 4 scalar MPI_ERR_BUFFER Param 52 I(4) 4 scalar MPI_ERR_COMM Param 130 I(4) 4 scalar MPI_ERR_CONVERSION Param 146 I(4) 4 scalar MPI_ERR_COUNT Param 56 I(4) 4 scalar MPI_ERR_DIMS Param 94 I(4) 4 scalar MPI_ERR_DISP Param 78 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 60 I(4) 4 scalar MPI_ERR_FILE Param 90 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 72 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 114 I(4) 4 scalar MPI_ERR_GROUP Param 76 I(4) 4 scalar MPI_ERR_INFO Param 104 I(4) 4 scalar MPI_ERR_INFO_KEY Param 108 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 88 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 74 I(4) 4 scalar MPI_ERR_INTERN Param 106 I(4) 4 scalar MPI_ERR_IN_STATUS Param 92 I(4) 4 scalar MPI_ERR_IO Param 152 I(4) 4 scalar MPI_ERR_KEYVAL Param 98 I(4) 4 scalar MPI_ERR_LASTCODE Param 120 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 102 I(4) 4 scalar MPI_ERR_NAME Param 96 I(4) 4 scalar MPI_ERR_NOT_SAME Param 124 I(4) 4 scalar MPI_ERR_NO_MEM Param 116 I(4) 4 scalar MPI_ERR_NO_SPACE Param 48 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 132 I(4) 4 scalar MPI_ERR_OP Param 150 I(4) 4 scalar MPI_ERR_OTHER Param 64 I(4) 4 scalar MPI_ERR_PENDING Param 54 I(4) 4 scalar MPI_ERR_PORT Param 136 I(4) 4 scalar MPI_ERR_QUOTA Param 140 I(4) 4 scalar MPI_ERR_RANK Param 62 I(4) 4 scalar MPI_ERR_READ_ONLY Param 100 I(4) 4 scalar MPI_ERR_REQUEST Param 144 I(4) 4 scalar MPI_ERR_RMA_ATTACH Param 66 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 70 I(4) 4 scalar MPI_ERR_RMA_FLAVOR Param 86 I(4) 4 scalar MPI_ERR_RMA_RANGE Param 148 I(4) 4 scalar MPI_ERR_RMA_SHARED Param 138 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 50 I(4) 4 scalar MPI_ERR_ROOT Param 82 I(4) 4 scalar MPI_ERR_SERVICE Param 58 I(4) 4 scalar MPI_ERR_SIZE Param 68 I(4) 4 scalar MPI_ERR_SPAWN Param 128 I(4) 4 scalar MPI_ERR_TAG Param 158 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 162 I(4) 4 scalar MPI_ERR_TRUNCATE Param 122 I(4) 4 scalar MPI_ERR_TYPE Param 126 I(4) 4 scalar MPI_ERR_UNKNOWN Param 160 I(4) 4 scalar Page 9 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_UNSUPPORTED_DATARE P Param 84 I(4) 4 scalar MPI_ERR_UNSUPPORTED_OPERAT ION Param 134 I(4) 4 scalar MPI_ERR_WIN Param 154 I(4) 4 scalar MPI_FILE_NULL Param 226 I(4) 4 scalar MPI_FLOAT Param 388 I(4) 4 scalar MPI_FLOAT_INT Param 400 I(4) 4 scalar MPI_GRAPH Param 296 I(4) 4 scalar MPI_GROUP_EMPTY Param 220 I(4) 4 scalar MPI_GROUP_NULL Param 228 I(4) 4 scalar MPI_HOST Param 244 I(4) 4 scalar MPI_IDENT Param 168 I(4) 4 scalar MPI_INFO_ENV Param 240 I(4) 4 scalar MPI_INFO_NULL Param 238 I(4) 4 scalar MPI_INT Param 380 I(4) 4 scalar MPI_INT16_T Param 414 I(4) 4 scalar MPI_INT32_T Param 416 I(4) 4 scalar MPI_INT64_T Param 418 I(4) 4 scalar MPI_INT8_T Param 412 I(4) 4 scalar MPI_INTEGER Param 320 I(4) 4 scalar MPI_INTEGER1 Param 338 I(4) 4 scalar MPI_INTEGER16 Param 346 I(4) 4 scalar MPI_INTEGER2 Param 340 I(4) 4 scalar MPI_INTEGER4 Param 342 I(4) 4 scalar MPI_INTEGER8 Param 344 I(4) 4 scalar MPI_INTEGER_KIND Param 366 I(4) 4 scalar MPI_IO Param 246 I(4) 4 scalar MPI_KEYVAL_INVALID Param 284 I(4) 4 scalar MPI_LAND Param 196 I(4) 4 scalar MPI_LASTUSEDCODE Param 252 I(4) 4 scalar MPI_LB Param 334 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 306 I(4) 4 scalar MPI_LOCK_SHARED Param 308 I(4) 4 scalar MPI_LOGICAL Param 314 I(4) 4 scalar MPI_LONG Param 384 I(4) 4 scalar MPI_LONG_DOUBLE Param 392 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 410 I(4) 4 scalar MPI_LONG_INT Param 404 I(4) 4 scalar MPI_LONG_LONG Param 398 I(4) 4 scalar MPI_LONG_LONG_INT Param 394 I(4) 4 scalar MPI_LOR Param 200 I(4) 4 scalar MPI_LXOR Param 204 I(4) 4 scalar MPI_MAX Param 188 I(4) 4 scalar MPI_MAXLOC Param 210 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 278 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 266 I(4) 4 scalar MPI_MAX_INFO_KEY Param 272 I(4) 4 scalar MPI_MAX_INFO_VAL Param 274 I(4) 4 scalar MPI_MAX_LIBRARY_VERSION_ST RING Param 280 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 270 I(4) 4 scalar MPI_MAX_PORT_NAME Param 268 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 276 I(4) 4 scalar MPI_MESSAGE_NO_PROC Param 510 I(4) 4 scalar Page 10 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MESSAGE_NULL Param 508 I(4) 4 scalar MPI_MIN Param 190 I(4) 4 scalar MPI_MINLOC Param 208 I(4) 4 scalar MPI_MODE_APPEND Param 534 I(4) 4 scalar MPI_MODE_CREATE Param 530 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 526 I(4) 4 scalar MPI_MODE_EXCL Param 532 I(4) 4 scalar MPI_MODE_NOCHECK Param 496 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 502 I(4) 4 scalar MPI_MODE_NOPUT Param 500 I(4) 4 scalar MPI_MODE_NOSTORE Param 498 I(4) 4 scalar MPI_MODE_NOSUCCEED Param 504 I(4) 4 scalar MPI_MODE_RDONLY Param 520 I(4) 4 scalar MPI_MODE_RDWR Param 522 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 536 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 528 I(4) 4 scalar MPI_MODE_WRONLY Param 524 I(4) 4 scalar MPI_NO_OP Param 214 I(4) 4 scalar MPI_NULL_COPY_FN Subr 564 scalar MPI_NULL_DELETE_FN Subr 564 scalar MPI_OFFSET Param 440 I(4) 4 scalar MPI_OFFSET_KIND Param 362 I(4) 4 scalar MPI_OP_NULL Param 230 I(4) 4 scalar MPI_ORDER_C Param 544 I(4) 4 scalar MPI_ORDER_FORTRAN Param 546 I(4) 4 scalar MPI_PACKED Param 336 I(4) 4 scalar MPI_PROC_NULL Param 288 I(4) 4 scalar MPI_PROD Param 194 I(4) 4 scalar MPI_REAL Param 316 I(4) 4 scalar 785,793,801,816,823 MPI_REAL16 Param 352 I(4) 4 scalar MPI_REAL4 Param 348 I(4) 4 scalar MPI_REAL8 Param 350 I(4) 4 scalar MPI_REPLACE Param 212 I(4) 4 scalar MPI_REQUEST_NULL Param 234 I(4) 4 scalar MPI_ROOT Param 294 I(4) 4 scalar MPI_SEEK_CUR Param 540 I(4) 4 scalar MPI_SEEK_END Param 542 I(4) 4 scalar MPI_SEEK_SET Param 538 I(4) 4 scalar MPI_SHORT Param 376 I(4) 4 scalar MPI_SHORT_INT Param 406 I(4) 4 scalar MPI_SIGNED_CHAR Param 370 I(4) 4 scalar MPI_SIMILAR Param 172 I(4) 4 scalar MPI_SOURCE Param 37 I(4) 4 scalar MPI_STATUS_SIZE Param 39 I(4) 4 scalar 41,42 MPI_SUBARRAYS_SUPPORTED Param 558 L(4) 4 scalar MPI_SUBVERSION Param 304 I(4) 4 scalar MPI_SUCCESS Param 46 I(4) 4 scalar MPI_SUM Param 192 I(4) 4 scalar MPI_TAG Param 37 I(4) 4 scalar MPI_TAG_UB Param 242 I(4) 4 scalar MPI_THREAD_FUNNELED Param 514 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 518 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 516 I(4) 4 scalar MPI_THREAD_SINGLE Param 512 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 494 I(4) 4 scalar Page 11 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Object Declared Type Bytes Dimen Elements Attributes References MPI_TYPECLASS_INTEGER Param 492 I(4) 4 scalar MPI_TYPECLASS_REAL Param 490 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 571 scalar MPI_TYPE_NULL_COPY_FN Subr 572 scalar MPI_TYPE_NULL_DELETE_FN Subr 571 scalar MPI_UB Param 332 I(4) 4 scalar MPI_UINT16_T Param 422 I(4) 4 scalar MPI_UINT32_T Param 424 I(4) 4 scalar MPI_UINT64_T Param 426 I(4) 4 scalar MPI_UINT8_T Param 420 I(4) 4 scalar MPI_UNDEFINED Param 282 I(4) 4 scalar MPI_UNEQUAL Param 174 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 250 I(4) 4 scalar MPI_UNSIGNED Param 382 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 372 I(4) 4 scalar MPI_UNSIGNED_LONG Param 386 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 396 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 378 I(4) 4 scalar MPI_VERSION Param 302 I(4) 4 scalar MPI_WCHAR Param 374 I(4) 4 scalar MPI_WIN_BASE Param 256 I(4) 4 scalar MPI_WIN_CREATE_FLAVOR Param 262 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 260 I(4) 4 scalar MPI_WIN_DUP_FN Subr 569 scalar MPI_WIN_FLAVOR_ALLOCATE Param 178 I(4) 4 scalar MPI_WIN_FLAVOR_CREATE Param 176 I(4) 4 scalar MPI_WIN_FLAVOR_DYNAMIC Param 180 I(4) 4 scalar MPI_WIN_FLAVOR_SHARED Param 182 I(4) 4 scalar MPI_WIN_MODEL Param 264 I(4) 4 scalar MPI_WIN_NULL Param 224 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 570 scalar MPI_WIN_NULL_DELETE_FN Subr 569 scalar MPI_WIN_SEPARATE Param 184 I(4) 4 scalar MPI_WIN_SIZE Param 258 I(4) 4 scalar MPI_WIN_UNIFIED Param 186 I(4) 4 scalar MPI_WTICK Func 565 R(8) 8 scalar MPI_WTIME Func 565 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 248 I(4) 4 scalar MPPCOM Common 596 1464 SAVE N Local 804 I(4) 4 scalar 804,807,808 NFILE Dummy 2 I(4) 4 scalar ARG,INOUT 775,784,792,800,815,822,828,866 PMPI_WTICK Func 566 R(8) 8 scalar PMPI_WTIME Func 566 R(8) 8 scalar RSIZE Local 667 I(4) 4 scalar 782,784,785,790,792,793,798,800,80 1,813,815,816,822,823 RSZE Local 666 I(4) 4 1 3 778,779,780,782,790,798,813 SGTMP Local 664 R(4) 4 2 92 784,785,830,831 TABLE Subr 870 870 TEMPCOM Common 637 6603768 SAVE TOPO Common 645 17478548 SAVE Page 12 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References B0 R(4) 4 52232 scalar COM B1 R(4) 4 52236 scalar COM B2 R(4) 4 52240 scalar COM B3 R(4) 4 52244 scalar COM C2D31 R(4) 4 736 1 46 COM 853 C2D38 R(4) 4 920 1 46 COM 856 C2D51 R(4) 4 33856 2 2116 COM 845 C2D58 R(4) 4 42320 2 2116 COM 848 C2D71 R(4) 4 736 1 46 COM 861 C2D78 R(4) 4 920 1 46 COM 864 C2DM51 R(4) 4 51504 1 45 COM 836 C2DM58 R(4) 4 51684 1 45 COM 839 CDT31 R(4) 4 368 1 46 COM 851 CDT38 R(4) 4 552 1 46 COM 854 CDT51 R(4) 4 16928 2 2116 COM 843 CDT58 R(4) 4 25392 2 2116 COM 846 CDT71 R(4) 4 368 1 46 COM 859 CDT78 R(4) 4 552 1 46 COM 862 CDTM51 R(4) 4 51144 1 45 COM 834 CDTM58 R(4) 4 51324 1 45 COM 837 CO211 R(4) 4 0 1 46 COM CO218 R(4) 4 184 1 46 COM CO231 R(4) 4 0 1 46 COM 852 CO238 R(4) 4 184 1 46 COM 855 CO251 R(4) 4 0 2 2116 COM 844 CO258 R(4) 4 8464 2 2116 COM 847 CO271 R(4) 4 0 1 46 COM 860 CO278 R(4) 4 184 1 46 COM 863 CO2M51 R(4) 4 50784 1 45 COM 835 CO2M58 R(4) 4 50964 1 45 COM 838 G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GTEMP R(4) 4 52048 1 46 COM 831 HTMG R(4) 4 743768 3 4183695 COM IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 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 1064 1 100 COM IQUILT_GROUP I(4) 4 1060 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM 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 8 COM Page 13 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Type Bytes Offset Dimen Elements Attributes References IS_LOC_TABLE I(4) 4 492 1 8 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 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 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_ARGVS_NULL CHAR 1 0 2 1 COM MPI_ARGV_NULL CHAR 1 1 1 1 COM MPI_BOTTOM I(4) 4 0 scalar COM MPI_COMM_COMP I(4) 4 652 scalar COM 786,794,802,817,824 MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MPI_ERRCODES_IGNORE I(4) 4 20 1 1 COM MPI_IN_PLACE I(4) 4 4 scalar COM MPI_STATUSES_IGNORE I(4) 4 0 2 5 COM MPI_STATUS_IGNORE I(4) 4 8 1 5 COM MPI_UNWEIGHTED I(4) 4 0 scalar COM MPI_WEIGHTS_EMPTY I(4) 4 0 scalar 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 Page 14 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 784,792,800,815,822,866 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 Page 15 Source Listing CONRAD 2025-03-12 18:21 Symbol Table CONRAD.F Name Type Bytes Offset Dimen Elements Attributes References 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 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 STEMP R(4) 4 51864 1 46 COM 830 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 16 Source Listing CONRAD 2025-03-12 18:21 Subprograms/Common Blocks CONRAD.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CO2BD2 Common 742 1104 CO2BD3 Common 723 52248 CO2BD4 Common 757 1104 CO2BD5 Common 770 368 CONRAD Subr 2 GLB_TABLE Common 632 128 SAVE MAPPINGS Common 651 5024 SAVE MPIFCMB5 Common 578 4 SAVE MPIFCMB9 Common 579 4 SAVE MPIPRIV1 Common 583 28 SAVE MPIPRIV2 Common 585 24 SAVE MPIPRIVC Common 588 2 SAVE MPPCOM Common 596 1464 SAVE TEMPCOM Common 637 6603768 SAVE TOPO Common 645 17478548 SAVE 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 Page 17 Source Listing CONRAD 2025-03-12 18:21 CONRAD.F -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__ -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 Page 18 Source Listing CONRAD 2025-03-12 18:21 CONRAD.F -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 -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 : CONRAD.lst no -o COMPILER: Intel(R) Fortran 19.1-1655