
  7&  >   k820309              16.0        œëöU                                                                                                           
       merra_a1_mod.F MERRA_A1_MOD              GET_MERRA_A1_FIELDS OPEN_MERRA_A1_FIELDS #         @                                                       #NYMD    #NHMS                                                                            
  @                                                    
  @                                          #         @                                                       #NYMD    #NHMS    #RESET                                              
  @                                                    
  @                                                    
 @                                          #         @     @                                                #NFOUND 	   #N_A1 
             
                                  	                     
                                  
           %         @    @                                                      #NYMD    #NHMS    #RESET              
                                                       
                                                       
 @                                          #         @     @                                             ,   #NYMD    #NHMS    #ALBEDO    #CLDTOT    #EFLUX    #EVAP    #FRSEAICE    #FRSNO    #GRN    #GWETROOT    #GWETTOP    #HFLUX    #LAI    #LWGNT    #LWI    #PARDF    #PARDR     #PBLH !   #PRECANV "   #PRECTOT #   #PRECCON $   #PRECLSC %   #PRECSNO &   #SEAICE00 '   #SEAICE10 (   #SEAICE20 )   #SEAICE30 *   #SEAICE40 +   #SEAICE50 ,   #SEAICE60 -   #SEAICE70 .   #SEAICE80 /   #SEAICE90 0   #SLP 1   #SNODP 2   #SNOMAS 3   #SWGNT 4   #TROPPT 5   #T2M 6   #TS 7   #U10M 8   #USTAR 9   #V10M :   #Z0M ;                                                                      
  @                                                    
  @                                                    D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
 	    p ‘         p �         p [           p �         p [                                   D @                                   03             
 
    p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                   03             
     p ‘         p �         p [           p �         p [                                   D @                                    03             
     p ‘         p �         p [           p �         p [                                   D @                              !     03             
     p ‘         p �         p [           p �         p [                                   D @                              "     03             
     p ‘         p �         p [           p �         p [                                   D @                              #     03             
     p ‘         p �         p [           p �         p [                                   D @                              $     03             
     p ‘         p �         p [           p �         p [                                   D @                              %     03             
     p ‘         p �         p [           p �         p [                                   D @                              &     03             
     p ‘         p �         p [           p �         p [                                   D @                              '     03             
     p ‘         p �         p [           p �         p [                                   D @                              (     03             
     p ‘         p �         p [           p �         p [                                   D @                              )     03             
     p ‘         p �         p [           p �         p [                                   D @                              *     03             
     p ‘         p �         p [           p �         p [                                   D @                              +     03             
     p ‘         p �         p [           p �         p [                                   D @                              ,     03             
     p ‘         p �         p [           p �         p [                                   D @                              -     03             
     p ‘         p �         p [           p �         p [                                   D @                              .     03             
     p ‘         p �         p [           p �         p [                                   D @                              /     03             
     p ‘         p �         p [           p �         p [                                   D @                              0     03             
     p ‘         p �         p [           p �         p [                                   D @                              1     03             
      p ‘         p �         p [           p �         p [                                   D @                              2     03             
 !    p ‘         p �         p [           p �         p [                                   D @                              3     03             
 "    p ‘         p �         p [           p �         p [                                   D @                              4     03             
 #    p ‘         p �         p [           p �         p [                                   D @                              5     03             
 $    p ‘         p �         p [           p �         p [                                   D @                              6     03             
 %    p ‘         p �         p [           p �         p [                                   D @                              7     03             
 &    p ‘         p �         p [           p �         p [                                   D @                              8     03             
 '    p ‘         p �         p [           p �         p [                                   D @                              9     03             
 (    p ‘         p �         p [           p �         p [                                   D @                              :     03             
 )    p ‘         p �         p [           p �         p [                                   D @                              ;     03             
 *    p ‘         p �         p [           p �         p [                                    @ @@                              <                   $      fn#fn "   Ä   9   b   uapp(MERRA_A1_MOD $   ý   š       GET_MERRA_A1_FIELDS )   —  @   a   GET_MERRA_A1_FIELDS%NYMD )   ×  @   a   GET_MERRA_A1_FIELDS%NHMS %     ‡       OPEN_MERRA_A1_FIELDS *   ž  @   a   OPEN_MERRA_A1_FIELDS%NYMD *   Þ  @   a   OPEN_MERRA_A1_FIELDS%NHMS +     @   a   OPEN_MERRA_A1_FIELDS%RESET    ^  ^       A1_CHECK     ¼  @   a   A1_CHECK%NFOUND    ü  @   a   A1_CHECK%N_A1    <  o       DO_OPEN_A1     «  @   a   DO_OPEN_A1%NYMD     ë  @   a   DO_OPEN_A1%NHMS !   +  @   a   DO_OPEN_A1%RESET    k  „      READ_A1    ï  @   a   READ_A1%NYMD    /  @   a   READ_A1%NHMS    o  ´   a   READ_A1%ALBEDO    #	  ´   a   READ_A1%CLDTOT    ×	  ´   a   READ_A1%EFLUX    ‹
  ´   a   READ_A1%EVAP !   ?  ´   a   READ_A1%FRSEAICE    ó  ´   a   READ_A1%FRSNO    §  ´   a   READ_A1%GRN !   [  ´   a   READ_A1%GWETROOT       ´   a   READ_A1%GWETTOP    Ã  ´   a   READ_A1%HFLUX    w  ´   a   READ_A1%LAI    +  ´   a   READ_A1%LWGNT    ß  ´   a   READ_A1%LWI    “  ´   a   READ_A1%PARDF    G  ´   a   READ_A1%PARDR    û  ´   a   READ_A1%PBLH     ¯  ´   a   READ_A1%PRECANV     c  ´   a   READ_A1%PRECTOT       ´   a   READ_A1%PRECCON     Ë  ´   a   READ_A1%PRECLSC       ´   a   READ_A1%PRECSNO !   3  ´   a   READ_A1%SEAICE00 !   ç  ´   a   READ_A1%SEAICE10 !   ›  ´   a   READ_A1%SEAICE20 !   O  ´   a   READ_A1%SEAICE30 !     ´   a   READ_A1%SEAICE40 !   ·  ´   a   READ_A1%SEAICE50 !   k  ´   a   READ_A1%SEAICE60 !     ´   a   READ_A1%SEAICE70 !   Ó  ´   a   READ_A1%SEAICE80 !   ‡  ´   a   READ_A1%SEAICE90    ;  ´   a   READ_A1%SLP    ï  ´   a   READ_A1%SNODP    £  ´   a   READ_A1%SNOMAS    W   ´   a   READ_A1%SWGNT    !  ´   a   READ_A1%TROPPT    ¿!  ´   a   READ_A1%T2M    s"  ´   a   READ_A1%TS    '#  ´   a   READ_A1%U10M    Û#  ´   a   READ_A1%USTAR    �$  ´   a   READ_A1%V10M    C%  ´   a   READ_A1%Z0M    ÷%  @       N_A1_FIELDS 