1 2 SUBROUTINE GDSEAS 3 !*********************************************************************** 4 ! GDSEAS Module of ISC3 Model 5 ! 6 ! PURPOSE: Define Seasons for Gas Dry Deposition (per Wesely) 7 ! 8 ! PROGRAMMER: R. W. Brode, PES, Inc. 9 ! 10 ! DATE: May 18, 2001 11 ! 12 ! INPUTS: Input Runstream Image Parameters 13 ! 14 ! OUTPUTS: Dry Deposition Reference Parameters for Gases 15 ! 16 ! CALLED FROM: COCARD 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 INTEGER I , J , ISEA_NDX 24 25 SAVE 26 27 ! Variable Initializations 28 MODNAM = 'GDSEAS' ! 0 29 30 ! Check the Number of Fields 31 IF ( IFC.LE.2 ) THEN 32 ! Error Message: No Parameters 33 CALL ERRHDL(PATH,MODNAM,'E','200',KEYWRD) ! 0 34 GOTO 999 35 ELSEIF ( IFC.LT.3 ) THEN 36 ! Error Message: Not Enough Parameters 37 CALL ERRHDL(PATH,MODNAM,'E','201',KEYWRD) ! 0 38 GOTO 999 39 ELSEIF ( IFC.GT.14 ) THEN 40 ! Error Message: Too Many Parameters 41 CALL ERRHDL(PATH,MODNAM,'E','202',KEYWRD) ! 0 42 GOTO 999 43 ENDIF 44 45 ISET = 0 ! 0 46 DO I = 3 , IFC 47 ! Change Fields To Numbers 48 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 49 ! Check The Numerical Field 50 IF ( IMIT.EQ.-1 ) THEN 51 CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) ! 0 52 GOTO 100 53 ENDIF 54 DO J = 1 , IMIT ! 0 55 ISET = ISET + 1 ! 0 56 ! Assign The Field 57 IF ( ISET.LE.12 ) THEN 58 ISEA_NDX = NINT(FNUM) ! 0 59 IF ( ISEA_NDX.GE.1 .AND. ISEA_NDX.LE.5 ) THEN 60 ISEAS_GD(ISET) = ISEA_NDX ! 0 61 ELSE 62 ! WRITE Error Message ! Season Index out-of-range 63 CALL ERRHDL(PATH,MODNAM,'E','380',KEYWRD) ! 0 64 ENDIF 65 ELSE 66 ! WRITE Error Message ! Too Many Months Input 67 CALL ERRHDL(PATH,MODNAM,'E','234',KEYWRD) ! 0 68 ENDIF 69 ENDDO 70 100 ENDDO 71 72 LDGAS = .TRUE. ! 0 73 74 999 CONTINUE ! 0 75 END
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use