Page 1 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1 !/ ------------------------------------------------------------------- / 2 MODULE W3IOGRMD 3 !/ 4 !/ +-----------------------------------+ 5 !/ | WAVEWATCH III NOAA/NCEP | 6 !/ | H. L. Tolman | 7 !/ ! F. Ardhuin ! 8 !/ | FORTRAN 90 | 9 !/ | Last update : 11-Nov-2013 | 10 !/ +-----------------------------------+ 11 !/ 12 !/ For updates see W3IOGR documentation. 13 !/ 12-Dec-2012 : Adding SMC grid. JG_Li ( version 4.08 ) 14 !/ 16-Sep-2013 : Add Arctic part in SMC grid. ( version 4.11 ) 15 !/ 11-Nov-2013 : SMC and rotated grid incorporated in the main 16 !/ trunk ( version 4.13 ) 17 !/ 18 ! 1. Purpose : 19 ! 20 ! Reading/writing of model definition file . 21 ! 22 ! 2. Variables and types : 23 ! 24 ! Name Type Scope Description 25 ! ---------------------------------------------------------------- 26 ! VERGRD C*10 Private Model definition file version number. 27 ! IDSTR C*35 Private Model definition file ID string. 28 ! ---------------------------------------------------------------- 29 ! 30 ! 3. Subroutines and functions : 31 ! 32 ! Name Type Scope Description 33 ! ---------------------------------------------------------------- 34 ! W3IOGR Subr. Public Read/write model definition file. 35 ! ---------------------------------------------------------------- 36 ! 37 ! 4. Subroutines and functions used : 38 ! 39 ! Name Type Module Description 40 ! ---------------------------------------------------------------- 41 ! W3SETG Subr. W3GDATMD Point to data structure for spatial gr. 42 ! W3DIMX Subr. Id. Set up arrays for spatial grid. 43 ! W3DIMS Subr. Id. Set array dimensions for a spec. grid. 44 ! W3SETO Subr. W3ODATMD Point to data structure for spatial gr. 45 ! W3DMO5 Subr. Id. Set array dimensions. 46 ! INPTAB Subr. W3SRC2MD Fill interpolation tables for 47 ! dispersion relation. 48 ! DISTAB Subr. W3DISPMD Input coefficient lookup table. 49 ! INSNL1 Subr. W3SNL1MD Initialization of the DIA. 50 ! INSNL2 Subr. W3SNL2MD Initialization of WRT. 51 ! INSNL3 Subr. W3SNL3MD Initialization of GMD. 52 ! INSNLX Subr. W3SNLXMD Initialization of exp. DIA. 53 ! INSNLS Subr. W3SNLSMD Initialization of nonlinear `smoother'. 54 ! STRACE Subr. W3SERVMD Subroutine tracing. 55 ! EXTCDE Subr. W3SERVMD Abort program with exit code. 56 ! ---------------------------------------------------------------- 57 ! Page 2 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 58 ! 5. Remarks : 59 ! 60 ! - Arrays allocated here on read or ing ww3_grid on write. 61 ! 62 ! 6. Switches : 63 ! 64 ! See subroutine. 65 ! 66 ! 7. Source code : 67 ! 68 !/ ------------------------------------------------------------------- / 69 PUBLIC 70 !/ 71 !/ Private parameter statements (ID strings) 72 !/ 73 CHARACTER(LEN=10), PARAMETER, PRIVATE :: VERGRD = 'III 4.03 ' 74 CHARACTER(LEN=35), PARAMETER, PRIVATE :: & 75 IDSTR = 'WAVEWATCH III MODEL DEFINITION FILE' 76 !/ 77 !/ Public variables 78 !/ 79 !/ 80 CONTAINS 81 !/ ------------------------------------------------------------------- / 82 SUBROUTINE W3IOGR ( INXOUT, NDSM, IMOD, FEXT ) 83 !/ 84 !/ +-----------------------------------+ 85 !/ | WAVEWATCH III NOAA/NCEP | 86 !/ | H. L. Tolman | 87 !/ ! F. Ardhuin ! 88 !/ | FORTRAN 90 | 89 !/ | Last update : 01-Jul-2013 | 90 !/ +-----------------------------------+ 91 !/ 92 !/ 14-Jan-1999 : Distributed FORTRAN 77 version. ( version 1.18 ) 93 !/ 04-Feb-2000 : Upgrade to FORTRAN 90 ( version 2.00 ) 94 !/ Major changes to logistics. 95 !/ 14-Feb-2000 : Exact-NL added. ( version 2.01 ) 96 !/ 09-Jan-2001 : Flat grid option. ( version 2.06 ) 97 !/ 02-Feb-2001 : Exact-NL version 3.0 ( version 2.07 ) 98 !/ 27-Feb-2001 : Third propagation scheme added. ( version 2.08 ) 99 !/ 16-Mar-2001 : Fourth propagation scheme added. ( version 2.09 ) 100 !/ 29-Mar-2001 : Sub-grid islands added. ( version 2.10 ) 101 !/ 11-Jan-2002 : Sub-grid ice added. ( version 2.15 ) 102 !/ 09-May-2002 : Switch clean up. ( version 2.21 ) 103 !/ 27-Aug-2002 : Exact-NL version 4.0 ( version 2.22 ) 104 !/ 26-Nov-2002 : Adding first VDIA and MDIA. ( version 3.01 ) 105 !/ 01-Aug-2003 : Adding moving grid GSE correction. ( version 3.03 ) 106 !/ 08-Mar-2004 : Multiple grid version. ( version 3.06 ) 107 !/ 04-May-2005 : Change to MPI_COMM_WAVE. ( version 3.07 ) 108 !/ 24-Jun-2005 : Add MAPST2 processing. ( version 3.07 ) 109 !/ 09-Nov-2005 : Remove soft boundary options. ( version 3.08 ) 110 !/ 23-Jun-2006 : Add W3SLN1 parameters. ( version 3.09 ) 111 !/ 27-Jun-2006 : Adding file name preamble. ( version 3.09 ) 112 !/ 25-Jul-2006 : Reorder for 'GRID' option to read ( version 3.10 ) 113 !/ spectral data also. 114 !/ 28-Oct-2006 : Add partitioning pars. ( version 3.10 ) Page 3 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 115 !/ 26-Mar-2007 : Add partitioning pars. ( version 3.11 ) 116 !/ 16-Apr-2006 : Add Miche limiter pars. ( version 3.11 ) 117 !/ 25-Apr-2007 : Adding Battjes-Janssen Sdb. ( version 3.11 ) 118 !/ 09-Oct-2007 : Adding WAM cycle 4+ Sin and Sds. ( version 3.13 ) 119 !/ 29-May-2009 : Preparing distribution version. ( version 3.14 ) 120 !/ 30-Oct-2009 : Fix ndst arg in call to w3dmo5. ( version 3.14 ) 121 !/ (T. J. Campbell, NRL) 122 !/ 30-Oct-2009 : Implement curvilinear grid type. ( version 3.14 ) 123 !/ (W. E. Rogers & T. J. Campbell, NRL) 124 !/ 23-Dec-2009 : Addition of COU namelists ( version 3.14 ) 125 !/ 23-Jun-2010 : Addition of US3DF namelists ( version 3.14 ) 126 !/ 31-Oct-2010 : Implement unstructured grids ( version 3.14 ) 127 !/ (A. Roland and F. Ardhuin) 128 !/ 06-Dec-2010 : Change from GLOBAL (logical) to ICLOSE (integer) to 129 !/ specify index closure for a grid. ( version 3.14 ) 130 !/ (T. J. Campbell, NRL) 131 !/ 12-Jun-2012 : Add /RTD option or rotated grid option. 132 !/ (Jian-Guo Li) ( version 4.06 ) 133 !/ 13-Jul-2012 : Move GMD (SNL3) and nonlinear filter (SNLS) 134 !/ from 3.15 (HLT). ( version 4.08 ) 135 !/ 19-Dec-2012 : Add NOSWLL to file. ( version 4.11 ) 136 !/ 01-Jul-2013 : Document UQ / UNO switches in file ( version 4.12 ) 137 !/ 138 !/ Copyright 2009-2013 National Weather Service (NWS), 139 !/ National Oceanic and Atmospheric Administration. All rights 140 !/ reserved. WAVEWATCH III is a trademark of the NWS. 141 !/ No unauthorized use without permission. 142 !/ 143 ! 1. Purpose : 144 ! 145 ! Reading and writing of the model definition file. 146 ! 147 ! 2. Method : 148 ! 149 ! The file is opened within the routine, the name is pre-defined 150 ! and the unit number is given in the parameter list. The model 151 ! definition file is written using UNFORMATTED write statements. 152 ! 153 ! 3. Parameters : 154 ! 155 ! Parameter list 156 ! ---------------------------------------------------------------- 157 ! INXOUT C*(*) I Test string for read/write, valid are: 158 ! 'READ', 'WRITE' and 'GRID'. 159 ! NDSM Int. I File unit number. 160 ! IMOD Int. I Model number for W3GDAT etc. 161 ! FEXT C*(*) I File extension to be used. 162 ! ---------------------------------------------------------------- 163 ! 164 ! 4. Subroutines used : 165 ! 166 ! See above. 167 ! 168 ! 5. Called by : 169 ! 170 ! Name Type Module Description 171 ! ---------------------------------------------------------------- Page 4 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 172 ! W3INIT Subr. W3INITMD Wave model initialization routine. 173 ! ...... Prog. N/A All WAVEWATCH III aux programs and 174 ! drivers. 175 ! ---------------------------------------------------------------- 176 ! 177 ! 6. Error messages : 178 ! 179 ! Tests on INXOUT, file status and on array dimensions. 180 ! 181 ! 7. Remarks : 182 ! 183 ! - The model definition file has the pre-defined name 184 ! 'mod_def.FILEXT'. 185 ! 186 ! 8. Structure : 187 ! 188 ! See source code. 189 ! 190 ! 9. Switches : 191 ! 192 ! !/MPI MPI calls 193 ! 194 ! !/LNn Select source terms 195 ! !/STn 196 ! !/NLn 197 ! !/BTn 198 ! !/DBn 199 ! !/TRn 200 ! !/BSn 201 ! !/XXn 202 ! 203 ! !/S Enable subroutine tracing. 204 ! !/T Enable test output 205 ! 206 ! 10. Source code : 207 ! 208 !/ ------------------------------------------------------------------- / 209 USE CONSTANTS 210 USE W3GDATMD 211 USE W3ADATMD, ONLY: MPI_COMM_WAVE 212 USE W3ODATMD 213 USE W3SRC4MD, ONLY: INSIN4, TAUT, TAUHFT, TAUHFT2, & 214 DELU, DELTAUW, DELUST, & 215 DELALP, DELTAIL, & 216 DIKCUMUL 217 USE W3SNL1MD, ONLY: INSNL1 218 USE W3SERVMD, ONLY: EXTCDE 219 USE W3DISPMD 220 ! 221 IMPLICIT NONE 222 ! 223 INCLUDE "mpif.h" 224 !/ 225 !/ ------------------------------------------------------------------- / 226 !/ Parameter list 227 !/ 766 INTEGER, INTENT(IN) :: NDSM Page 5 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 767 INTEGER, INTENT(IN), OPTIONAL :: IMOD 768 CHARACTER, INTENT(IN) :: INXOUT*(*) 769 CHARACTER, INTENT(IN), OPTIONAL :: FEXT*(*) 770 !/ 771 !/ ------------------------------------------------------------------- / 772 !/ Local parameters 773 !/ 774 INTEGER :: IGRD, IERR, I, J, MTH, MK, ISEA, IX, IY 775 INTEGER :: IK, ITH, IK2, ITH2 776 INTEGER, ALLOCATABLE :: MAPTMP(:,:) 777 INTEGER :: IERR_MPI, IP 778 LOGICAL :: WRITE, FLTEST = .FALSE., TESTLL, & 779 FLSNL2 = .FALSE. 780 LOGICAL, SAVE :: FLINP = .FALSE. , FLDISP = .FALSE. 781 CHARACTER(LEN=10) :: VERTST, TEMPXT 782 CHARACTER(LEN=30) :: TNAME0, TNAME1, TNAME2, TNAME3, & 783 TNAME4, TNAME5, TNAME6, TNAME7, & 784 TNAMEP, TNAMEG, TNAMEF, TNAMEI 785 CHARACTER(LEN=30) :: FNAME0, FNAME1, FNAME2, FNAME3, & 786 FNAME4, FNAME5, FNAME6, FNAME7, & 787 FNAMEP, FNAMEG, FNAMEF, FNAMEI 788 CHARACTER(LEN=35) :: IDTST 789 LOGICAL :: GLOBAL 790 !/ 791 !/ ------------------------------------------------------------------- / 792 !/ 793 ! 794 TNAMEF = '------------------------------' 795 TNAME0 = '------------------------------' 796 TNAME1 = '------------------------------' 797 TNAME2 = '------------------------------' 798 TNAME3 = '------------------------------' 799 TNAME4 = '------------------------------' 800 TNAME5 = '------------------------------' 801 TNAME6 = '------------------------------' 802 TNAME7 = '------------------------------' 803 TNAMEP = '------------------------------' 804 TNAMEG = '------------------------------' 805 TNAMEI = '------------------------------' 806 ! 807 TNAME0 = 'Cavaleri and M.-R. (1982) ' 808 TNAME1 = 'Ardhuin et al. (2009+) ' 809 TNAME2 = 'Discrete Interaction Approx. ' 810 TNAME3 = 'JONSWAP ' 811 TNAME4 = 'Battjes and Janssen (1978) ' 812 TNAME5 = 'Not defined ' 813 TNAME6 = 'Not defined ' 814 TNAME7 = 'Not defined ' 815 TNAMEP = '3rd order UQ scheme ' 816 TNAMEG = 'Averaging operator ' 817 ! 818 FNAMEF = TNAMEF 819 FNAME0 = TNAME0 820 FNAME1 = TNAME1 821 FNAME2 = TNAME2 822 FNAME3 = TNAME3 823 FNAME4 = TNAME4 Page 6 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 824 FNAME5 = TNAME5 825 FNAME6 = TNAME6 826 FNAME7 = TNAME7 827 FNAMEP = TNAMEP 828 FNAMEG = TNAMEG 829 FNAMEI = TNAMEI 830 ! 831 ! test input parameters ---------------------------------------------- * 832 ! 833 IF ( PRESENT(IMOD) ) THEN 834 IGRD = IMOD 835 ELSE 836 IGRD = 1 837 END IF 838 ! 839 IF ( PRESENT(FEXT) ) THEN 840 TEMPXT = FEXT 841 ELSE 842 TEMPXT = 'ww3' 843 END IF 844 ! 845 IF (INXOUT.NE.'READ' .AND. INXOUT.NE.'WRITE' & 846 .AND. INXOUT.NE.'GRID') THEN 847 IF ( IAPROC .EQ. NAPERR ) WRITE (NDSE,900) INXOUT 848 CALL EXTCDE ( 1 ) 849 END IF 850 ! 851 WRITE = INXOUT .EQ. 'WRITE' 852 ! 853 CALL W3SETO ( IGRD, NDSE, NDST ) 854 CALL W3SETG ( IGRD, NDSE, NDST ) 855 FILEXT = TEMPXT 856 ! 857 ! open file ---------------------------------------------------------- * 858 ! 859 I = LEN_TRIM(FILEXT) 860 J = LEN_TRIM(FNMPRE) 861 ! 862 IF ( WRITE ) THEN 863 OPEN (NDSM,FILE=FNMPRE(:J)//'mod_def.'//FILEXT(:I), & 864 FORM='UNFORMATTED',ERR=800,IOSTAT=IERR) 865 ELSE 866 OPEN (NDSM,FILE=FNMPRE(:J)//'mod_def.'//FILEXT(:I), & 867 FORM='UNFORMATTED',STATUS='OLD',ERR=800,IOSTAT=IERR) 868 ENDIF 869 ! 870 REWIND ( NDSM ) 871 ! 872 ! Dimensions and test information -------------------------------------- 873 ! 874 IF ( WRITE ) THEN 875 WRITE (NDSM) & 876 IDSTR, VERGRD, NX, NY, NSEA, NTH, NK, & 877 NBI, NFBPO, GNAME, FNAME0, FNAME1, FNAME2, FNAME3, & 878 FNAME4, FNAME5, FNAME6, FNAME7, FNAMEP, FNAMEG, & 879 FNAMEF, FNAMEI 880 ! Page 7 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 881 WRITE (NDSM) & 882 (NBO(I),I=0,NFBPO), (NBO2(I),I=0,NFBPO) 883 ELSE 884 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 885 IDTST, VERTST, NX, NY, NSEA, MTH, MK, & 886 NBI, NFBPO, GNAME, FNAME0, FNAME1, FNAME2, FNAME3, & 887 FNAME4, FNAME5, FNAME6, FNAME7, FNAMEP, FNAMEG, & 888 FNAMEF, FNAMEI 889 ! 890 NK = MK 891 NTH = MTH 892 NK2 = NK + 2 893 NSPEC = NK * NTH 894 ! 895 IF ( IDTST .NE. IDSTR ) THEN 896 IF ( IAPROC .EQ. NAPERR ) & 897 WRITE (NDSE,901) IDTST, IDSTR 898 CALL EXTCDE ( 10 ) 899 END IF 900 IF ( VERTST .NE. VERGRD ) THEN 901 IF ( IAPROC .EQ. NAPERR ) & 902 WRITE (NDSE,902) VERTST, VERGRD 903 CALL EXTCDE ( 11 ) 904 END IF 905 IF ( NFBPO .GT. 9 ) THEN 906 IF ( IAPROC .EQ. NAPERR ) & 907 WRITE (NDSE,904) NFBPO, 9 908 CALL EXTCDE ( 13 ) 909 END IF 910 IF ( FNAME0 .NE. TNAME0 ) THEN 911 IF ( IAPROC .EQ. NAPERR ) & 912 WRITE (NDSE,905) 0, FNAME0, TNAME0 913 CALL EXTCDE ( 14 ) 914 END IF 915 IF ( FNAME1 .NE. TNAME1 ) THEN 916 IF ( IAPROC .EQ. NAPERR ) & 917 WRITE (NDSE,905) 1, FNAME1, TNAME1 918 CALL EXTCDE ( 15 ) 919 END IF 920 IF ( FNAME2 .NE. TNAME2 ) THEN 921 IF ( IAPROC .EQ. NAPERR ) & 922 WRITE (NDSE,905) 2, FNAME2, TNAME2 923 CALL EXTCDE ( 16 ) 924 END IF 925 IF ( FNAME3 .NE. TNAME3 ) THEN 926 IF ( IAPROC .EQ. NAPERR ) & 927 WRITE (NDSE,905) 3, FNAME3, TNAME3 928 CALL EXTCDE ( 17 ) 929 END IF 930 IF ( FNAMEI .NE. TNAMEI ) THEN 931 IF ( IAPROC .EQ. NAPERR ) & 932 WRITE (NDSE,905) 3, FNAMEI, TNAMEI 933 CALL EXTCDE ( 17 ) 934 END IF 935 IF ( FNAME4 .NE. TNAME4 ) THEN 936 IF ( IAPROC .EQ. NAPERR ) & 937 WRITE (NDSE,905) 4, FNAME4, TNAME4 Page 8 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 938 CALL EXTCDE ( 18 ) 939 END IF 940 IF ( FNAME5 .NE. TNAME5 ) THEN 941 IF ( IAPROC .EQ. NAPERR ) & 942 WRITE (NDSE,905) 5, FNAME5, TNAME5 943 CALL EXTCDE ( 19 ) 944 END IF 945 IF ( FNAME6 .NE. TNAME6 ) THEN 946 IF ( IAPROC .EQ. NAPERR ) & 947 WRITE (NDSE,905) 6, FNAME6, TNAME6 948 CALL EXTCDE ( 20 ) 949 END IF 950 IF ( FNAME7 .NE. TNAME7 ) THEN 951 IF ( IAPROC .EQ. NAPERR ) & 952 WRITE (NDSE,905) 7, FNAME7, TNAME7 953 CALL EXTCDE ( 21 ) 954 END IF 955 IF ( FNAMEP .NE. TNAMEP ) THEN 956 IF ( IAPROC .EQ. NAPERR ) & 957 WRITE (NDSE,906) FNAMEP, TNAMEP 958 CALL EXTCDE ( 22 ) 959 END IF 960 IF ( FNAMEG .NE. TNAMEG ) THEN 961 IF ( IAPROC .EQ. NAPERR ) & 962 WRITE (NDSE,907) FNAMEG, TNAMEG 963 CALL EXTCDE ( 22 ) 964 END IF 965 IF ( FNAMEF .NE. TNAMEF ) THEN 966 IF ( IAPROC .EQ. NAPERR ) & 967 WRITE (NDSE,908) FNAMEF, TNAMEF 968 CALL EXTCDE ( 24 ) 969 END IF 970 ! 971 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 972 (NBO(I),I=0,NFBPO), (NBO2(I),I=0,NFBPO) 973 ! 974 ENDIF 975 ! 976 ! Parameters in modules --------------------------------------------- * 977 ! Module W3GDAT GRID 978 ! 979 ALLOCATE ( MAPTMP(NY,NX) ) 980 ! 981 IF ( WRITE ) THEN 982 MAPTMP = MAPSTA + 8*MAPST2 983 WRITE (NDSM) & 984 GTYPE, FLAGLL, ICLOSE 985 ! 986 ! Writes different kind of information depending on grid type 987 ! 988 SELECT CASE ( GTYPE ) 989 CASE ( RLGTYPE ) 990 WRITE (NDSM) & 991 SX, SY, X0, Y0 992 CASE ( CLGTYPE ) 993 WRITE (NDSM) & 994 XGRD, YGRD Page 9 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 995 CASE (UNGTYPE) 996 WRITE (NDSM) & 997 FSN, FSPSI,FSFCT,FSNIMP,NTRI,COUNTOT, COUNTRI, NNZ 998 WRITE (NDSM) & 999 X0, Y0, SX, SY, DXYMAX, XYB, TRIGP, TRIA, & 1000 CROSSDIFF, LEN, IEN, ANGLE0, ANGLE, SI, MAXX, MAXY, & 1001 DXYMAX, INDEX_CELL, CCON, VNEIGH, COUNTCON, IE_CELL, & 1002 POS_CELL, IOBP, IOBPD, IAA, JAA, POSI 1003 END SELECT !GTYPE 1004 ! 1005 WRITE (NDSM) & 1006 ZB, MAPTMP, MAPFS, MAPSF, TRFLAG 1007 ! 1008 IF ( TRFLAG .NE. 0 ) WRITE (NDSM) TRNX, TRNY 1009 WRITE (NDSM) & 1010 DTCFL, DTCFLI, DTMAX, DTMIN, DMIN, CTMAX, & 1011 FICE0, FICEN, FICEL, PFMOVE, FLDRY, FLCX, FLCY, FLCTH, & 1012 FLCK, FLSOU, FLBPI, FLBPO, CLATS, CLATIS,CTHG0S 1013 WRITE(NDSM)GRIDSHIFT 1014 !! WRITE(NDSM) & 1015 !! COUG_2D, COUG_RAD3D, COUG_US3D 1016 ELSE 1017 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1018 GTYPE, FLAGLL, ICLOSE 1019 !!Li IF (.NOT.GINIT) CALL W3DIMX ( IGRD, NX, NY, NSEA, NDSE, NDST ) 1020 IF (.NOT.GINIT) CALL W3DIMX ( IGRD, NX, NY, NSEA, NDSE, NDST & 1021 ) 1022 ! 1023 ! Reads different kind of information depending on grid type 1024 ! 1025 SELECT CASE ( GTYPE ) 1026 CASE ( RLGTYPE ) 1027 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1028 SX, SY, X0, Y0 1029 DO IX=1,NX 1030 XGRD(:,IX) = X0 + REAL(IX-1)*SX 1031 END DO 1032 DO IY=1,NY 1033 YGRD(IY,:) = Y0 + REAL(IY-1)*SY 1034 END DO 1035 CASE ( CLGTYPE ) 1036 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1037 XGRD, YGRD 1038 !Set SX, SY, X0, Y0 to large values if curvilinear grid 1039 X0 = HUGE(X0); Y0 = HUGE(Y0) 1040 SX = HUGE(SX); SY = HUGE(SY) 1041 CASE (UNGTYPE) 1042 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1043 FSN,FSPSI,FSFCT,FSNIMP,NTRI,COUNTOT, COUNTRI, NNZ 1044 IF (.NOT. GUGINIT) THEN 1045 CALL W3DIMUG ( IGRD, NTRI, NX, COUNTOT, NNZ, NDSE, NDST ) 1046 END IF 1047 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1048 X0, Y0, SX, SY, DXYMAX, XYB, TRIGP, TRIA, & 1049 CROSSDIFF, LEN, IEN, ANGLE0, ANGLE, SI, MAXX, MAXY, & 1050 DXYMAX, INDEX_CELL, CCON, VNEIGH, COUNTCON, IE_CELL, & 1051 POS_CELL, IOBP, IOBPD, IAA, JAA, POSI Page 10 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1052 XGRD(1,:)=XYB(:,1) 1053 YGRD(1,:)=XYB(:,2) 1054 END SELECT !GTYPE 1055 ! 1056 IF (GTYPE.NE.UNGTYPE) CALL W3GNTX ( IGRD, NDSE, NDST ) 1057 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1058 ZB, MAPTMP, MAPFS, MAPSF, TRFLAG 1059 ! 1060 MAPSTA = MOD(MAPTMP+2,8) - 2 1061 MAPST2 = (MAPTMP-MAPSTA) / 8 1062 MAPSF(:,3) = MAPSF(:,2) + (MAPSF(:,1)-1)*NY 1063 IF ( TRFLAG .NE. 0 ) THEN 1064 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) TRNX, TRNY 1065 END IF 1066 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1067 DTCFL, DTCFLI, DTMAX, DTMIN, DMIN, CTMAX, & 1068 FICE0, FICEN, FICEL, PFMOVE, FLDRY, FLCX, FLCY, & 1069 FLCTH, FLCK, FLSOU, FLBPI, FLBPO, CLATS, CLATIS,CTHG0S 1070 1071 READ(NDSM,END=801,ERR=802,IOSTAT=IERR)GRIDSHIFT 1072 ! 1073 END IF 1074 ! 1075 DEALLOCATE ( MAPTMP ) 1076 ! 1077 ! Spectral parameters ------------------------------------------------ * 1078 ! Module W3GDATMD SGRD 1079 ! 1080 IF ( WRITE ) THEN 1081 WRITE (NDSM) & 1082 MAPWN, MAPTH, DTH, TH, ESIN, ECOS, ES2, ESC, EC2, & 1083 XFR, FR1, SIG, SIG2, DSIP, DSII, DDEN, DDEN2, FTE, & 1084 FTF, FTWN, FTTR, FTWL, FACTI1, FACTI2, FACHFA, FACHFE 1085 ELSE 1086 IF (.NOT.SINIT) CALL W3DIMS ( IGRD, NK, NTH, NDSE, NDST ) 1087 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1088 MAPWN, MAPTH, DTH, TH, ESIN, ECOS, ES2, ESC, EC2, & 1089 XFR, FR1, SIG, SIG2, DSIP, DSII, DDEN, DDEN2, FTE, & 1090 FTF, FTWN, FTTR, FTWL, FACTI1, FACTI2, FACHFA, FACHFE 1091 END IF 1092 ! 1093 IF ( INXOUT .EQ. 'GRID' ) THEN 1094 CLOSE (NDSM) 1095 RETURN 1096 END IF 1097 ! 1098 ! Parameters for output boundary points ------------------------------ * 1099 ! Module W3ODATMD OUT5 1100 ! 1101 IF ( WRITE ) THEN 1102 WRITE (NDSM) & 1103 XBPO, YBPO, RDBPO, IPBPO, ISBPO 1104 ELSE 1105 CALL W3DMO5 ( IGRD, NDSE, NDST, 2 ) 1106 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1107 XBPO, YBPO, RDBPO, IPBPO, ISBPO 1108 END IF Page 11 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1109 ! 1110 ! Parameters for spectral partitioning ------------------------------ * 1111 ! Module W3ODATMD OUT6 1112 ! 1113 IF ( WRITE ) THEN 1114 WRITE (NDSM) & 1115 IHMAX, HSPMIN, WSMULT, WSCUT, FLCOMB, NOSWLL 1116 ELSE 1117 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1118 IHMAX, HSPMIN, WSMULT, WSCUT, FLCOMB, NOSWLL 1119 END IF 1120 ! 1121 ! Numerical parameters ----------------------------------------------- * 1122 ! Module W3GDATMD NPAR 1123 ! 1124 IF ( WRITE ) THEN 1125 WRITE (NDSM) & 1126 FACP, XREL, XFLT, FXFM, FXPM, XFT, XFC, FACSD, FHMAX, & 1127 FLICES, FFACBERG, & 1128 E3DF, P2MSF, US3DF, DELAB, FWTABLE 1129 ELSE 1130 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1131 FACP, XREL, XFLT, FXFM, FXPM, XFT, XFC, FACSD, FHMAX, & 1132 FLICES, FFACBERG, & 1133 E3DF, P2MSF, US3DF, DELAB, FWTABLE 1134 END IF 1135 ! 1136 ! Source term parameters --------------------------------------------- * 1137 ! Module W3GDATMD SFLP 1138 ! Module W3GDATMD SLNP 1139 ! Module W3GDATMD SRCP 1140 ! Module W3GDATMD SNLP 1141 ! Module W3GDATMD SBTP 1142 ! 1143 IF ( WRITE ) THEN 1144 WRITE (NDSM) SLNC1, FSPM, FSHF 1145 ELSE 1146 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) SLNC1, FSPM, FSHF 1147 END IF 1148 ! 1149 IF ( FLTEST ) WRITE (NDST,9049) SLNC1, FSPM, FSHF 1150 ! 1151 IF ( WRITE ) THEN 1152 CALL INSIN4(.TRUE.) 1153 WRITE (NDSM) & 1154 ZZWND, AALPHA, ZZ0MAX, BBETA, SSINTHP, ZZALP, & 1155 TTAUWSHELTER, SSWELLFPAR, SSWELLF, & 1156 ZZ0RAT, SSDSC(1:7), & 1157 SSDSISO, SSDSBR, SSDSBR2, SSDSBM, SSDSP, & 1158 SSDSCOS, SSDSDTH, WWNMEANP, WWNMEANPTAIL, SSTXFTF, & 1159 SSTXFTFTAIL, SSTXFTWN, SSTXFTF, SSTXFTWN, & 1160 SSDSBRF1, SSDSBRF2, SSDSBRFDF,SSDSBCK, SSDSABK, & 1161 SSDSPBK, SSDSBINT, & 1162 FFXPM, FFXFM, SSDSHCK, DELUST, DELTAIL, DELTAUW, & 1163 DELU, DELALP, TAUT, TAUHFT, TAUHFT2, & 1164 IKTAB, DCKI, QBI, SATINDICES, SATWEIGHTS, & 1165 DIKCUMUL, CUMULW Page 12 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1166 ELSE 1167 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1168 ZZWND, AALPHA, ZZ0MAX, BBETA, SSINTHP, ZZALP, & 1169 TTAUWSHELTER, SSWELLFPAR, SSWELLF, & 1170 ZZ0RAT, SSDSC(1:7), & 1171 SSDSISO, SSDSBR, SSDSBR2, SSDSBM, SSDSP, & 1172 SSDSCOS, SSDSDTH, WWNMEANP, WWNMEANPTAIL, SSTXFTF, & 1173 SSTXFTFTAIL, SSTXFTWN, SSTXFTF, SSTXFTWN, & 1174 SSDSBRF1, SSDSBRF2, SSDSBRFDF,SSDSBCK, SSDSABK, & 1175 SSDSPBK, SSDSBINT, & 1176 FFXPM, FFXFM, SSDSHCK, DELUST, DELTAIL, DELTAUW, & 1177 DELU, DELALP, TAUT, TAUHFT, TAUHFT2, & 1178 IKTAB, DCKI, QBI, SATINDICES, SATWEIGHTS, & 1179 DIKCUMUL, CUMULW 1180 END IF 1181 ! 1182 ! ... Nonlinear interactions 1183 ! 1184 IF ( WRITE ) THEN 1185 WRITE (NDSM) & 1186 SNLC1, LAM, KDCON, KDMN, SNLS1, SNLS2, SNLS3 1187 ELSE 1188 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1189 SNLC1, LAM, KDCON, KDMN, SNLS1, SNLS2, SNLS3 1190 END IF 1191 ! 1192 IF ( FLTEST ) WRITE (NDST,9051) SNLC1, LAM, & 1193 KDCON, KDMN, SNLS1, SNLS2, SNLS3 1194 ! 1195 IF ( .NOT. WRITE ) CALL INSNL1 ( IGRD ) 1196 ! 1197 ! Layered barriers needed for file management in xnl_init 1198 ! 1199 IF ( FLSNL2 .AND. .NOT.WRITE ) THEN 1200 DO IP=1, IAPROC-1 1201 CALL MPI_BARRIER ( MPI_COMM_WAVE, IERR_MPI ) 1202 END DO 1203 END IF 1204 IF ( FLSNL2 .AND. .NOT.WRITE ) THEN 1205 DO IP=IAPROC, NAPROC-1 1206 CALL MPI_BARRIER ( MPI_COMM_WAVE, IERR_MPI ) 1207 END DO 1208 END IF 1209 ! 1210 ! ... Bottom friction ... 1211 ! 1212 IF ( WRITE ) THEN 1213 WRITE (NDSM) SBTC1 1214 ELSE 1215 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) SBTC1 1216 END IF 1217 ! 1218 IF ( FLTEST ) WRITE (NDST,9052) SBTC1 1219 ! 1220 ! ... Depth induced breaking ... 1221 ! 1222 IF ( WRITE ) THEN Page 13 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1223 WRITE (NDSM) & 1224 SDBC1, SDBC2, FDONLY 1225 ELSE 1226 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1227 SDBC1, SDBC2, FDONLY 1228 END IF 1229 ! 1230 IF ( FLTEST ) WRITE (NDST,9053) SDBC1, SDBC2, FDONLY 1231 ! 1232 ! Propagation scheme ------------------------------------------------- * 1233 ! Module W3GDATMD PROP 1234 ! 1235 IF ( WRITE ) THEN 1236 WRITE (NDSM) WDCG, WDTH 1237 ELSE 1238 READ (NDSM,END=801,ERR=802,IOSTAT=IERR) & 1239 WDCG, WDTH 1240 END IF 1241 ! 1242 IF ( FLTEST ) WRITE (NDST,9060) WDCG, WDTH 1243 ! 1244 ! Interpolation tables ( fill locally ) ----------------------------- * 1245 ! Module W3DISPMD 1246 ! 1247 IF ( .NOT.WRITE .AND. .NOT.FLDISP ) THEN 1248 CALL DISTAB 1249 FLDISP = .TRUE. 1250 END IF 1251 ! 1252 CLOSE ( NDSM ) 1253 ! 1254 RETURN 1255 ! 1256 ! Escape locations read errors --------------------------------------- * 1257 ! 1258 800 CONTINUE 1259 IF ( IAPROC .EQ. NAPERR ) WRITE (NDSE,1000) IERR 1260 CALL EXTCDE ( 50 ) 1261 ! 1262 801 CONTINUE 1263 IF ( IAPROC .EQ. NAPERR ) WRITE (NDSE,1001) 1264 CALL EXTCDE ( 51 ) 1265 ! 1266 802 CONTINUE 1267 IF ( IAPROC .EQ. NAPERR ) WRITE (NDSE,1002) IERR 1268 CALL EXTCDE ( 52 ) 1269 ! 1270 ! Formats 1271 ! 1272 900 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1273 ' ILEGAL INXOUT VALUE: ',A/) 1274 901 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1275 ' ILEGAL IDSTR, READ : ',A/ & 1276 ' CHECK : ',A/) 1277 902 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1278 ' ILEGAL VERGRD, READ : ',A/ & 1279 ' CHECK : ',A/) Page 14 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1280 904 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1281 ' ILEGAL NFBPO READ : ',I8/ & 1282 ' CHECK : ',I8/) 1283 905 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1284 ' UNEXPECTED SOURCE TERM IDENTIFIER',I2/ & 1285 ' IN FILE : ',A/ & 1286 ' EXPECTED : ',A/ & 1287 ' CHECK CONSISTENCY OF SWITCHES IN PROGRAMS'/) 1288 906 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1289 ' UNEXPECTED PROPAGATION SCHEME IDENTIFIER'/ & 1290 ' IN FILE :',A/ & 1291 ' EXPECTED :',A/ & 1292 ' CHECK CONSISTENCY OF SWITCHES IN PROGRAMS'/) 1293 907 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1294 ' UNEXPECTED GSE ALEVIATION IDENTIFIER'/ & 1295 ' IN FILE :',A/ & 1296 ' EXPECTED :',A/ & 1297 ' CHECK CONSISTENCY OF SWITCHES IN PROGRAMS'/) 1298 908 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1299 ' UNEXPECTED FLUX PARAMETERIZATION IDENTIFIER'/ & 1300 ' IN FILE :',A/ & 1301 ' EXPECTED :',A/ & 1302 ' CHECK CONSISTENCY OF SWITCHES IN PROGRAMS'/) 1303 910 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR :'/ & 1304 ' UNEXPECTED LL GRID FLAG'/ & 1305 ' IN FILE :',L2/ & 1306 ' EXPECTED :',L2/ & 1307 ' CHECK CONSISTENCY OF SWITCHES IN PROGRAMS'/) 1308 ! 1309 1000 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR : '/ & 1310 ' ERROR IN OPENING FILE'/ & 1311 ' IOSTAT =',I5/) 1312 1001 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR : '/ & 1313 ' PREMATURE END OF FILE'/) 1314 1002 FORMAT (/' *** WAVEWATCH III ERROR IN W3IOGR : '/ & 1315 ' ERROR IN READING FROM FILE'/ & 1316 ' IOSTAT =',I5/) 1317 ! 1318 9049 FORMAT (' TEST W3IOGR : MODULE W3GDATMD SLNP'/ & 1319 ' INPUT : ',3E10.3) 1320 ! 1321 9051 FORMAT (' TEST W3IOGR : MODULE W3GDATMD SNLP'/ & 1322 ' DATA : ',2E10.3/ & 1323 ' ',5E10.3) 1324 ! 1325 9052 FORMAT (' TEST W3IOGR : MODULE W3GDATMD SBTP'/ & 1326 ' DATA : ',E10.3) 1327 ! 1328 9053 FORMAT (' TEST W3IOGR : MODULE W3GDATMD SDBP'/ & 1329 ' DATA : ',2E10.3,L4) 1330 ! 1331 9060 FORMAT (' TEST W3IOGR : MODULE W3GDATMD PROP'/ & 1332 ' DATA : ',2F6.2) 1333 ! 1334 !/ 1335 !/ End of W3IOGR ----------------------------------------------------- / 1336 !/ Page 15 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1337 END SUBROUTINE W3IOGR ENTRY POINTS Name w3iogrmd_mp_w3iogr_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1000 Label 771 721 1001 Label 774 725 1002 Label 776 729 800 Label 720 326,329 801 Label 724 346,433,479,489,498,504,509,519,52 6,528,533,549,568,579,592,608,629, 650,677,688,700 802 Label 728 346,433,479,489,498,504,509,519,52 6,528,533,549,568,579,592,608,629, 650,677,688,700 900 Label 734 309 901 Label 736 359 902 Label 739 364 904 Label 742 369 9049 Label 780 611 905 Label 745 374,379,384,389,394,399,404,409,41 4 9051 Label 783 654 9052 Label 787 680 9053 Label 790 692 906 Label 750 419 9060 Label 793 704 907 Label 755 424 908 Label 760 429 910 Label 765 AALPHA Local 616 R(4) 4 scalar PTR 616,630 ANGLE Local 462 R(4) 4 2 1 PTR 462,511 ANGLE0 Local 462 R(4) 4 2 1 PTR 462,511 BBETA Local 616 R(4) 4 scalar PTR 616,630 CCON Local 463 I(4) 4 1 1 PTR 463,512 CLATIS Local 474 R(4) 4 1 1 PTR 474,531 CLATS Local 474 R(4) 4 1 1 PTR 474,531 CLGTYPE Param 454 I(4) 4 scalar 454,497 CONSTANTS Module 209 209 COUNTCON Local 463 I(4) 4 1 1 PTR 463,512 COUNTOT Local 459 I(4) 4 scalar PTR 459,505,507 COUNTRI Local 459 I(4) 4 scalar PTR 459,505 CROSSDIFF Local 462 R(4) 4 2 1 PTR 462,511 CTHG0S Local 474 R(4) 4 1 1 PTR 474,531 CTMAX Local 472 R(4) 4 scalar PTR 472,529 CUMULW Local 627 R(4) 4 2 1 PTR 627,641 DCKI Local 626 R(4) 4 2 1 PTR 626,640 DDEN Local 545 R(4) 4 1 1 PTR 545,551 Page 16 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References DDEN2 Local 545 R(4) 4 1 1 PTR 545,551 DELAB Local 590 R(4) 4 scalar 590,595 DELALP Local 215 R(4) 4 scalar 215,625,639 DELTAIL Local 215 R(4) 4 scalar 215,624,638 DELTAUW Local 214 R(4) 4 scalar 214,624,638 DELU Local 214 R(4) 4 scalar 214,625,639 DELUST Local 214 R(4) 4 scalar 214,624,638 DIKCUMUL Local 216 I(4) 4 scalar 216,627,641 DISTAB Subr 710 710 DMIN Local 472 R(4) 4 scalar PTR 472,529 DSII Local 545 R(4) 4 1 1 PTR 545,551 DSIP Local 545 R(4) 4 1 1 PTR 545,551 DTCFL Local 472 R(4) 4 scalar PTR 472,529 DTCFLI Local 472 R(4) 4 scalar PTR 472,529 DTH Local 544 R(4) 4 scalar PTR 544,550 DTMAX Local 472 R(4) 4 scalar PTR 472,529 DTMIN Local 472 R(4) 4 scalar PTR 472,529 DXYMAX Local 461 R(4) 4 scalar PTR 461,463,510,512 E3DF Local 590 I(4) 4 2 1 PTR 590,595 EC2 Local 544 R(4) 4 1 1 PTR 544,550 ECOS Local 544 R(4) 4 1 1 PTR 544,550 ES2 Local 544 R(4) 4 1 1 PTR 544,550 ESC Local 544 R(4) 4 1 1 PTR 544,550 ESIN Local 544 R(4) 4 1 1 PTR 544,550 EXTCDE Subr 218 218,310,360,365,370,375,380,385,39 0,395,400,405,410,415,420,425,430, 722,726,730 FACHFA Local 546 R(4) 4 scalar PTR 546,552 FACHFE Local 546 R(4) 4 scalar PTR 546,552 FACP Local 588 R(4) 4 scalar PTR 588,593 FACSD Local 588 R(4) 4 scalar PTR 588,593 FACTI1 Local 546 R(4) 4 scalar PTR 546,552 FACTI2 Local 546 R(4) 4 scalar PTR 546,552 FDONLY Local 686 L(4) 4 scalar PTR 686,689,692 FEXT Dummy 82 CHAR scalar ARG,IN 301,302 FFACBERG Local 589 R(4) 4 scalar PTR 589,594 FFXFM Local 624 R(4) 4 scalar PTR 624,638 FFXPM Local 624 R(4) 4 scalar PTR 624,638 FHMAX Local 588 R(4) 4 scalar PTR 588,593 FICE0 Local 473 R(4) 4 scalar PTR 473,530 FICEL Local 473 R(4) 4 scalar PTR 473,530 FICEN Local 473 R(4) 4 scalar PTR 473,530 FILEXT Local 317 CHAR 10 scalar PTR 317,321,325,328 FLAGLL Local 446 L(4) 4 scalar 446,480 FLBPI Local 474 L(4) 4 scalar PTR 474,531 FLBPO Local 474 L(4) 4 scalar PTR 474,531 FLCK Local 474 L(4) 4 scalar PTR 474,531 FLCOMB Local 577 L(4) 4 scalar PTR 577,580 FLCTH Local 473 L(4) 4 scalar PTR 473,531 FLCX Local 473 L(4) 4 scalar PTR 473,530 FLCY Local 473 L(4) 4 scalar PTR 473,530 FLDISP Local 242 L(4) 4 scalar 242,709,711 FLDRY Local 473 L(4) 4 scalar PTR 473,530 FLICES Local 589 L(4) 4 scalar PTR 589,594 FLINP Local 242 L(4) 4 scalar 242 Page 17 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References FLSNL2 Local 241 L(4) 4 scalar 241,661,666 FLSOU Local 474 L(4) 4 scalar PTR 474,531 FLTEST Local 240 L(4) 4 scalar 240,611,654,680,692,704 FNAME0 Local 247 CHAR 30 scalar 281,339,348,372,374 FNAME1 Local 247 CHAR 30 scalar 282,339,348,377,379 FNAME2 Local 247 CHAR 30 scalar 283,339,348,382,384 FNAME3 Local 247 CHAR 30 scalar 284,339,348,387,389 FNAME4 Local 248 CHAR 30 scalar 285,340,349,397,399 FNAME5 Local 248 CHAR 30 scalar 286,340,349,402,404 FNAME6 Local 248 CHAR 30 scalar 287,340,349,407,409 FNAME7 Local 248 CHAR 30 scalar 288,340,349,412,414 FNAMEF Local 249 CHAR 30 scalar 280,341,350,427,429 FNAMEG Local 249 CHAR 30 scalar 290,340,349,422,424 FNAMEI Local 249 CHAR 30 scalar 291,341,350,392,394 FNAMEP Local 249 CHAR 30 scalar 289,340,349,417,419 FNMPRE Local 322 CHAR 80 scalar 322,325,328 FR1 Local 545 R(4) 4 scalar PTR 545,551 FSFCT Local 459 L(4) 4 scalar PTR 459,505 FSHF Local 606 R(4) 4 scalar PTR 606,608,611 FSN Local 459 L(4) 4 scalar PTR 459,505 FSNIMP Local 459 L(4) 4 scalar PTR 459,505 FSPM Local 606 R(4) 4 scalar PTR 606,608,611 FSPSI Local 459 L(4) 4 scalar PTR 459,505 FTE Local 545 R(4) 4 scalar PTR 545,551 FTF Local 546 R(4) 4 scalar PTR 546,552 FTTR Local 546 R(4) 4 scalar PTR 546,552 FTWL Local 546 R(4) 4 scalar PTR 546,552 FTWN Local 546 R(4) 4 scalar PTR 546,552 FWTABLE Local 590 R(4) 4 1 301 590,595 FXFM Local 588 R(4) 4 scalar PTR 588,593 FXPM Local 588 R(4) 4 scalar PTR 588,593 GINIT Local 482 L(4) 4 scalar PTR 482 GLOBAL Local 251 L(4) 4 scalar GNAME Local 339 CHAR 30 scalar PTR 339,348 GRIDSHIFT Local 475 R(8) 8 scalar PTR 475,533 GTYPE Local 446 I(4) 4 scalar PTR 446,450,480,487,518 GUGINIT Local 506 L(4) 4 scalar PTR 506 HSPMIN Local 577 R(4) 4 scalar PTR 577,580 HUGE Func 501 scalar 501,502 I Local 236 I(4) 4 scalar 321,325,328,344,434 IAA Local 464 I(4) 4 1 1 PTR 464,513 IAPROC Local 309 I(4) 4 scalar PTR 309,358,363,368,373,378,383,388,39 3,398,403,408,413,418,423,428,662, 667,721,725,729 ICLOSE Local 446 I(4) 4 scalar PTR 446,480 IDSTR Param 338 CHAR 35 scalar PRIV 75,338,357,359 IDTST Local 250 CHAR 35 scalar 347,357,359 IEN Local 462 R(4) 4 2 1 PTR 462,511 IERR Local 236 I(4) 4 scalar 326,329,346,433,479,489,498,504,50 9,519,526,528,533,549,568,579,592, 608,629,650,677,688,700,721,729 IERR_MPI Local 239 I(4) 4 scalar 663,668 IE_CELL Local 463 I(4) 4 1 1 PTR 463,512 IGRD Local 236 I(4) 4 scalar 296,298,315,316,482,507,518,548,56 7,657 Page 18 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References IHMAX Local 577 I(4) 4 scalar PTR 577,580 IK Local 237 I(4) 4 scalar IK2 Local 237 I(4) 4 scalar IKTAB Local 626 I(4) 4 2 1 PTR 626,640 IMOD Dummy 82 I(4) 4 scalar ARG,IN 295,296 INDEX_CELL Local 463 I(4) 4 1 1 PTR 463,512 INSIN4 Subr 213 213,614 INSNL1 Subr 217 217,657 INXOUT Dummy 82 CHAR scalar ARG,IN 307,308,309,313,555 IOBP Local 464 I(4) 4 1 1 PTR 464,513 IOBPD Local 464 I(4) 4 2 1 PTR 464,513 IP Local 239 I(4) 4 scalar 662,667 IPBPO Local 565 I(4) 4 2 1 PTR 565,569 ISBPO Local 565 I(4) 4 1 1 PTR 565,569 ISEA Local 236 I(4) 4 scalar ITH Local 237 I(4) 4 scalar ITH2 Local 237 I(4) 4 scalar IX Local 236 I(4) 4 scalar 491,492 IY Local 236 I(4) 4 scalar 494,495 J Local 236 I(4) 4 scalar 322,325,328 JAA Local 464 I(4) 4 1 1 PTR 464,513 KDCON Local 648 R(4) 4 scalar PTR 648,651,655 KDMN Local 648 R(4) 4 scalar PTR 648,651,655 LAM Local 648 R(4) 4 scalar PTR 648,651,654 LEN Local 462 R(4) 4 2 1 PTR 462,511 LEN_TRIM Func 321 scalar 321,322 MAPFS Local 468 I(4) 4 2 1 PTR 468,520 MAPSF Local 468 I(4) 4 2 1 PTR 468,520,524 MAPST2 Local 444 I(4) 4 2 1 PTR 444,523 MAPSTA Local 444 I(4) 4 2 1 PTR 444,522,523 MAPTH Local 544 I(4) 4 1 1 PTR 544,550 MAPTMP Local 238 I(4) 4 2 1 ALC 441,444,468,520,522,523,537 MAPWN Local 544 I(4) 4 1 1 PTR 544,550 MAXX Local 462 R(4) 4 scalar PTR 462,511 MAXY Local 462 R(4) 4 scalar PTR 462,511 MK Local 236 I(4) 4 scalar 347,352 MOD Func 522 scalar 522 MPIPRIV1 Common 532 28 MPIPRIV2 Common 534 24 MPIPRIVC Common 537 2 MPI_2COMPLEX Param 332 I(4) 4 scalar MPI_2DOUBLE_COMPLEX Param 338 I(4) 4 scalar MPI_2DOUBLE_PRECISION Param 334 I(4) 4 scalar MPI_2INT Param 415 I(4) 4 scalar MPI_2INTEGER Param 330 I(4) 4 scalar MPI_2REAL Param 336 I(4) 4 scalar MPI_ADDRESS_KIND Param 372 I(4) 4 scalar MPI_ANY_SOURCE Param 300 I(4) 4 scalar MPI_ANY_TAG Param 302 I(4) 4 scalar MPI_APPNUM Param 269 I(4) 4 scalar MPI_ARGVS_NULL Scalar 83 CHAR 1 2 1 COM MPI_ARGV_NULL Scalar 84 CHAR 1 1 1 COM MPI_BAND Param 217 I(4) 4 scalar MPI_BARRIER Subr 663 663,668 MPI_BOR Param 221 I(4) 4 scalar Page 19 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_BOTTOM Scalar 517 I(4) 4 scalar COM MPI_BSEND_OVERHEAD Param 296 I(4) 4 scalar MPI_BXOR Param 225 I(4) 4 scalar MPI_BYTE Param 342 I(4) 4 scalar MPI_CART Param 308 I(4) 4 scalar MPI_CHAR Param 375 I(4) 4 scalar MPI_CHARACTER Param 340 I(4) 4 scalar MPI_COMBINER_CONTIGUOUS Param 423 I(4) 4 scalar MPI_COMBINER_DARRAY Param 445 I(4) 4 scalar MPI_COMBINER_DUP Param 421 I(4) 4 scalar MPI_COMBINER_F90_COMPLEX Param 449 I(4) 4 scalar MPI_COMBINER_F90_INTEGER Param 451 I(4) 4 scalar MPI_COMBINER_F90_REAL Param 447 I(4) 4 scalar MPI_COMBINER_HINDEXED Param 435 I(4) 4 scalar MPI_COMBINER_HINDEXED_INTE GER Param 433 I(4) 4 scalar MPI_COMBINER_HVECTOR Param 429 I(4) 4 scalar MPI_COMBINER_HVECTOR_INTEG ER Param 427 I(4) 4 scalar MPI_COMBINER_INDEXED Param 431 I(4) 4 scalar MPI_COMBINER_INDEXED_BLOCK Param 437 I(4) 4 scalar MPI_COMBINER_NAMED Param 419 I(4) 4 scalar MPI_COMBINER_RESIZED Param 453 I(4) 4 scalar MPI_COMBINER_STRUCT Param 441 I(4) 4 scalar MPI_COMBINER_STRUCT_INTEGE R Param 439 I(4) 4 scalar MPI_COMBINER_SUBARRAY Param 443 I(4) 4 scalar MPI_COMBINER_VECTOR Param 425 I(4) 4 scalar MPI_COMM_DUP_FN Subr 521 scalar MPI_COMM_NULL Param 239 I(4) 4 scalar MPI_COMM_NULL_COPY_FN Subr 522 scalar MPI_COMM_NULL_DELETE_FN Subr 521 scalar MPI_COMM_SELF Param 235 I(4) 4 scalar MPI_COMM_WAVE Local 211 I(4) 4 scalar PTR 211,663,668 MPI_COMM_WORLD Param 233 I(4) 4 scalar MPI_COMPLEX Param 318 I(4) 4 scalar MPI_COMPLEX16 Param 368 I(4) 4 scalar MPI_COMPLEX32 Param 370 I(4) 4 scalar MPI_COMPLEX8 Param 366 I(4) 4 scalar MPI_CONGRUENT Param 201 I(4) 4 scalar MPI_CONVERSION_FN_NULL Subr 527 scalar MPI_DATATYPE_NULL Param 249 I(4) 4 scalar 359 MPI_DISPLACEMENT_CURRENT Param 515 I(8) 8 scalar MPI_DISTRIBUTE_BLOCK Param 507 I(4) 4 scalar MPI_DISTRIBUTE_CYCLIC Param 509 I(4) 4 scalar MPI_DISTRIBUTE_DFLT_DARG Param 513 I(4) 4 scalar MPI_DISTRIBUTE_NONE Param 511 I(4) 4 scalar MPI_DOUBLE Param 397 I(4) 4 scalar MPI_DOUBLE_COMPLEX Param 320 I(4) 4 scalar MPI_DOUBLE_INT Param 409 I(4) 4 scalar MPI_DOUBLE_PRECISION Param 326 I(4) 4 scalar MPI_DUP_FN Subr 518 scalar MPI_ERRCODES_IGNORE Scalar 82 I(4) 4 1 1 COM MPI_ERRHANDLER_NULL Param 253 I(4) 4 scalar MPI_ERROR Param 76 I(4) 4 scalar Page 20 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERRORS_ARE_FATAL Param 195 I(4) 4 scalar MPI_ERRORS_RETURN Param 197 I(4) 4 scalar MPI_ERR_ACCESS Param 189 I(4) 4 scalar MPI_ERR_AMODE Param 173 I(4) 4 scalar MPI_ERR_ARG Param 109 I(4) 4 scalar MPI_ERR_ASSERT Param 131 I(4) 4 scalar MPI_ERR_BAD_FILE Param 163 I(4) 4 scalar MPI_ERR_BASE Param 97 I(4) 4 scalar MPI_ERR_BUFFER Param 115 I(4) 4 scalar MPI_ERR_COMM Param 137 I(4) 4 scalar MPI_ERR_CONVERSION Param 193 I(4) 4 scalar MPI_ERR_COUNT Param 93 I(4) 4 scalar MPI_ERR_DIMS Param 179 I(4) 4 scalar MPI_ERR_DISP Param 125 I(4) 4 scalar MPI_ERR_DUP_DATAREP Param 117 I(4) 4 scalar MPI_ERR_FILE Param 91 I(4) 4 scalar MPI_ERR_FILE_EXISTS Param 133 I(4) 4 scalar MPI_ERR_FILE_IN_USE Param 165 I(4) 4 scalar MPI_ERR_GROUP Param 145 I(4) 4 scalar MPI_ERR_INFO Param 159 I(4) 4 scalar MPI_ERR_INFO_KEY Param 103 I(4) 4 scalar MPI_ERR_INFO_NOKEY Param 129 I(4) 4 scalar MPI_ERR_INFO_VALUE Param 153 I(4) 4 scalar MPI_ERR_INTERN Param 185 I(4) 4 scalar MPI_ERR_IN_STATUS Param 101 I(4) 4 scalar MPI_ERR_IO Param 187 I(4) 4 scalar MPI_ERR_KEYVAL Param 139 I(4) 4 scalar MPI_ERR_LASTCODE Param 121 I(4) 4 scalar MPI_ERR_LOCKTYPE Param 105 I(4) 4 scalar MPI_ERR_NAME Param 141 I(4) 4 scalar MPI_ERR_NOT_SAME Param 155 I(4) 4 scalar MPI_ERR_NO_MEM Param 161 I(4) 4 scalar MPI_ERR_NO_SPACE Param 191 I(4) 4 scalar MPI_ERR_NO_SUCH_FILE Param 181 I(4) 4 scalar MPI_ERR_OP Param 107 I(4) 4 scalar MPI_ERR_OTHER Param 87 I(4) 4 scalar MPI_ERR_PENDING Param 135 I(4) 4 scalar MPI_ERR_PORT Param 127 I(4) 4 scalar MPI_ERR_QUOTA Param 171 I(4) 4 scalar MPI_ERR_RANK Param 177 I(4) 4 scalar MPI_ERR_READ_ONLY Param 111 I(4) 4 scalar MPI_ERR_REQUEST Param 143 I(4) 4 scalar MPI_ERR_RMA_CONFLICT Param 99 I(4) 4 scalar MPI_ERR_RMA_SYNC Param 157 I(4) 4 scalar MPI_ERR_ROOT Param 175 I(4) 4 scalar MPI_ERR_SERVICE Param 183 I(4) 4 scalar MPI_ERR_SIZE Param 113 I(4) 4 scalar MPI_ERR_SPAWN Param 95 I(4) 4 scalar MPI_ERR_TAG Param 151 I(4) 4 scalar MPI_ERR_TOPOLOGY Param 147 I(4) 4 scalar MPI_ERR_TRUNCATE Param 123 I(4) 4 scalar MPI_ERR_TYPE Param 149 I(4) 4 scalar MPI_ERR_UNKNOWN Param 167 I(4) 4 scalar MPI_ERR_UNSUPPORTED_DATARE P Param 119 I(4) 4 scalar Page 21 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_ERR_UNSUPPORTED_OPERAT ION Param 169 I(4) 4 scalar MPI_ERR_WIN Param 89 I(4) 4 scalar MPI_FILE_NULL Param 243 I(4) 4 scalar MPI_FLOAT Param 395 I(4) 4 scalar MPI_FLOAT_INT Param 407 I(4) 4 scalar MPI_GRAPH Param 306 I(4) 4 scalar MPI_GROUP_EMPTY Param 237 I(4) 4 scalar MPI_GROUP_NULL Param 245 I(4) 4 scalar MPI_HOST Param 259 I(4) 4 scalar MPI_IDENT Param 199 I(4) 4 scalar MPI_INFO_NULL Param 255 I(4) 4 scalar MPI_INT Param 387 I(4) 4 scalar MPI_INTEGER Param 328 I(4) 4 scalar MPI_INTEGER1 Param 350 I(4) 4 scalar MPI_INTEGER16 Param 358 I(4) 4 scalar MPI_INTEGER2 Param 352 I(4) 4 scalar MPI_INTEGER4 Param 354 I(4) 4 scalar MPI_INTEGER8 Param 356 I(4) 4 scalar MPI_IN_PLACE Scalar 517 I(4) 4 scalar COM MPI_IO Param 261 I(4) 4 scalar MPI_KEYVAL_INVALID Param 294 I(4) 4 scalar MPI_LAND Param 215 I(4) 4 scalar MPI_LASTUSEDCODE Param 267 I(4) 4 scalar MPI_LB Param 346 I(4) 4 scalar MPI_LOCK_EXCLUSIVE Param 314 I(4) 4 scalar MPI_LOCK_SHARED Param 316 I(4) 4 scalar MPI_LOGICAL Param 322 I(4) 4 scalar MPI_LONG Param 391 I(4) 4 scalar MPI_LONG_DOUBLE Param 399 I(4) 4 scalar MPI_LONG_DOUBLE_INT Param 417 I(4) 4 scalar MPI_LONG_INT Param 411 I(4) 4 scalar MPI_LONG_LONG Param 405 I(4) 4 scalar MPI_LONG_LONG_INT Param 401 I(4) 4 scalar MPI_LOR Param 219 I(4) 4 scalar MPI_LXOR Param 223 I(4) 4 scalar MPI_MAX Param 207 I(4) 4 scalar MPI_MAXLOC Param 229 I(4) 4 scalar MPI_MAX_DATAREP_STRING Param 289 I(4) 4 scalar MPI_MAX_ERROR_STRING Param 277 I(4) 4 scalar MPI_MAX_INFO_KEY Param 283 I(4) 4 scalar MPI_MAX_INFO_VAL Param 285 I(4) 4 scalar MPI_MAX_OBJECT_NAME Param 281 I(4) 4 scalar MPI_MAX_PORT_NAME Param 279 I(4) 4 scalar MPI_MAX_PROCESSOR_NAME Param 287 I(4) 4 scalar MPI_MIN Param 209 I(4) 4 scalar MPI_MINLOC Param 227 I(4) 4 scalar MPI_MODE_APPEND Param 493 I(4) 4 scalar MPI_MODE_CREATE Param 489 I(4) 4 scalar MPI_MODE_DELETE_ON_CLOSE Param 485 I(4) 4 scalar MPI_MODE_EXCL Param 491 I(4) 4 scalar MPI_MODE_NOCHECK Param 461 I(4) 4 scalar MPI_MODE_NOPRECEDE Param 467 I(4) 4 scalar MPI_MODE_NOPUT Param 465 I(4) 4 scalar MPI_MODE_NOSTORE Param 463 I(4) 4 scalar Page 22 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOSUCCEED Param 469 I(4) 4 scalar MPI_MODE_RDONLY Param 479 I(4) 4 scalar MPI_MODE_RDWR Param 481 I(4) 4 scalar MPI_MODE_SEQUENTIAL Param 495 I(4) 4 scalar MPI_MODE_UNIQUE_OPEN Param 487 I(4) 4 scalar MPI_MODE_WRONLY Param 483 I(4) 4 scalar MPI_NULL_COPY_FN Subr 518 scalar MPI_NULL_DELETE_FN Subr 518 scalar MPI_OFFSET_KIND Param 372 I(4) 4 scalar MPI_OP_NULL Param 247 I(4) 4 scalar MPI_ORDER_C Param 503 I(4) 4 scalar MPI_ORDER_FORTRAN Param 505 I(4) 4 scalar MPI_PACKED Param 348 I(4) 4 scalar MPI_PROC_NULL Param 298 I(4) 4 scalar MPI_PROD Param 213 I(4) 4 scalar MPI_REAL Param 324 I(4) 4 scalar MPI_REAL16 Param 364 I(4) 4 scalar MPI_REAL4 Param 360 I(4) 4 scalar MPI_REAL8 Param 362 I(4) 4 scalar MPI_REPLACE Param 231 I(4) 4 scalar MPI_REQUEST_NULL Param 251 I(4) 4 scalar MPI_ROOT Param 304 I(4) 4 scalar MPI_SEEK_CUR Param 499 I(4) 4 scalar MPI_SEEK_END Param 501 I(4) 4 scalar MPI_SEEK_SET Param 497 I(4) 4 scalar MPI_SHORT Param 383 I(4) 4 scalar MPI_SHORT_INT Param 413 I(4) 4 scalar MPI_SIGNED_CHAR Param 377 I(4) 4 scalar MPI_SIMILAR Param 203 I(4) 4 scalar MPI_SOURCE Param 76 I(4) 4 scalar MPI_STATUSES_IGNORE Scalar 81 I(4) 4 2 5 COM MPI_STATUS_IGNORE Scalar 80 I(4) 4 1 5 COM MPI_STATUS_SIZE Param 78 I(4) 4 scalar 80,81 MPI_SUBVERSION Param 312 I(4) 4 scalar MPI_SUCCESS Param 85 I(4) 4 scalar MPI_SUM Param 211 I(4) 4 scalar MPI_TAG Param 76 I(4) 4 scalar MPI_TAG_UB Param 257 I(4) 4 scalar MPI_THREAD_FUNNELED Param 473 I(4) 4 scalar MPI_THREAD_MULTIPLE Param 477 I(4) 4 scalar MPI_THREAD_SERIALIZED Param 475 I(4) 4 scalar MPI_THREAD_SINGLE Param 471 I(4) 4 scalar MPI_TYPECLASS_COMPLEX Param 459 I(4) 4 scalar MPI_TYPECLASS_INTEGER Param 457 I(4) 4 scalar MPI_TYPECLASS_REAL Param 455 I(4) 4 scalar MPI_TYPE_DUP_FN Subr 525 scalar MPI_TYPE_NULL_COPY_FN Subr 526 scalar MPI_TYPE_NULL_DELETE_FN Subr 525 scalar MPI_UB Param 344 I(4) 4 scalar MPI_UNDEFINED Param 291 I(4) 4 scalar MPI_UNDEFINED_RANK Param 291 I(4) 4 scalar MPI_UNEQUAL Param 205 I(4) 4 scalar MPI_UNIVERSE_SIZE Param 265 I(4) 4 scalar MPI_UNSIGNED Param 389 I(4) 4 scalar MPI_UNSIGNED_CHAR Param 379 I(4) 4 scalar Page 23 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_LONG Param 393 I(4) 4 scalar MPI_UNSIGNED_LONG_LONG Param 403 I(4) 4 scalar MPI_UNSIGNED_SHORT Param 385 I(4) 4 scalar MPI_VERSION Param 310 I(4) 4 scalar MPI_WCHAR Param 381 I(4) 4 scalar MPI_WIN_BASE Param 271 I(4) 4 scalar MPI_WIN_DISP_UNIT Param 275 I(4) 4 scalar MPI_WIN_DUP_FN Subr 523 scalar MPI_WIN_NULL Param 241 I(4) 4 scalar MPI_WIN_NULL_COPY_FN Subr 524 scalar MPI_WIN_NULL_DELETE_FN Subr 523 scalar MPI_WIN_SIZE Param 273 I(4) 4 scalar MPI_WTICK Func 519 R(8) 8 scalar MPI_WTIME Func 519 R(8) 8 scalar MPI_WTIME_IS_GLOBAL Param 263 I(4) 4 scalar MTH Local 236 I(4) 4 scalar 347,353 NAPERR Local 309 I(4) 4 scalar PTR 309,358,363,368,373,378,383,388,39 3,398,403,408,413,418,423,428,721, 725,729 NAPROC Local 667 I(4) 4 scalar PTR 667 NBI Local 339 I(4) 4 scalar PTR 339,348 NBO Local 344 I(4) 4 1 1 PTR 344,434 NBO2 Local 344 I(4) 4 1 1 PTR 344,434 NDSE Local 309 I(4) 4 scalar PTR 309,315,316,359,364,369,374,379,38 4,389,394,399,404,409,414,419,424, 429,482,507,518,548,567,721,725,72 9 NDSM Dummy 82 I(4) 4 scalar ARG,IN 325,328,332,337,343,346,433,445,45 2,455,458,460,467,470,471,475,479, 489,498,504,509,519,526,528,533,54 3,549,556,564,568,576,579,587,592, 606,608,615,629,647,650,675,677,68 5,688,698,700,714 NDST Local 315 I(4) 4 scalar PTR 315,316,482,507,518,548,567,611,65 4,680,692,704 NFBPO Local 339 I(4) 4 scalar PTR 339,344,348,367,369,434 NK Local 338 I(4) 4 scalar PTR 338,352,354,355,548 NK2 Local 354 I(4) 4 scalar PTR 354 NNZ Local 459 I(4) 4 scalar PTR 459,505,507 NOSWLL Local 577 I(4) 4 scalar PTR 577,580 NSEA Local 338 I(4) 4 scalar PTR 338,347,482 NSPEC Local 355 I(4) 4 scalar PTR 355 NTH Local 338 I(4) 4 scalar PTR 338,353,355,548 NTRI Local 459 I(4) 4 scalar PTR 459,505,507 NX Local 338 I(4) 4 scalar PTR 338,347,441,482,491,507 NY Local 338 I(4) 4 scalar PTR 338,347,441,482,494,524 P2MSF Local 590 I(4) 4 1 1 PTR 590,595 PFMOVE Local 473 R(4) 4 scalar PTR 473,530 PMPI_WTICK Func 520 R(8) 8 scalar PMPI_WTIME Func 520 R(8) 8 scalar POSI Local 464 I(4) 4 2 1 PTR 464,513 POS_CELL Local 464 I(4) 4 1 1 PTR 464,513 PRESENT Func 295 scalar 295,301 QBI Local 626 R(4) 4 2 1 PTR 626,640 RDBPO Local 565 R(4) 4 2 1 PTR 565,569 Page 24 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References REAL Func 492 scalar 492,495 RLGTYPE Param 451 I(4) 4 scalar 451,488 SATINDICES Local 626 I(4) 4 2 1 PTR 626,640 SATWEIGHTS Local 626 R(4) 4 2 1 PTR 626,640 SBTC1 Local 675 R(4) 4 scalar PTR 675,677,680 SDBC1 Local 686 R(4) 4 scalar PTR 686,689,692 SDBC2 Local 686 R(4) 4 scalar PTR 686,689,692 SI Local 462 R(4) 4 1 1 PTR 462,511 SIG Local 545 R(4) 4 1 1 PTR 545,551 SIG2 Local 545 R(4) 4 1 1 PTR 545,551 SINIT Local 548 L(4) 4 scalar PTR 548 SLNC1 Local 606 R(4) 4 scalar PTR 606,608,611 SNLC1 Local 648 R(4) 4 scalar PTR 648,651,654 SNLS1 Local 648 R(4) 4 scalar PTR 648,651,655 SNLS2 Local 648 R(4) 4 scalar PTR 648,651,655 SNLS3 Local 648 R(4) 4 scalar PTR 648,651,655 SSDSABK Local 622 R(4) 4 scalar PTR 622,636 SSDSBCK Local 622 R(4) 4 scalar PTR 622,636 SSDSBINT Local 623 R(4) 4 scalar PTR 623,637 SSDSBM Local 619 R(4) 4 1 1 PTR 619,633 SSDSBR Local 619 R(4) 4 scalar PTR 619,633 SSDSBR2 Local 619 R(4) 4 scalar PTR 619,633 SSDSBRF1 Local 622 R(4) 4 scalar PTR 622,636 SSDSBRF2 Local 622 R(4) 4 scalar PTR 622,636 SSDSBRFDF Local 622 I(4) 4 scalar PTR 622,636 SSDSC Local 618 R(4) 4 1 1 PTR 618,632 SSDSCOS Local 620 R(4) 4 scalar PTR 620,634 SSDSDTH Local 620 R(4) 4 scalar PTR 620,634 SSDSHCK Local 624 R(4) 4 scalar PTR 624,638 SSDSISO Local 619 I(4) 4 scalar PTR 619,633 SSDSP Local 619 R(4) 4 scalar PTR 619,633 SSDSPBK Local 623 R(4) 4 scalar PTR 623,637 SSINTHP Local 616 R(4) 4 scalar PTR 616,630 SSTXFTF Local 620 R(4) 4 scalar PTR 620,621,634,635 SSTXFTFTAIL Local 621 R(4) 4 scalar PTR 621,635 SSTXFTWN Local 621 R(4) 4 scalar PTR 621,635 SSWELLF Local 617 R(4) 4 1 1 PTR 617,631 SSWELLFPAR Local 617 I(4) 4 scalar PTR 617,631 SX Local 453 R(4) 4 scalar PTR 453,461,490,492,502,510 SY Local 453 R(4) 4 scalar PTR 453,461,490,495,502,510 TAUHFT Local 213 R(4) 4 2 20301 213,625,639 TAUHFT2 Local 213 R(4) 4 3 1035351 213,625,639 TAUT Local 213 R(4) 4 2 40401 213,625,639 TEMPXT Local 243 CHAR 10 scalar 302,304,317 TESTLL Local 240 L(4) 4 scalar TH Local 544 R(4) 4 1 1 PTR 544,550 TNAME0 Local 244 CHAR 30 scalar 257,269,281,372,374 TNAME1 Local 244 CHAR 30 scalar 258,270,282,377,379 TNAME2 Local 244 CHAR 30 scalar 259,271,283,382,384 TNAME3 Local 244 CHAR 30 scalar 260,272,284,387,389 TNAME4 Local 245 CHAR 30 scalar 261,273,285,397,399 TNAME5 Local 245 CHAR 30 scalar 262,274,286,402,404 TNAME6 Local 245 CHAR 30 scalar 263,275,287,407,409 TNAME7 Local 245 CHAR 30 scalar 264,276,288,412,414 TNAMEF Local 246 CHAR 30 scalar 256,280,427,429 Page 25 Source Listing W3IOGR 2014-09-16 16:48 Symbol Table w3iogrmd.f90 Name Object Declared Type Bytes Dimen Elements Attributes References TNAMEG Local 246 CHAR 30 scalar 266,278,290,422,424 TNAMEI Local 246 CHAR 30 scalar 267,291,392,394 TNAMEP Local 246 CHAR 30 scalar 265,277,289,417,419 TRFLAG Local 468 I(4) 4 scalar PTR 468,470,520,525 TRIA Local 461 R(4) 4 1 1 PTR 461,510 TRIGP Local 461 I(4) 4 2 1 PTR 461,510 TRNX Local 470 R(4) 4 2 1 PTR 470,526 TRNY Local 470 R(4) 4 2 1 PTR 470,526 TTAUWSHELTER Local 617 R(4) 4 scalar PTR 617,631 UNGTYPE Param 457 I(4) 4 scalar 457,503,518 US3DF Local 590 I(4) 4 1 1 PTR 590,595 VERGRD Param 338 CHAR 10 scalar PRIV 73,338,362,364 VERTST Local 243 CHAR 10 scalar 347,362,364 VNEIGH Local 463 I(4) 4 2 1 PTR 463,512 W3ADATMD Module 211 211 W3DIMS Subr 548 548 W3DIMUG Subr 507 507 W3DIMX Subr 482 482 W3DISPMD Module 219 219 W3DMO5 Subr 567 567 W3GDATMD Module 210 210 W3GNTX Subr 518 518 W3IOGR Subr 82 W3ODATMD Module 212 212 W3SERVMD Module 218 218 W3SETG Subr 316 316 W3SETO Subr 315 315 W3SNL1MD Module 217 217 W3SRC4MD Module 213 213 WDCG Local 698 R(4) 4 scalar PTR 698,701,704 WDTH Local 698 R(4) 4 scalar PTR 698,701,704 WRITE Local 240 L(4) 4 scalar 313,324,336,443,542,563,575,586,60 5,613,646,657,661,666,674,684,697, 709 WSCUT Local 577 R(4) 4 scalar PTR 577,580 WSMULT Local 577 R(4) 4 scalar PTR 577,580 WWNMEANP Local 620 R(4) 4 scalar PTR 620,634 WWNMEANPTAIL Local 620 R(4) 4 scalar PTR 620,634 X0 Local 453 R(4) 4 scalar PTR 453,461,490,492,501,510 XBPO Local 565 R(4) 4 1 1 PTR 565,569 XFC Local 588 R(4) 4 scalar PTR 588,593 XFLT Local 588 R(4) 4 scalar PTR 588,593 XFR Local 545 R(4) 4 scalar PTR 545,551 XFT Local 588 R(4) 4 scalar PTR 588,593 XGRD Local 456 R(4) 4 2 1 PTR 456,492,499,514 XREL Local 588 R(4) 4 scalar PTR 588,593 XYB Local 461 R(8) 8 2 1 PTR 461,510,514,515 Y0 Local 453 R(4) 4 scalar PTR 453,461,490,495,501,510 YBPO Local 565 R(4) 4 1 1 PTR 565,569 YGRD Local 456 R(4) 4 2 1 PTR 456,495,499,515 ZB Local 468 R(4) 4 1 1 PTR 468,520 ZZ0MAX Local 616 R(4) 4 scalar PTR 616,630 ZZ0RAT Local 618 R(4) 4 scalar PTR 618,632 ZZALP Local 616 R(4) 4 scalar PTR 616,630 ZZWND Local 616 R(4) 4 scalar PTR 616,630 Page 26 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 1338 !/ 1339 !/ End of module W3IOGRMD -------------------------------------------- / 1340 !/ 1341 END MODULE W3IOGRMD SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References W3IOGRMD Module 2 Page 27 Source Listing W3IOGR 2014-09-16 16:48 Subprograms/Common Blocks w3iogrmd.f90 SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References MPIPRIV1 Common 532 28 MPIPRIV2 Common 534 24 MPIPRIVC Common 537 2 W3IOGR Subr 82 W3IOGRMD Module 2 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 cc_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 -auto no -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 _OPENMP=201107 -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __SSE__ -D __MMX__ -D __AVX__ -double_size 64 no -d_lines no -Qdyncom -error_limit 30 no -f66 no -f77rtl Page 28 Source Listing W3IOGR 2014-09-16 16:48 w3iogrmd.f90 no -fast -fpscomp nofilesfromcmd -fpscomp nogeneral -fpscomp noioformat -fpscomp noldio_spacing -fpscomp nologicals 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 -free -g0 -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 -openmp -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded 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/,./,/usrx/local/intel/impi/4.0.3.008/intel64/include/, /usrx/local/intel/impi/4.0.3.008/intel64/include/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/gp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/gp1/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 : w3iogrmd.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100