
  Ü  8   k820309              16.0        TėöU                                                                                                           
       bpch2_mod.F BPCH2_MOD              OPEN_BPCH2_FOR_READ OPEN_BPCH2_FOR_WRITE BPCH2_HDR BPCH2 READ_BPCH2 GET_MODELNAME GET_NAME_EXT GET_NAME_EXT_2D GET_RES_EXT GET_HALFPOLAR gen@GET_TAU0                                                        u #GET_TAU0_6A    #         @                                                      #IUNIT    #FILENAME    #TITLE              
  @                                                    
  @                                                  1           F @                                   P                       #         @                                                       #IUNIT    #FILENAME    #TITLE 	             
  @                                                    
  @                                                  1            @                              	     P                       #         @                                  
                    #IUNIT    #TITLE              
  @                                                    
                                      P                      #         @                                                       #IUNIT    #MODELNAME    #LONRES    #LATRES    #HALFPOLAR    #CENTER180    #CATEGORY    #NTRACER    #UNIT    #TAU0    #TAU1    #RESERVED    #NI    #NJ    #NL    #IFIRST    #JFIRST    #LFIRST    #ARRAY               
  @                                                    
                                                                      
                                      	                
                                      	                
                                                       
                                                       
                                      (                                
                                                       
                                      (                                
                                      
                
                                      
                
                                      (                                
                                                       
                                                       
                                                       
                                                       
                                                       
                                                      
                                                      	        p        5  p        r    p        5  p        r    p          5  p        r      5  p        r      5  p        r        5  p        r      5  p        r      5  p        r                      #         @                                   !                 	   #FILENAME "   #CATEGORY_IN #   #TRACER_IN $   #TAU0_IN %   #IX &   #JX '   #LX (   #ARRAY )   #QUIET *                                     
  @                              "                    1           
  @                              #                    1           
                                  $                     
                                 %     
                
                                  &                     
                                  '                     
                                  (                    D                                )                    	         p        5  p        r '   p        5  p        r &   p          5  p        r &     5  p        r '     5  p        r (       5  p        r &     5  p        r '     5  p        r (                               
 @                               *           $         @                                 +                                    $         @                                ,                                    $         @                                 -                                    $         @                                 .                                    %         @                                 /                            %         @    @X                                                
       #MONTH 0   #DAY 1   #YEAR 2   #HOUR 3   #MIN 4   #SEC 5             
  @                               0                     
  @                               1                     
  @                               2                     
 @                               3                     
 @                               4                     
 @                               5                        fn#fn    ¾   ¦   b   uapp(BPCH2_MOD    d  Q       gen@GET_TAU0 $   µ  l       OPEN_BPCH2_FOR_READ *   !  @   a   OPEN_BPCH2_FOR_READ%IUNIT -   a  L   a   OPEN_BPCH2_FOR_READ%FILENAME *   ­  P   a   OPEN_BPCH2_FOR_READ%TITLE %   ż  l       OPEN_BPCH2_FOR_WRITE +   i  @   a   OPEN_BPCH2_FOR_WRITE%IUNIT .   ©  L   a   OPEN_BPCH2_FOR_WRITE%FILENAME +   õ  P   a   OPEN_BPCH2_FOR_WRITE%TITLE    E  ^       BPCH2_HDR     £  @   a   BPCH2_HDR%IUNIT     ć  P   a   BPCH2_HDR%TITLE    3  &      BPCH2    Y  @   a   BPCH2%IUNIT       P   a   BPCH2%MODELNAME    é  @   a   BPCH2%LONRES    )  @   a   BPCH2%LATRES     i  @   a   BPCH2%HALFPOLAR     ©  @   a   BPCH2%CENTER180    é  P   a   BPCH2%CATEGORY    9  @   a   BPCH2%NTRACER    y  P   a   BPCH2%UNIT    É  @   a   BPCH2%TAU0    		  @   a   BPCH2%TAU1    I	  P   a   BPCH2%RESERVED    	  @   a   BPCH2%NI    Ł	  @   a   BPCH2%NJ    
  @   a   BPCH2%NL    Y
  @   a   BPCH2%IFIRST    
  @   a   BPCH2%JFIRST    Ł
  @   a   BPCH2%LFIRST        a   BPCH2%ARRAY    ­  É       READ_BPCH2 $   v  L   a   READ_BPCH2%FILENAME '   Ā  L   a   READ_BPCH2%CATEGORY_IN %     @   a   READ_BPCH2%TRACER_IN #   N  @   a   READ_BPCH2%TAU0_IN      @   a   READ_BPCH2%IX    Ī  @   a   READ_BPCH2%JX      @   a   READ_BPCH2%LX !   N    a   READ_BPCH2%ARRAY !   ā  @   a   READ_BPCH2%QUIET    "  X       GET_MODELNAME    z  X       GET_NAME_EXT     Ņ  X       GET_NAME_EXT_2D    *  X       GET_RES_EXT      P       GET_HALFPOLAR    Ņ         GET_TAU0_6A "   \  @   a   GET_TAU0_6A%MONTH       @   a   GET_TAU0_6A%DAY !   Ü  @   a   GET_TAU0_6A%YEAR !     @   a   GET_TAU0_6A%HOUR     \  @   a   GET_TAU0_6A%MIN       @   a   GET_TAU0_6A%SEC 