	  ¬  @   k820309    Y
          11.1        Ú²ÌQ                                                                                                           
       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    %         @    @X                                               
       #GET_TAU0_6A%DBLE    #GET_TAU0_6A%PRESENT    #MONTH    #DAY    #YEAR    #HOUR    #MIN    #SEC 	                 @                                 DBLE               @                                 PRESENT           
  @@                                                   
  @@                                                   
  @@                                                   
 @@                                                   
 @@                                                   
 @@                              	           #         @                                 
                  #OPEN_BPCH2_FOR_READ%PRESENT    #OPEN_BPCH2_FOR_READ%TRIM    #IUNIT    #FILENAME    #TITLE                  @                                 PRESENT               @                                 TRIM           
  @@                                                   
  @@                                                 1           F @@                                  P                       #         @                                                    #OPEN_BPCH2_FOR_WRITE%PRESENT    #OPEN_BPCH2_FOR_WRITE%TRIM    #IUNIT    #FILENAME    #TITLE                  @                                 PRESENT               @                                 TRIM           
  @@                                                   
  @@                                                 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 (                     #         @                                  -               	   #READ_BPCH2%PRESENT .   #READ_BPCH2%TRIM /   #FILENAME 0   #CATEGORY_IN 1   #TRACER_IN 2   #TAU0_IN 3   #IX 4   #JX 5   #LX 6   #ARRAY 7   #QUIET 8                                         @                            .     PRESENT               @                            /     TRIM           
  @@                             0                    1           
  @@                             1                    1           
   @                              2                     
   @                             3     
                
   @                              4                     
   @                              5                     
   @                              6                    D  @                             7                    	         p        5 “ p        r 5   p        5 “ p        r 4   p          5 “ p        r 4     5 “ p        r 5     5 “ p        r 6       5 “ p        r 4     5 “ p        r 5     5 “ p        r 6                               
 @@                              8           $         @                                 9                                    $         @                                :                                    $         @                                 ;                                    $         @                                 <                                    %         @                                 =                                         fn#fn    ¾   ¦   b   uapp(BPCH2_MOD    d  Q       gen@GET_TAU0    µ  ¹      GET_TAU0_6A !   n  =      GET_TAU0_6A%DBLE $   «  @      GET_TAU0_6A%PRESENT "   ë  @   a   GET_TAU0_6A%MONTH     +  @   a   GET_TAU0_6A%DAY !   k  @   a   GET_TAU0_6A%YEAR !   «  @   a   GET_TAU0_6A%HOUR     ë  @   a   GET_TAU0_6A%MIN     +  @   a   GET_TAU0_6A%SEC $   k  «       OPEN_BPCH2_FOR_READ ,     @      OPEN_BPCH2_FOR_READ%PRESENT )   V  =      OPEN_BPCH2_FOR_READ%TRIM *   “  @   a   OPEN_BPCH2_FOR_READ%IUNIT -   Ó  L   a   OPEN_BPCH2_FOR_READ%FILENAME *     P   a   OPEN_BPCH2_FOR_READ%TITLE %   o  ­       OPEN_BPCH2_FOR_WRITE -     @      OPEN_BPCH2_FOR_WRITE%PRESENT *   \  =      OPEN_BPCH2_FOR_WRITE%TRIM +   ™  @   a   OPEN_BPCH2_FOR_WRITE%IUNIT .   Ù  L   a   OPEN_BPCH2_FOR_WRITE%FILENAME +   %  P   a   OPEN_BPCH2_FOR_WRITE%TITLE    u  ^       BPCH2_HDR     Ó  @   a   BPCH2_HDR%IUNIT     	  P   a   BPCH2_HDR%TITLE    c	  &      BPCH2    ‰
  @   a   BPCH2%IUNIT     É
  P   a   BPCH2%MODELNAME      @   a   BPCH2%LONRES    Y  @   a   BPCH2%LATRES     ™  @   a   BPCH2%HALFPOLAR     Ù  @   a   BPCH2%CENTER180      P   a   BPCH2%CATEGORY    i  @   a   BPCH2%NTRACER    ©  P   a   BPCH2%UNIT    ù  @   a   BPCH2%TAU0    9  @   a   BPCH2%TAU1    y  P   a   BPCH2%RESERVED    É  @   a   BPCH2%NI    	  @   a   BPCH2%NJ    I  @   a   BPCH2%NL    ‰  @   a   BPCH2%IFIRST    É  @   a   BPCH2%JFIRST    	  @   a   BPCH2%LFIRST    I  ”  a   BPCH2%ARRAY    Ý  ö       READ_BPCH2 #   Ó  @      READ_BPCH2%PRESENT       =      READ_BPCH2%TRIM $   P  L   a   READ_BPCH2%FILENAME '   œ  L   a   READ_BPCH2%CATEGORY_IN %   è  @   a   READ_BPCH2%TRACER_IN #   (  @   a   READ_BPCH2%TAU0_IN    h  @   a   READ_BPCH2%IX    ¨  @   a   READ_BPCH2%JX    è  @   a   READ_BPCH2%LX !   (  ”  a   READ_BPCH2%ARRAY !   ¼  @   a   READ_BPCH2%QUIET    ü  X       GET_MODELNAME    T  X       GET_NAME_EXT     ¬  X       GET_NAME_EXT_2D      X       GET_RES_EXT    \  P       GET_HALFPOLAR 