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