Page 1 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 1 PROGRAM W3SBS1 2 !/ 3 !/ +-----------------------------------+ 4 !/ | WAVEWATCH-III NOAA/NCEP | 5 !/ | H. L. Tolman | 6 !/ | A. Chawla | 7 !/ | FORTRAN 90 | 8 !/ | Last update : 05-Dec-2012 | 9 !/ +-----------------------------------+ 10 !/ 11 !/ 04-May-2005 : Origination. ( version 3.07 ) 12 !/ 11-Aug-2010 : Upgrade for operations and inclusion in svn. 13 !/ ( version 3.14.4 ) 14 !/ 05-Dec-2012 : Making sleep a system call. ( version 4.11 ) 15 !/ 16 !/ Copyright 2010 National Weather Service (NWS), 17 !/ National Oceanic and Atmospheric Administration. All rights 18 !/ reserved. WAVEWATCH III is a trademark of the NWS. 19 !/ No unauthorized use without permission. 20 !/ 21 ! 1. Purpose : 22 ! 23 ! Program shell or driver to run the multi-grid wave model in 24 ! 'half-coupled' mode, that is running side-by-side with a weather 25 ! model while waiting for wind field to become available. 26 ! 27 ! This version is set up for running at NCEP with a single input 28 ! wind file, and requires an additional input file. 29 ! times.inp Input file with time stamps. Add to this input file 30 ! a time stamp after the field has been properly 31 ! added to the wind.ww3 or equavalent file. 32 ! This file should have the time stamps of fields available in 33 ! the first auxiliary wind input file (grid). 34 ! 35 ! Apart from management of the time stepping, this code is 36 ! identical to multiwavefcst_sbs.ftn, and reads the corresponding input 37 ! file multiwavefcst_sbs.inp 38 ! 39 ! Note hardwired options and system dependent parts as identified 40 ! in Section 7. 41 ! 42 ! 2. Method : 43 ! 44 ! Calling WMWAVE in a loop as wind data become available, with 45 ! test on wind file. 46 ! 47 ! In order for this to work properly, the user needs to increment 48 ! then main wind input file (wind.XXXX) as data become avalable 49 ! while this program is running. After a new field is added to 50 ! wind file, the corresponding time stamp in YYYYMMDD YYMMSS 51 ! format is concatenated to the times.inp file. As the code 52 ! reads the new time stamp (1X,I8,1Z,I6 format), a test read of 53 ! the wind file is performed until the file is readable, after 54 ! which the wave model is run until the new time stamp and the 55 ! process is repeated. The test reading of the wind file proved 56 ! essential on the NCEP IBM systems to deal with file system 57 ! latencies and buffer flushing. Page 2 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 58 ! 59 ! 3. Parameters : 60 ! 61 ! Local parameters. 62 ! ---------------------------------------------------------------- 63 ! SLEEP1 I.P. Sleep time for testing times file. 64 ! SLEEP2 I.P. Sleep time for testing winds file. 65 ! ---------------------------------------------------------------- 66 ! 67 ! 4. Subroutines used : 68 ! 69 ! Name Type Module Description 70 ! ---------------------------------------------------------------- 71 ! WMINIT Subr. WMINITMD Multi-grid model initialization. 72 ! WMWAVE Subr. WMWAVEMD Multi-grid model subroutine. 73 ! WMFINL Subr. WMFINLMD Multi-grid model finalization. 74 ! EXTCDE Subr. W3SERVMD Abort program as graceful as possible. 75 ! W3SETG Subr. W3GDATMD Point to Grid data data structure. 76 ! W3SETI Subr. W3IDATMD Point to input fields data structure. 77 ! WMUGET Subr. WMUNITMD Automatic unit number assignement. 78 ! WMUSET Subr. Automatic unit number assignement. 79 ! 80 ! MPI_INIT, MPI_COMM_SIZE, MPI_COMM_RANK, MPI_BARRIER, 81 ! MPI_FINALIZE 82 ! Subr. Standard MPI routines. 83 ! 84 ! RDTIME Subr. W3MLT Get next wind time. 85 ! RDWIND Subr. W3MLT Test read next wind field. 86 ! ---------------------------------------------------------------- 87 ! 88 ! 5. Called by : 89 ! 90 ! None, stand-alone program. 91 ! 92 ! 6. Error messages : 93 ! 94 ! 7. Remarks : 95 ! 96 ! - Assumptions in this program: 97 ! 1) WNS or WND option with 3 or two data fields is set in the 98 ! decaration and initialization of the C*3 TYPE. 99 ! 2) Single wind file to be tested, this is the first aux grid 100 ! with wind defined. 101 ! 3) Needs system SLEEP command, now behind F90 switch. 102 !/ 05-Dec-2012 : Making sleep a system call. ( version 4.11 ) 103 104 ! 105 ! 8. Structure : 106 ! 107 ! ---------------------------------------------------------------- 108 ! 0. Initialization necessary for driver 109 ! a General I/O: (implicit in wmmdatmd) 110 ! b MPI environment 111 ! c Identifying output to "screen" unit 112 ! 1. Initialization of all wave models / grids ( WMINIT ) 113 ! 2. Open and prepare test files. 114 ! 3. Run the multi-grid models Page 3 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 115 ! a Preparations 116 ! b Catch up with starting time of model ( RDTIME ) 117 ! c Catch up with test reading of file ( DWINDE ) 118 ! d Run wave model ( WMWAVE ) 119 ! 4. Finalization of wave model ( WMFINL ) 120 ! 5. Finalization of driver 121 ! ---------------------------------------------------------------- 122 ! 123 ! 9. Switches : 124 ! 125 ! !/F90 F90 extensions. 126 ! 127 ! !/MPI Including MPI routines / environment. 128 ! 129 ! 10. Source code : 130 ! 131 !/ ------------------------------------------------------------------- / 132 USE WMINITMD, ONLY: WMINIT 133 USE WMWAVEMD, ONLY: WMWAVE 134 USE WMFINLMD, ONLY: WMFINL 135 USE W3SERVMD, ONLY: EXTCDE 136 USE W3GDATMD, ONLY: W3SETG 137 USE W3GDATMD, ONLY: NGRIDS, NAUXGR, NX, NY, GNAME, FILEXT 138 USE W3IDATMD, ONLY: W3SETI 139 USE W3IDATMD, ONLY: FLWIND 140 USE WMMDATMD, ONLY: MDSF 141 USE WMUNITMD, ONLY: WMUGET, WMUSET 142 USE W3TIMEMD 143 !/ 144 USE WMMDATMD, ONLY: MDSE, MDST, MDSS, NMPROC, IMPROC, NMPSCR, & 145 NRGRD, STIME, ETIME 146 !/ 147 IMPLICIT NONE 148 ! 149 INCLUDE "mpif.h" 150 !/ 151 !/ ------------------------------------------------------------------- / 152 !/ Local parameters 153 !/ 692 INTEGER :: MPI_COMM = -99, IERR, NDST1, NDST2 = -1,& 693 NXW = -1, NYW = -1, TNEXT(2), TOLD(2), & 694 I 695 INTEGER :: IERR_MPI 696 INTEGER, PARAMETER :: SLEEP1 = 10 , SLEEP2 = 10 697 INTEGER, PARAMETER :: SLEEP_MAX = 180 698 INTEGER, ALLOCATABLE :: TEND(:,:) 699 REAL :: DTTST 700 CHARACTER(LEN=3) :: TSFLD, TYPE = 'WNS' 701 ! CHARACTER(LEN=3) :: TSFLD, TYPE = 'WND' 702 CHARACTER(LEN=13) :: TSSTR 703 !/ 704 !/ ------------------------------------------------------------------- / 705 ! 0. Initialization necessary for driver 706 ! 0.a General I/O: all can start with initialization in wmmdatmd 707 ! 708 ! 0.b MPI environment: Here, we use MPI_COMM_WORLD 709 ! Page 4 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 710 CALL MPI_INIT ( IERR_MPI ) 711 MPI_COMM = MPI_COMM_WORLD 712 CALL MPI_COMM_SIZE ( MPI_COMM, NMPROC, IERR_MPI ) 713 CALL MPI_COMM_RANK ( MPI_COMM, IMPROC, IERR_MPI ) 714 IMPROC = IMPROC + 1 715 ! 716 ! 0.c Identifying output to "screen" unit 717 ! 718 IF ( IMPROC .EQ. NMPSCR ) WRITE (*,900) 719 ! 720 !/ ------------------------------------------------------------------- / 721 ! 1. Initialization of all wave models / grids 722 ! Use only one of the calls .... 723 ! 724 ! ... Log and screen output, no separate test output file 725 ! 726 ! CALL WMINIT ( 8, 9, 6, 6, 6, 'multiwavefcst_sbs.inp', MPI_COMM ) 727 ! 728 ! ... Screen output disabled 729 ! 730 ! CALL WMINIT ( 8, 9, 9, 6, 6, 'multiwavefcst_sbs.inp', MPI_COMM ) 731 ! 732 ! ... Separate test output file and file preamble defined 733 ! 734 ! CALL WMINIT ( 8, 9, 6, 10, 6, 'multiwavefcst_sbs.inp', MPI_COMM, & 735 ! './data/' ) 736 ! 737 ! ... Separate test output file 738 ! 739 CALL WMINIT ( 8, 9, 6, 10, 6, 'multiwavefcst_sbs.inp', MPI_COMM ) 740 ! 741 !/ ------------------------------------------------------------------- / 742 ! 2. Setting up test files 743 ! 744 CALL WMUGET ( MDSE, MDST, NDST1, 'INP' ) 745 CALL WMUSET ( MDSE, MDST, NDST1, .TRUE., 'I/O', & 746 NAME='times.inp', & 747 DESC='times file for sbs driver' ) 748 OPEN (NDST1,FILE='times.inp',STATUS='OLD',ERR=820,IOSTAT=IERR) 749 ! 750 DO I=-1, -NAUXGR, -1 751 CALL W3SETG ( I, MDSE, MDST ) 752 CALL W3SETI ( I, MDSE, MDST ) 753 IF ( FLWIND ) THEN 754 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,920) FILEXT 755 NXW = NX 756 NYW = NY 757 NDST2 = MDSF(I,3) 758 EXIT 759 END IF 760 END DO 761 ! 762 IF ( NXW .EQ. -1 ) GOTO 825 763 IF ( NDST2 .EQ. -1 ) GOTO 825 764 ! 765 !/ ------------------------------------------------------------------- / 766 ! 3. Run the wave model Page 5 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 767 ! 3.a Prepping, initial time stamp 768 ! 769 ALLOCATE ( TEND(2,NRGRD) ) 770 ! 771 CALL RDTIME ( NDST1, TNEXT ) 772 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,930) TNEXT 773 ! 774 ! 3.b Catch up with starting time as needed 775 ! 776 DO 777 TOLD = TNEXT 778 CALL RDTIME ( NDST1, TNEXT ) 779 DTTST = DSEC21 ( TNEXT , STIME ) 780 IF ( DTTST .GT. 0. ) THEN 781 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,930) TNEXT 782 ELSE IF ( DTTST .EQ. 0. ) THEN 783 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,930) TNEXT 784 EXIT 785 ELSE 786 BACKSPACE NDST1 787 TNEXT = TOLD 788 EXIT 789 END IF 790 END DO 791 ! 792 ! 3.c Test readig of initial fields 793 ! 794 CALL RDWIND ( NDST2, TNEXT, NXW, NYW, .FALSE. ) 795 ! 796 ! 3.d Loop to run the model 797 ! 798 DO 799 ! 800 CALL RDTIME ( NDST1, TNEXT ) 801 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,930) TNEXT 802 CALL RDWIND ( NDST2, TNEXT, NXW, NYW, .TRUE. ) 803 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,931) 804 ! 805 DTTST = DSEC21 ( TNEXT , ETIME ) 806 IF ( DTTST .LT. 0. ) THEN 807 TNEXT = ETIME 808 DTTST = 0. 809 END IF 810 ! 811 DO I=1, NRGRD 812 TEND(:,I) = TNEXT(:) 813 END DO 814 ! 815 CALL MPI_BARRIER ( MPI_COMM, IERR_MPI ) 816 CALL WMWAVE ( TEND ) 817 ! 818 DTTST = DSEC21 ( TNEXT , ETIME ) 819 IF ( DTTST .LE. 0 ) EXIT 820 ! 821 END DO 822 ! 823 DEALLOCATE ( TEND ) Page 6 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 824 ! 825 !/ ------------------------------------------------------------------- / 826 ! 4. Finalize the wave model 827 ! 828 CALL WMFINL 829 ! 830 !/ ------------------------------------------------------------------- / 831 ! 5 Finalize the driver 832 ! 833 IF ( IMPROC .EQ. NMPSCR ) WRITE (*,999) 834 ! 835 CALL MPI_BARRIER ( MPI_COMM, IERR_MPI ) 836 CALL MPI_FINALIZE ( IERR_MPI ) 837 ! 838 GO TO 888 839 ! 840 820 CONTINUE 841 WRITE (MDSS,1020) IERR 842 CALL EXTCDE ( 20 ) 843 ! 844 825 CONTINUE 845 WRITE (MDSS,1025) NDST2 846 CALL EXTCDE ( 25 ) 847 ! 848 888 CONTINUE 849 ! 850 ! Formats 851 ! 852 900 FORMAT (/15X,' *** WAVEWATCH III Multi-grid shell *** '/ & 853 15X,'================================================='/& 854 15X,' side-by-side version'/) 855 ! 856 920 FORMAT ( ' WIND DATA FILE USED IS wind.',A) 857 930 FORMAT (/' WIND DATA FOUND AT TIME : ',I8.8,1X,I6.6) 858 931 FORMAT (' ') 859 ! 860 999 FORMAT (//' End of program '/ & 861 ' ========================================'/ & 862 ' WAVEWATCH III Multi-grid shell '/) 863 ! 864 1020 FORMAT (/' *** WAVEWATCH-III ERROR IN W3SBS1 : '/ & 865 ' ERROR IN OPENING TIMES FILE'/ & 866 ' IOSTAT =',I5/) 867 ! 868 1025 FORMAT (/' *** WAVEWATCH-III ERROR IN W3SBS1 : '/ & 869 ' WIND FILE NOT FOUND, NDST2 = ',I8/) 870 ! 871 !/ 872 !/ Internal subroutines RDTIME and RDWIND ---------------------------- / 873 !/ 874 CONTAINS 875 !/ ------------------------------------------------------------------- / 876 SUBROUTINE RDTIME ( NDS, TIME ) 877 !/ 878 !/ +-----------------------------------+ 879 !/ | WAVEWATCH-III NOAA/NCEP | 880 !/ | H. L. Tolman | Page 7 Source Listing RDTIME 2014-09-16 16:49 multiwavefcst_sbs.f90 881 !/ | FORTRAN 90 | 882 !/ | Last update : 05-Dec-2012 ! 883 !/ +-----------------------------------+ 884 !/ 885 !/ 10-Aug-2010 : Origination. ( version 3.14.4 ) 886 !/ 05-Dec-2012 : Making sleep a system call. ( version 4.11 ) 887 !/ 888 ! 1. Purpose : 889 ! 890 ! Internal subroutine to get next time in time file, including 891 ! waiting until the file is there. 892 ! 893 ! 3. Parameters : 894 ! 895 ! Parameter list 896 ! ---------------------------------------------------------------- 897 ! NDS Int. I Unit number for times file. 898 ! TIME I.A. O Next time in times file. 899 ! ---------------------------------------------------------------- 900 ! 901 ! 10. Source code : 902 ! 903 !/ ------------------------------------------------------------------- / 904 !/ Parameter list 905 !/ 906 INTEGER, INTENT(IN) :: NDS 907 INTEGER, INTENT(OUT) :: TIME(2) 908 !/ 909 !/ ------------------------------------------------------------------- / 910 !/ Local parameters 911 !/ 912 INTEGER :: SLEEP_COUNT = 0 913 CHARACTER(LEN=10) :: COMMAND 914 !/ 915 ! -------------------------------------------------------------------- / 916 ! 1. Reading loop 917 ! 918 DO 919 ! 920 READ (NDS,910,END=110,ERR=810,IOSTAT=IERR) TIME 921 EXIT 922 ! 923 110 CONTINUE 924 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS, 911 ) 925 BACKSPACE NDS 926 ! 927 WRITE (COMMAND,'(A5,1X,I4)') 'sleep', SLEEP1 928 CALL SYSTEM ( COMMAND ) 929 ! 930 SLEEP_COUNT = SLEEP_COUNT + 1 931 IF ( SLEEP_COUNT .GT. SLEEP_MAX ) GOTO 820 932 ! 933 END DO 934 ! 935 RETURN 936 ! 937 ! Escape locations read errors --------------------------------------- * Page 8 Source Listing RDTIME 2014-09-16 16:49 multiwavefcst_sbs.f90 938 ! 939 810 CONTINUE 940 WRITE (MDSS,1010) IERR 941 CALL EXTCDE ( 10 ) 942 820 CONTINUE 943 WRITE (MDSS,1020) SLEEP_MAX*SLEEP1 944 CALL EXTCDE ( 20 ) 945 ! 946 ! Formats 947 ! 948 910 FORMAT (1X,I8,1X,I6) 949 ! 950 911 FORMAT (/' END OF TIMES FILE REACHED FOR WIND DATA '/ & 951 ' WAITING BEFORE CHECKING AGAIN') 952 ! 953 1010 FORMAT (/' *** WAVEWATCH-III ERROR IN W3SBS1/RDTIME : '/ & 954 ' ERROR IN OPENING TIMES FILE'/ & 955 ' IOSTAT =',I5/) 956 ! 957 1020 FORMAT (/' *** TIME INFO FILE NOT UPDATED FOR ',I8,' SECS '/ & 958 ' STOPPING PROGRAM'/) 959 !/ 960 !/ End of RDTIME ----------------------------------------------------- / 961 !/ 962 END SUBROUTINE RDTIME ENTRY POINTS Name w3sbs1_IP_rdtime_ Page 9 Source Listing RDTIME 2014-09-16 16:49 Symbol Table multiwavefcst_sbs.f90 SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1010 Label 415 402 1020 Label 419 405 110 Label 385 382 810 Label 401 382 820 Label 404 393 910 Label 410 382 911 Label 412 386 COMMAND Local 375 CHAR 10 scalar 389,390 EXTCDE Subr 403 135,304,308,403,406,548 IERR Local 382 I(4) 4 scalar 210,303,382,402 IMPROC Local 386 I(4) 4 scalar 144,175,176,180,216,234,243,245,26 3,265,295,386,507,519,532 MDSS Local 386 I(4) 4 scalar 144,216,234,243,245,263,265,303,30 7,386,402,405,507,519,532,547 NDS Dummy 338 I(4) 4 scalar ARG,IN 382,387 NMPSCR Local 386 I(4) 4 scalar 144,180,216,234,243,245,263,265,29 5,386,507,519,532 RDTIME Subr 338 233,240,262 SLEEP1 Param 389 I(4) 4 scalar 389,405 SLEEP_COUNT Local 374 I(4) 4 scalar 374,392,393 SLEEP_MAX Param 393 I(4) 4 scalar 393,405 SYSTEM Subr 390 390 TIME Dummy 338 I(4) 4 1 2 ARG,OUT 382 Page 10 Source Listing RDTIME 2014-09-16 16:49 multiwavefcst_sbs.f90 963 !/ ------------------------------------------------------------------- / 964 SUBROUTINE RDWIND ( NDS, TIME, NX, NY, REWIND ) 965 !/ 966 !/ +-----------------------------------+ 967 !/ | WAVEWATCH-III NOAA/NCEP | 968 !/ | H. L. Tolman | 969 !/ | FORTRAN 90 | 970 !/ | Last update : 05-Dec-2012 ! 971 !/ +-----------------------------------+ 972 !/ 973 !/ 10-Aug-2010 : Origination. ( version 3.14.4 ) 974 !/ 05-Dec-2012 : Making sleep a system call. ( version 4.11 ) 975 !/ 976 ! 1. Purpose : 977 ! 978 ! Internal subroutine to test readnext wind fields from the data 979 ! file, including testing to see if file was read properly. 980 ! 981 ! 3. Parameters : 982 ! 983 ! Parameter list 984 ! ---------------------------------------------------------------- 985 ! NDS Int. I Unit number for times file. 986 ! TIME I.A. I Next time in times file. 987 ! NX,NY Int. I Grid size. 988 ! REWIND Log. I Flag for wind file rewind. 989 ! ---------------------------------------------------------------- 990 ! 991 ! 10. Source code : 992 ! 993 !/ ------------------------------------------------------------------- / 994 !/ Parameter list 995 !/ 996 INTEGER, INTENT(IN) :: NDS, TIME(2), NX, NY 997 LOGICAL, INTENT(IN) :: REWIND 998 !/ 999 !/ ------------------------------------------------------------------- / 1000 !/ Local parameters 1001 !/ 1002 INTEGER :: TTIME(2), IX, IY 1003 INTEGER, SAVE :: NREW = 0 1004 REAL :: DTTST, XXX(NX,NY) 1005 CHARACTER(LEN=10) :: COMMAND 1006 ! 1007 ! -------------------------------------------------------------------- / 1008 ! 1. Loops 1009 ! 1010 DO 1011 ! 1012 ! ... Inner loop reading 1013 ! 1014 DO 1015 ! 1016 NREW = NREW + 1 1017 READ (NDS,END=140,ERR=140) TTIME 1018 ! 1019 NREW = NREW + 1 Page 11 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 1020 READ (NDS,END=130,ERR=130) ((XXX(IX,IY),IX=1,NX),IY=1,NY) 1021 ! 1022 NREW = NREW + 1 1023 READ (NDS,END=120,ERR=120) ((XXX(IX,IY),IX=1,NX),IY=1,NY) 1024 ! 1025 IF ( TYPE .EQ. 'WNS' ) THEN 1026 NREW = NREW + 1 1027 READ (NDS,END=110,ERR=110) ((XXX(IX,IY),IX=1,NX),IY=1,NY) 1028 END IF 1029 ! 1030 EXIT 1031 ! 1032 110 CONTINUE 1033 BACKSPACE NDS 1034 NREW = NREW - 1 1035 120 CONTINUE 1036 BACKSPACE NDS 1037 NREW = NREW - 1 1038 130 CONTINUE 1039 BACKSPACE NDS 1040 NREW = NREW - 1 1041 140 CONTINUE 1042 BACKSPACE NDS 1043 NREW = NREW - 1 1044 ! 1045 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,900) 1046 ! 1047 WRITE (COMMAND,'(A5,1X,I4)') 'sleep', SLEEP2 1048 CALL SYSTEM ( COMMAND ) 1049 ! 1050 END DO 1051 ! 1052 ! ... Outer loop catching up 1053 ! 1054 DTTST = DSEC21 ( TIME , TTIME ) 1055 ! 1056 IF ( DTTST .LT. 0. ) THEN 1057 IF ( IMPROC .EQ. NMPSCR ) WRITE (MDSS,901) TTIME 1058 ELSE IF ( DTTST .EQ. 0. ) THEN 1059 EXIT 1060 ELSE 1061 GOTO 800 1062 END IF 1063 ! 1064 END DO 1065 ! 1066 ! ... Rewind all 1067 ! 1068 IF ( REWIND ) THEN 1069 ! 1070 IF ( IMPROC.EQ.NMPSCR .AND. NREW.GT.4 ) WRITE (MDSS,902) NREW 1071 ! 1072 DO I=1, NREW 1073 BACKSPACE NDS 1074 END DO 1075 ! 1076 NREW = 0 Page 12 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 1077 ! 1078 END IF 1079 ! 1080 RETURN 1081 ! 1082 ! Escape locations read errors --------------------------------------- * 1083 ! 1084 800 CONTINUE 1085 WRITE (MDSS,1010) 1086 CALL EXTCDE ( 10 ) 1087 ! 1088 ! Formats 1089 ! 1090 900 FORMAT (' FILE NOT YET COMPLETE ... ') 1091 901 FORMAT (' SKIPPING FILE FOR ',I8.8,I7.6) 1092 902 FORMAT (' REWINDING FILE BY ',I4,' RECORDS') 1093 ! 1094 1010 FORMAT (/' *** WAVEWATCH-III ERROR IN W3SBS1/RDWIND : '/ & 1095 ' FILE READ PAST EXPECTED TIME '/) 1096 ! 1097 !/ 1098 !/ End of RDWIND ----------------------------------------------------- / 1099 !/ 1100 END SUBROUTINE RDWIND ENTRY POINTS Name w3sbs1_IP_rdwind_ Page 13 Source Listing RDWIND 2014-09-16 16:49 Symbol Table multiwavefcst_sbs.f90 SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1010 Label 556 547 110 Label 494 489 120 Label 497 485 130 Label 500 482 140 Label 503 479 800 Label 546 523 900 Label 552 507 901 Label 553 519 902 Label 554 532 COMMAND Local 467 CHAR 10 scalar 509,510 DSEC21 Func 516 R(4) 4 scalar 241,267,280,516 DTTST Local 466 R(4) 4 scalar 516,518,520 I Local 534 I(4) 4 scalar 212,213,214,219,273,274,534 IX Local 464 I(4) 4 scalar 482,485,489 IY Local 464 I(4) 4 scalar 482,485,489 NDS Dummy 426 I(4) 4 scalar ARG,IN 479,482,485,489,495,498,501,504,53 5 NREW Local 465 I(4) 4 scalar 465,478,481,484,488,496,499,502,50 5,532,534,538 NX Dummy 426 I(4) 4 scalar ARG,IN 466,482,485,489 NY Dummy 426 I(4) 4 scalar ARG,IN 466,482,485,489 RDWIND Subr 426 256,264 REWIND Dummy 426 L(4) 4 scalar ARG,IN 530 SLEEP2 Param 509 I(4) 4 scalar 509 SYSTEM Subr 510 510 TIME Dummy 426 I(4) 4 1 2 ARG,IN 516 TTIME Local 464 I(4) 4 1 2 479,516,519 TYPE Local 487 CHAR 3 scalar 162,487 XXX Local 466 R(4) 4 2 0 482,485,489 Page 14 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 1101 !/ 1102 !/ End of W3SBS1 ----------------------------------------------------- / 1103 !/ 1104 END PROGRAM W3SBS1 ENTRY POINTS Name MAIN__ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1020 Label 326 303 1025 Label 330 307 820 Label 302 210 825 Label 306 224,225 888 Label 310 300 900 Label 314 180 920 Label 318 216 930 Label 319 234,243,245,263 931 Label 320 265 999 Label 322 295 DTTST Local 161 R(4) 4 scalar 241,242,244,267,268,270,280,281 ETIME Local 145 I(4) 4 1 2 145,267,269,280 FILEXT Local 137 CHAR 10 scalar PTR 137,216 FLWIND Local 139 L(4) 4 scalar PTR 139,215 GNAME Local 137 CHAR 30 scalar PTR 137 IERR_MPI Local 157 I(4) 4 scalar 172,174,175,277,297,298 MDSE Local 144 I(4) 4 scalar 144,206,207,213,214 MDSF Local 140 I(4) 4 2 1 ALC 140,219 MDST Local 144 I(4) 4 scalar 144,206,207,213,214 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 277 277,297 MPI_BOR Param 221 I(4) 4 scalar 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 Page 15 Source Listing RDWIND 2014-09-16 16:49 Symbol Table multiwavefcst_sbs.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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 Local 154 I(4) 4 scalar 154,173,174,175,201,277,297 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_RANK Subr 175 175 MPI_COMM_SELF Param 235 I(4) 4 scalar MPI_COMM_SIZE Subr 174 174 MPI_COMM_WORLD Param 233 I(4) 4 scalar 173 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 MPI_ERRORS_ARE_FATAL Param 195 I(4) 4 scalar Page 16 Source Listing RDWIND 2014-09-16 16:49 Symbol Table multiwavefcst_sbs.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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 MPI_ERR_UNSUPPORTED_OPERAT Page 17 Source Listing RDWIND 2014-09-16 16:49 Symbol Table multiwavefcst_sbs.f90 Name Object Declared Type Bytes Dimen Elements Attributes References 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_FINALIZE Subr 298 298 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_INIT Subr 172 172 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 Page 18 Source Listing RDWIND 2014-09-16 16:49 Symbol Table multiwavefcst_sbs.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_MODE_NOSTORE Param 463 I(4) 4 scalar 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 Page 19 Source Listing RDWIND 2014-09-16 16:49 Symbol Table multiwavefcst_sbs.f90 Name Object Declared Type Bytes Dimen Elements Attributes References MPI_UNSIGNED_CHAR Param 379 I(4) 4 scalar 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 NAUXGR Local 137 I(4) 4 scalar 137,212 NDST1 Local 154 I(4) 4 scalar 206,207,210,233,240,248,262 NDST2 Local 154 I(4) 4 scalar 154,219,225,256,264,307 NGRIDS Local 137 I(4) 4 scalar 137 NMPROC Local 144 I(4) 4 scalar 144,174 NRGRD Local 145 I(4) 4 scalar 145,231,273 NX Local 137 I(4) 4 scalar PTR 137,217 NXW Local 155 I(4) 4 scalar 155,217,224,256,264 NY Local 137 I(4) 4 scalar PTR 137,218 NYW Local 155 I(4) 4 scalar 155,218,256,264 PMPI_WTICK Func 520 R(8) 8 scalar PMPI_WTIME Func 520 R(8) 8 scalar STIME Local 145 I(4) 4 1 2 145,241 TEND Local 160 I(4) 4 2 1 ALC 231,274,278,285 TNEXT Local 155 I(4) 4 1 2 233,234,239,240,241,243,245,249,25 6,262,263,264,267,269,274,280 TOLD Local 155 I(4) 4 1 2 239,249 TSFLD Local 162 CHAR 3 scalar TSSTR Local 164 CHAR 13 scalar W3GDATMD Module 136 136,137 W3IDATMD Module 138 138,139 W3SBS1 Prog 1 W3SERVMD Module 135 135 W3SETG Subr 136 136,213 W3SETI Subr 138 138,214 W3TIMEMD Module 142 142 WMFINL Subr 134 134,290 WMFINLMD Module 134 134 WMINIT Subr 132 132,201 WMINITMD Module 132 132 WMMDATMD Module 140 140,144 WMUGET Subr 141 141,206 WMUNITMD Module 141 141 WMUSET Subr 141 141,207 WMWAVE Subr 133 133,278 WMWAVEMD Module 133 133 Page 20 Source Listing RDWIND 2014-09-16 16:49 Subprograms/Common Blocks multiwavefcst_sbs.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 RDTIME Subr 338 233,240,262 RDWIND Subr 426 256,264 W3SBS1 Prog 1 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 Page 21 Source Listing RDWIND 2014-09-16 16:49 multiwavefcst_sbs.f90 no -f66 no -f77rtl 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 : multiwavefcst_sbs.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100