      BLOCK DATA BD12 
C 
C  BLOCK DATA Subprogram 12: /SAVE01/,/SAVE04/,/SAVE05/, 
C                            /SAVE06/,/SAVE07/,/SAVE08/,/SAVE09/ 
C 
C  BLOCK DATA 12 defines the save areas and initializes flag JCALL. 
C 
C  Changes : 
C 
C  14-DEC-01 @EPA-bag        REMOVED SAVE02.I, SAVE03.1 and associated variables 
C  21-NOV-00 @EPA-bag bug301 added SAVE06.I, SAVE07.I, SAVE08.I, and SAVE09.I for 
C            run and scenario level user input 
C 
C  Common block dictionary: 
C 
C   Name   Type               Description 
C  ------  ----  -------------------------------------------- 
C  /SAVE01/: 
C 
C  JCALL    I    MOBILE flag used to control direction of storing loops: 
C                1 = copy default values of input data areas into save areas 
C                2 = copy save area values back into corresponding data areas 
C 
C 
C  /SAVE04/: 
C 
C  VA007    R    /MYRSAV/ AMAR 
C  VA008    R    /MYRSAV/ JULMYR 
C 
C  /SAVE05/: 
C 
C  VA009    R    /TAMEQ1/ TAMZML 
C  VA010    R             TAMDR 
C 
C  /SAVE06/: 
C 
C  VA011    R    /VMXCOM/ VMTMIX 
C  VA012    R    /ETPPAR/ ETP 
C  IVA013   I    /ETPPAR/ IETPYR 
C  VA014    R    /ETPPAR/ ETPPIV 
C 
C  /SAVE07/: 
C 
C  VA015    R    /BASEQ9/ LEVIMP 
C  VA016    R    /TIER2/  T2_BIN_FRAC 
C  VA016A   R    /TIER2/  T2_EVAP 
C  VA017    R    /TIER2/  TIER2_50K 
C 
C  /SAVE08/: 
C 
C  VA018    R    /HDCCOM/ HDCFAC 
C  VA019    R    /STDIST/ STARTSPERDAY 
C  VA020    R    /STDIST/ STARTDIST 
C  VA021    R    /SKDIST/ SOAKDIST 
C 
C  /SAVE09/: 
C 
C  STVMT    R    /SPEED9/ TVMT 
C  SHVMT    R    /SPEED9/ HVMT 
C  SFVMT    R    /SPEED9/ FVMT 
C  SSVMT    R    /SPEED9/ SVMT 
C  SLOCAL   R    /SPEED9/ LOCAL 
C  SRAMP    R    /SPEED9/ RAMP 
C  SOCECO   R    /SPEED9/ OCECO 
C  SOCY     R    /SPEED9/ OCY 
C  SOCX     R    /SPEED9/ OCX 
C  SLEVEL   R    /SPEED9/ LEVEL 
C  SEMSCF   R    /SPEED9/ EMSCF 
C 
C 
C  Notes: 
C 
C  BD 12 was added for Version 01's conversion of MOBILE4 to a subroutine. 
C 
C  JCALL is used to initialize the save areas on the first call to MOBILE and 
C  restore the default values to the input data areas at the outset of every 
C  call thereafter. 
C 
C 
      IMPLICIT NONE 
      INCLUDE 'SAVE01.I' 
      INCLUDE 'SAVE04.I' 
      INCLUDE 'SAVE05.I' 
      INCLUDE 'SAVE06.I' 
      INCLUDE 'SAVE07.I' 
      INCLUDE 'SAVE08.I' 
      INCLUDE 'SAVE09.I' 
C 
      DATA JCALL/1/ 
C 
      END 
