	  d$  6   k820309    Y
          11.1        ›³ÌQ                                                                                                           
       tpcore_geos5_window_mod.F90 TPCORE_GEOS5_WINDOW_MOD              TPCORE_GEOS5_WINDOW INIT_GEOS5_WINDOW EXIT_GEOS5_TPCORE_WINDOW #         @                                                     #TPCORE_GEOS5_WINDOW%MIN    #TPCORE_GEOS5_WINDOW%MAX    #DT    #AE    #IM    #JM    #KM    #JFIRST 	   #JLAST 
   #NG    #MG    #NQ    #AK    #BK    #U    #V    #PS1    #PS2    #PS    #Q    #IORD    #JORD    #KORD    #N_ADJ    #XMASS    #YMASS    #MASSFLEW    #MASSFLNS    #MASSFLUP    #AREA_M2    #TCVV     #ND24 !   #ND25 "   #ND26 #                 @                                 MIN               @                                 MAX           
  @@                                  
                
  @@                                   
                
@ @@                                                  
@ @@                                                  
@ @@                                                  
@ @@                             	                     
@ @@                             
                     
@ @@                                                  
  @@                                                  
@ @@                                                 
  @@                                                  
    p           5 “ p        r    n                                       1     5 “ p        r    n                                      1                                    
  @@                                                  
    p           5 “ p        r    n                                       1     5 “ p        r    n                                      1                                    
  @@  �                                                
        p          5 “ p        r 
   5 “ p        r 	   p        5 “ p        r 	   5 “ p        r    p          5 “ p        r      & 5 “ p        r 	   5 “ p        r 
     5 “ p        r        5 “ p        r        5 “ p        r 
   5 “ p        r 	   p          5 “ p        r                               
 @@  �                                                
         p           5 “ p        r 
   5 “ p 	       r     5 “ p        r 	   5 “ p 	       r    p         5 “ p        r 	   5 “ p 	       r    5 “ p        r    p          5 “ p        r      &  5 “ p        r 	   5 “ p 	       r     5 “ p        r 
   5 “ p 	       r      5 “ p        r        5 “ p        r         5 “ p        r 
   5 “ p 	       r     5 “ p        r 	   5 “ p 	       r    p          5 “ p        r                               
   @  �                                                
      5 “ p        r 	   5 “ p        r    p          5 “ p        r      & 5 “ p        r 	   5 “ p        r 
       5 “ p        r        5 “ p        r 
   5 “ p        r 	   p                                   
   @  �                                                
      5 “ p        r 	   5 “ p        r    p          5 “ p        r      & 5 “ p        r 	   5 “ p        r 
       5 “ p        r        5 “ p        r 
   5 “ p        r 	   p                                   D @@  �                                                
       5 “ p        r 	   5 “ p        r    p          5 “ p        r      & 5 “ p        r 	   5 “ p        r 
       5 “ p        r        5 “ p        r 
   5 “ p        r 	   p                                   
D @@  �                                               
           p        5 “ p        r    p           5 “ p        r 
   5 “ p        r     5 “ p        r 	   5 “ p        r    p         5 “ p        r 	   5 “ p        r    5 “ p        r    p          5 “ p        r      &  5 “ p        r 	   5 “ p        r     5 “ p        r 
   5 “ p        r      5 “ p        r      5 “ p 
       r        5 “ p        r         5 “ p        r 
   5 “ p        r     5 “ p        r 	   5 “ p        r    p          5 “ p        r      5 “ p 
       r                                
  @@                                                  
  @@                                                  
@ @@                                                   
  @@                                                  
  @@                                                  
        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                               
  @@                                                  
        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                                
  @                                                
               &                   &                   &                   &                                                     
  @                                                
               &                   &                   &                   &                                                     
D  @                                                
               &                   &                   &                   &                                                    
  @@                                                 
    p          5 “ p        r        5 “ p        r                               
  @@                                                  
    p          5 “ p 
       r        5 “ p 
       r                                
  @@                             !                     
  @@                             "                     
   @                              #           #         @                                  $               
   #INIT_GEOS5_WINDOW%COS %   #INIT_GEOS5_WINDOW%SIN &   #INIT_GEOS5_WINDOW%FLOAT '   #INIT_GEOS5_WINDOW%ATAN (   #IM )   #JM *   #KM +   #JFIRST ,   #JLAST -   #NG .   #MG /   #DT 0   #AE 1   #CLAT 2                 @                            %     COS               @                            &     SIN               @                            '     FLOAT               @                            (     ATAN           
   @                              )                     
   @                              *                     
   @                              +                     D  @                              ,                      D  @                              -                      
   @                              .                     
   @                              /                     
   @                              0     
                
   @                              1     
               
   @  �                            2                    
 
   p           & p          5 “ p        r *   n                                       1       5 “ p        r *   n                                      1p         p                                   #         @                                  3                   #EXIT_GEOS5_TPCORE_WINDOW%ALLOCATED 4                 @                            4     ALLOCATED        <      fn#fn -   Ü   O   b   uapp(TPCORE_GEOS5_WINDOW_MOD $   +  ¶      TPCORE_GEOS5_WINDOW (   á  <      TPCORE_GEOS5_WINDOW%MIN (     <      TPCORE_GEOS5_WINDOW%MAX '   Y  @   a   TPCORE_GEOS5_WINDOW%DT '   ™  @   a   TPCORE_GEOS5_WINDOW%AE '   Ù  @   a   TPCORE_GEOS5_WINDOW%IM '     @   a   TPCORE_GEOS5_WINDOW%JM '   Y  @   a   TPCORE_GEOS5_WINDOW%KM +   ™  @   a   TPCORE_GEOS5_WINDOW%JFIRST *   Ù  @   a   TPCORE_GEOS5_WINDOW%JLAST '     @   a   TPCORE_GEOS5_WINDOW%NG '   Y  @   a   TPCORE_GEOS5_WINDOW%MG '   ™  @   a   TPCORE_GEOS5_WINDOW%NQ '   Ù  &  a   TPCORE_GEOS5_WINDOW%AK '   ÿ  &  a   TPCORE_GEOS5_WINDOW%BK &   %  $  a   TPCORE_GEOS5_WINDOW%U &   I
    a   TPCORE_GEOS5_WINDOW%V (   M  „  a   TPCORE_GEOS5_WINDOW%PS1 (   Ñ  „  a   TPCORE_GEOS5_WINDOW%PS2 '   U  „  a   TPCORE_GEOS5_WINDOW%PS &   Ù  t  a   TPCORE_GEOS5_WINDOW%Q )   M  @   a   TPCORE_GEOS5_WINDOW%IORD )   �  @   a   TPCORE_GEOS5_WINDOW%JORD )   Í  @   a   TPCORE_GEOS5_WINDOW%KORD *     @   a   TPCORE_GEOS5_WINDOW%N_ADJ *   M  ”  a   TPCORE_GEOS5_WINDOW%XMASS *   á  ”  a   TPCORE_GEOS5_WINDOW%YMASS -   u  Ô   a   TPCORE_GEOS5_WINDOW%MASSFLEW -   I  Ô   a   TPCORE_GEOS5_WINDOW%MASSFLNS -     Ô   a   TPCORE_GEOS5_WINDOW%MASSFLUP ,   ñ  ´   a   TPCORE_GEOS5_WINDOW%AREA_M2 )   ¥  ´   a   TPCORE_GEOS5_WINDOW%TCVV )   Y  @   a   TPCORE_GEOS5_WINDOW%ND24 )   ™  @   a   TPCORE_GEOS5_WINDOW%ND25 )   Ù  @   a   TPCORE_GEOS5_WINDOW%ND26 "           INIT_GEOS5_WINDOW &   )  <      INIT_GEOS5_WINDOW%COS &   e  <      INIT_GEOS5_WINDOW%SIN (   ¡  >      INIT_GEOS5_WINDOW%FLOAT '   ß  =      INIT_GEOS5_WINDOW%ATAN %      @   a   INIT_GEOS5_WINDOW%IM %   \   @   a   INIT_GEOS5_WINDOW%JM %   œ   @   a   INIT_GEOS5_WINDOW%KM )   Ü   @   a   INIT_GEOS5_WINDOW%JFIRST (   !  @   a   INIT_GEOS5_WINDOW%JLAST %   \!  @   a   INIT_GEOS5_WINDOW%NG %   œ!  @   a   INIT_GEOS5_WINDOW%MG %   Ü!  @   a   INIT_GEOS5_WINDOW%DT %   "  @   a   INIT_GEOS5_WINDOW%AE '   \"  V  a   INIT_GEOS5_WINDOW%CLAT )   ²#  p       EXIT_GEOS5_TPCORE_WINDOW 3   "$  B      EXIT_GEOS5_TPCORE_WINDOW%ALLOCATED 