
  :  A   k820309              16.0        ¬ëöU                                                                                                           
       diag51b_mod.F DIAG51B_MOD              CLEANUP_DIAG51B DIAG51B INIT_DIAG51B DO_SAVE_DIAG51B            @ @@                                  P                  @                                             #         @                                                        #         @                                                        #         @                                                       #DO_ND51    #N_ND51    #TRACERS    #HR_WRITE 	   #HR1 
   #HR2    #IMIN    #IMAX    #JMIN    #JMAX    #LMIN    #LMAX    #FILE                                                                                                                                                                                      
                                                       
                                                       
                                       d                  p          p d           p d                                   
                                 	     
                
                                 
     
                
                                      
                
                                                       
                                                       
                                                       
                                                       
                                                       
                                                       
  @                                   ÿ                      #         @     @                                                                                                                                                                                                                                                                                                                                                  #         @     @                                                                                                                                                                                                                                       %         @    @                                                      #TAU_W              D                                     
       #         @     @                                                #TAU_W                                                                                                                                                                                                                 
                                      
                 @  @                                                     @  @                                                    @  @                                                    @  @                                                     @  @                                                     @  @                                                    @  @                                  y                    p          p y           p y                                    @  @                                                      @  @                              !                       @  @                              "                       @  @                              #                       @ @@                              $                       @  @                              %                          @                             &                       @ @@                             '                       @ @@                             (                       @  @                             )                       @ @@                              *                          @                              +                                                      1           @ @@                             ,     	                  @ @@                             -     	                  @ @@                             .     
                  @ @@                             /     
                  @  @                             0     
                  @  @                             1     
                  @ @@                             2     
                  @ @@                             3                        @@                             4     (                  @  @                             5     ÿ                @ @@                             6                                   &                                                    @ @@                             7                                   &                                                    @ @@                             8                                   &                                                    @ @@                             9                                   &                                                    @ @@                             :                                   &                   &                   &                                                    @ @@                             ;                                   &                                                    @ @@                             <                                   &                                                    @ @@                            =                   
                &                   &                   &                   &                                           %         @    @                           >                           #X ?                                                                                                                                    
                                  ?                  "      fn#fn !   Â   E   b   uapp(DIAG51B_MOD      @       TITLE     G  @       DO_SAVE_DIAG51B     ‡  H       CLEANUP_DIAG51B    Ï  H       DIAG51B      |      INIT_DIAG51B %   “  @   a   INIT_DIAG51B%DO_ND51 $   Ó  @   a   INIT_DIAG51B%N_ND51 %     ”   a   INIT_DIAG51B%TRACERS &   §  @   a   INIT_DIAG51B%HR_WRITE !   ç  @   a   INIT_DIAG51B%HR1 !   '  @   a   INIT_DIAG51B%HR2 "   g  @   a   INIT_DIAG51B%IMIN "   §  @   a   INIT_DIAG51B%IMAX "   ç  @   a   INIT_DIAG51B%JMIN "   '  @   a   INIT_DIAG51B%JMAX "   g  @   a   INIT_DIAG51B%LMIN "   §  @   a   INIT_DIAG51B%LMAX "   ç  P   a   INIT_DIAG51B%FILE "   7  i      ACCUMULATE_DIAG51       þ       GET_LOCAL_TIME *   ž	  [       ITS_TIME_FOR_WRITE_DIAG51 0   ù	  @   a   ITS_TIME_FOR_WRITE_DIAG51%TAU_W    9
        WRITE_DIAG51 #   O  @   a   WRITE_DIAG51%TAU_W    �  @       IOFF    Ï  @       JOFF      @       LOFF    O  @       I0    �  @       J0    Ï  @       ND51_N_TRACERS      ”       ND51_TRACERS    £  @       ND51_IMIN    ã  @       ND51_IMAX    #  @       ND51_JMIN    c  @       ND51_JMAX    £  @       ND51_LMIN    ã  @       ND51_LMAX    #  @       ND51_FREQ    c  @       ND51_NI    £  @       ND51_NJ    ã  @       ND51_NL    #  @       HALFPOLAR    c  q       CENTER180    Ô  @       LONRES      @       LATRES    T  @       TAU0    ”  @       TAU1    Ô  @       ND51_HR1      @       ND51_HR2    T  @       ND51_HR_WRITE    ”  @       MODELNAME    Ô  @       RESERVED !     @       ND51_OUTPUT_FILE    T  Œ       GOOD    à  Œ       GOOD_CT    l  Œ       GOOD_CHEM    ø  Œ       GOOD_CT_CHEM    „  ¼       COUNT_CHEM3D    @  Œ       GOOD_EMIS    Ì  Œ       GOOD_CT_EMIS    X  Ô       Q    ,  Î       GET_I    ú  @   a   GET_I%X 