1 2 SUBROUTINE PFLINI() 3 !*********************************************************************** 4 ! PFLINI Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Initializes the observed profile arrays to missing 7 ! 8 ! PROGRAMMER: Jim Paumier, PES, Inc. 9 ! 10 ! DATE: September 30, 1993 11 ! 12 ! INPUTS: None 13 ! 14 ! OUTPUTS: Initialized observed profile arrays 15 ! 16 ! ASSUMPTIONS: 17 ! 18 ! CALLED FROM: METEXT 19 !*********************************************************************** 20 ! 21 !---- Variable Declarations 22 ! 23 USE MAIN1 24 IMPLICIT NONE 25 CHARACTER MODNAM*12 26 INTEGER :: I , J 27 28 SAVE 29 30 ! 31 !---- Variable Initializations 32 ! 33 MODNAM = 'PFLINI' ! 4320 34 PATH = 'MX' 35 36 !....................................................................... 37 ! 38 DO I = 1 , MXPLVL 39 IFLAG(I) = 0 ! 216000 40 PFLHT(I) = -99.0 41 PFLWS(I) = -99.0 42 PFLWD(I) = -99.0 43 PFLTA(I) = -99.0 44 PFLSA(I) = -99.0 45 PFLSW(I) = -99.0 46 PFLSV(I) = -99.0 47 PFLTG(I) = -99.0 48 PFLTGZ(I) = -99.0 49 ENDDO 50 51 CONTINUE ! 4320 52 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