	  F  Æ   k820309    Y
          11.1        ß²ÌQ                                                                                                           
       time_mod.F TIME_MOD       a       SET_CURRENT_TIME SET_BEGIN_TIME SET_END_TIME SET_NDIAGTIME SET_DIAGB SET_DIAGE SET_TIMESTEPS SET_CT_CHEM SET_CT_CONV SET_CT_DYN SET_CT_EMIS SET_CT_DIAG SET_CT_A1 SET_CT_A3 SET_CT_A6 SET_CT_I6 SET_CT_XTRA SET_ELAPSED_MIN GET_JD GET_ELAPSED_MIN GET_ELAPSED_SEC GET_NYMDB GET_NHMSB GET_NYMDE GET_NHMSE GET_NYMD GET_NHMS GET_NDIAGTIME GET_TIME_AHEAD GET_MONTH GET_DAY GET_YEAR GET_HOUR GET_MINUTE GET_SECOND GET_DAY_OF_YEAR GET_DAY_OF_WEEK GET_GMT GET_TAU GET_TAUB GET_TAUE GET_DIAGB GET_DIAGE GET_LOCALTIME GET_SEASON GET_TS_CHEM GET_TS_CONV GET_TS_DIAG GET_TS_DYN GET_TS_EMIS GET_TS_UNIT GET_CT_CHEM GET_CT_CONV GET_CT_DYN GET_CT_EMIS GET_CT_A1 GET_CT_A3 GET_CT_A6 GET_CT_I6 GET_CT_XTRA GET_CT_DIAG GET_A1_TIME GET_A3_TIME GET_A6_TIME GET_I6_TIME GET_FIRST_A1_TIME GET_FIRST_A3_TIME GET_FIRST_A6_TIME GET_FIRST_I6_TIME ITS_TIME_FOR_CHEM ITS_TIME_FOR_CONV ITS_TIME_FOR_DYN ITS_TIME_FOR_EMIS ITS_TIME_FOR_UNIT ITS_TIME_FOR_DIAG ITS_TIME_FOR_A1 ITS_TIME_FOR_A3 ITS_TIME_FOR_A6 ITS_TIME_FOR_I6 ITS_TIME_FOR_UNZIP ITS_TIME_FOR_DEL ITS_TIME_FOR_EXIT ITS_TIME_FOR_BPCH ITS_A_LEAPYEAR ITS_A_NEW_YEAR ITS_A_NEW_MONTH ITS_MIDMONTH ITS_A_NEW_DAY ITS_A_NEW_SEASON PRINT_CURRENT_TIME TIMESTAMP_STRING YMD_EXTRACT EXPAND_DATE SYSTEM_DATE_TIME SYSTEM_TIMESTAMP TIMESTAMP_DIAG GET_NYMD_DIAG #         @                                                     #SET_CURRENT_TIME%MOD    #SET_CURRENT_TIME%DBLE                  @                                 MOD               @                                 DBLE #         @                                                    #SET_BEGIN_TIME%DBLE    #THISNYMDB    #THISNHMSB                  @                                 DBLE           
   @                                                   
   @                                         #         @                                                    #SET_END_TIME%DBLE 	   #THISNYMDE 
   #THISNHMSE                  @                            	     DBLE           
   @                              
                     
   @                                         #         @                                                     #THIS_NDIAGTIME              
   @                                         #         @                                                     #THISDIAGB              
   @                                  
      #         @                                                     #THISDIAGE              
   @                                  
      #         @                                                     #CHEMISTRY    #CONVECTION    #DYNAMICS    #EMISSION    #UNIT_CONV    #DIAGNOS              
   @                                                   
   @                                                   
   @                                                   
   @                                                   
   @                                                   
   @                                         #         @                                                    #SET_CT_CHEM%PRESENT    #INCREMENT    #RESET                  @                                 PRESENT           
 @@                                                   
 @@                                         #         @                                                    #SET_CT_CONV%PRESENT    #INCREMENT    #RESET                   @                                 PRESENT           
 @@                                                   
 @@                                          #         @                                  !                  #SET_CT_DYN%PRESENT "   #INCREMENT #   #RESET $                 @                            "     PRESENT           
 @@                              #                     
 @@                              $           #         @                                  %                  #SET_CT_EMIS%PRESENT &   #INCREMENT '   #RESET (                 @                            &     PRESENT           
 @@                              '                     
 @@                              (           #         @                                  )                  #SET_CT_DIAG%PRESENT *   #INCREMENT +   #RESET ,                 @                            *     PRESENT           
 @@                              +                     
 @@                              ,           #         @                                  -                  #SET_CT_A1%PRESENT .   #INCREMENT /   #RESET 0                 @                            .     PRESENT           
 @@                              /                     
 @@                              0           #         @                                  1                  #SET_CT_A3%PRESENT 2   #INCREMENT 3   #RESET 4                 @                            2     PRESENT           
 @@                              3                     
 @@                              4           #         @                                  5                  #SET_CT_A6%PRESENT 6   #INCREMENT 7   #RESET 8                 @                            6     PRESENT           
 @@                              7                     
 @@                              8           #         @                                  9                  #SET_CT_I6%PRESENT :   #INCREMENT ;   #RESET <                 @                            :     PRESENT           
 @@                              ;                     
 @@                              <           #         @                                  =                  #SET_CT_XTRA%PRESENT >   #INCREMENT ?   #RESET @                 @                            >     PRESENT           
 @@                              ?                     
 @@                              @           #         @                                  A                    %         @                                B                   
       #GET_JD%DBLE C   #THISNYMD D   #THISNHMS E                 @                            C     DBLE           
  @@                              D                     
  @@                              E           %         @                                 F                            %         @                                 G                            %         @                                 H                            %         @                                 I                            %         @                                 J                            %         @                                 K                            %         @                                L                            %         @                                 M                            %         @                                 N                            (         `                                O                                       #N_MINS P   p          p            p                                    
   @                              P           %         @                                 Q                            %         @                                 R                            %         @                                 S                            %         @                                 T                            %         @                                 U                            %         @                                 V                            %         @                                 W                            %         @                                 X                           #GET_DAY_OF_WEEK%INT Y                 @                            Y     INT %         @                                Z                     
       %         @                                 [                     
       %         @                                 \                     
       %         @                                 ]                     
       %         @                                 ^                            %         @                                 _                            %         @                                 `                   
       #GET_LOCALTIME%PRESENT a   #I b   #GMT c                 @                            a     PRESENT           
  @@                              b                     
 @@                             c     
      %         @                                 d                            %         @                                 e                            %         @                                 f                            %         @                                 g                            %         @                                 h                            %         @                                 i                            %         @                                 j                            %         @                                 k                            %         @                                 l                            %         @                                 m                            %         @                                 n                            %         @                                 o                            %         @                                 p                            %         @                                 q                            %         @                                 r                            %         @                                 s                            %         @                                 t                            (         `                                u                                        p          p            p                          (         `                                 v                                        p          p            p                          (         `                                 w                                        p          p            p                          (         `                                 x                                       #GET_I6_TIME%MOD y   p          p            p                                        @                            y     MOD (         `                                 z                                        p          p            p                          (         `                                 {                                       #GET_FIRST_A3_TIME%MOD |   p          p            p                                        @                            |     MOD (         `                                 }                                       #GET_FIRST_A6_TIME%MOD ~   p          p            p                                        @                            ~     MOD (         `                                                    	                    #GET_FIRST_I6_TIME%MOD €   p          p            p                                        @                            €     MOD %         @                                 �                           #ITS_TIME_FOR_CHEM%MAX ‚   #ITS_TIME_FOR_CHEM%MOD ƒ                 @                            ‚     MAX               @                            ƒ     MOD %         @                                 „                           #ITS_TIME_FOR_CONV%MOD …                 @                            …     MOD %         @                                 †                           #ITS_TIME_FOR_DYN%MOD ‡                 @                            ‡     MOD %         @                                ˆ                           #ITS_TIME_FOR_EMIS%MAX ‰   #ITS_TIME_FOR_EMIS%MOD Š                 @                            ‰     MAX               @                            Š     MOD %         @                                 ‹                           #ITS_TIME_FOR_UNIT%MOD Œ                 @                            Œ     MOD %         @                                 �                           #ITS_TIME_FOR_DIAG%MOD Ž                 @                            Ž     MOD %         @                                 �                           #ITS_TIME_FOR_A1%MOD �                 @                            �     MOD %         @                                 ‘                           #ITS_TIME_FOR_A3%MOD ’                 @                            ’     MOD %         @                                 “                           #ITS_TIME_FOR_A6%MOD ”                 @                            ”     MOD %         @                                 •                           #ITS_TIME_FOR_I6%MOD –                 @                            –     MOD %         @                                 —                            %         @                                 ˜                            %         @                                 ™                            %         @                                 š                            %         @                                ›                          #ITS_A_LEAPYEAR%PRESENT œ   #ITS_A_LEAPYEAR%MOD �   #YEAR_IN ž   #FORCE Ÿ                 @                            œ     PRESENT               @                            �     MOD           
 @@                              ž                     
 @@                              Ÿ           %         @                                                            #ITS_A_NEW_YEAR%PRESENT ¡   #ITS_A_NEW_YEAR%DBLE ¢   #NO_CCTS £                 @                            ¡     PRESENT               @                            ¢     DBLE            @@                              £            %         @                                 ¤                          #ITS_A_NEW_MONTH%PRESENT ¥   #ITS_A_NEW_MONTH%DBLE ¦   #NO_CCTS §                 @                            ¥     PRESENT               @                            ¦     DBLE            @@                              §            %         @                                 ¨                            %         @                                ©                          #ITS_A_NEW_DAY%PRESENT ª   #ITS_A_NEW_DAY%DBLE «   #NO_CCTS ¬                 @                            ª     PRESENT               @                            «     DBLE            @@                              ¬            %         @                                 ­                            #         @                                  ®                   #PRINT_CURRENT_TIME%REAL ¯                 @                            ¯     REAL $         @                                °                          #TIMESTAMP_STRING%PRESENT ±   #YYYYMMDD ²   #HHMMSS ³                         @                            ±     PRESENT           
 @@                              ²                     
 @@                              ³           #         @                                 ´                  #YMD_EXTRACT%INT µ   #YMD_EXTRACT%DBLE ¶   #NYMD ·   #Y ¸   #M ¹   #D º                 @                            µ     INT               @                            ¶     DBLE           
  @@                              ·                     D @@                              ¸                      D @@                              ¹                      D  @                              º            #         @                                  »                   #FILENAME ¼   #YYYYMMDD ½   #HHMMSS ¾             
D @@                             ¼                     1           
  @@                              ½                     
  @@                              ¾           #         @                                 ¿                   #SYS_NYMD À   #SYS_NHMS Á                                                 D  @                              À                      D  @                              Á            $         @                                 Â                                    #         @                                  Ã                    %         @                                 Ä                                         fn#fn    ¼   	  b   uapp(TIME_MOD !   Å  }       SET_CURRENT_TIME %   B  <      SET_CURRENT_TIME%MOD &   ~  =      SET_CURRENT_TIME%DBLE    »         SET_BEGIN_TIME $   :  =      SET_BEGIN_TIME%DBLE )   w  @   a   SET_BEGIN_TIME%THISNYMDB )   ·  @   a   SET_BEGIN_TIME%THISNHMSB    ÷  }       SET_END_TIME "   t  =      SET_END_TIME%DBLE '   ±  @   a   SET_END_TIME%THISNYMDE '   ñ  @   a   SET_END_TIME%THISNHMSE    1	  \       SET_NDIAGTIME -   �	  @   a   SET_NDIAGTIME%THIS_NDIAGTIME    Í	  W       SET_DIAGB $   $
  @   a   SET_DIAGB%THISDIAGB    d
  W       SET_DIAGE $   »
  @   a   SET_DIAGE%THISDIAGE    û
  Ÿ       SET_TIMESTEPS (   š  @   a   SET_TIMESTEPS%CHEMISTRY )   Ú  @   a   SET_TIMESTEPS%CONVECTION '     @   a   SET_TIMESTEPS%DYNAMICS '   Z  @   a   SET_TIMESTEPS%EMISSION (   š  @   a   SET_TIMESTEPS%UNIT_CONV &   Ú  @   a   SET_TIMESTEPS%DIAGNOS      {       SET_CT_CHEM $   •  @      SET_CT_CHEM%PRESENT &   Õ  @   a   SET_CT_CHEM%INCREMENT "     @   a   SET_CT_CHEM%RESET    U  {       SET_CT_CONV $   Ð  @      SET_CT_CONV%PRESENT &     @   a   SET_CT_CONV%INCREMENT "   P  @   a   SET_CT_CONV%RESET    �  z       SET_CT_DYN #   
  @      SET_CT_DYN%PRESENT %   J  @   a   SET_CT_DYN%INCREMENT !   Š  @   a   SET_CT_DYN%RESET    Ê  {       SET_CT_EMIS $   E  @      SET_CT_EMIS%PRESENT &   …  @   a   SET_CT_EMIS%INCREMENT "   Å  @   a   SET_CT_EMIS%RESET      {       SET_CT_DIAG $   €  @      SET_CT_DIAG%PRESENT &   À  @   a   SET_CT_DIAG%INCREMENT "      @   a   SET_CT_DIAG%RESET    @  y       SET_CT_A1 "   ¹  @      SET_CT_A1%PRESENT $   ù  @   a   SET_CT_A1%INCREMENT     9  @   a   SET_CT_A1%RESET    y  y       SET_CT_A3 "   ò  @      SET_CT_A3%PRESENT $   2  @   a   SET_CT_A3%INCREMENT     r  @   a   SET_CT_A3%RESET    ²  y       SET_CT_A6 "   +  @      SET_CT_A6%PRESENT $   k  @   a   SET_CT_A6%INCREMENT     «  @   a   SET_CT_A6%RESET    ë  y       SET_CT_I6 "   d  @      SET_CT_I6%PRESENT $   ¤  @   a   SET_CT_I6%INCREMENT     ä  @   a   SET_CT_I6%RESET    $  {       SET_CT_XTRA $   Ÿ  @      SET_CT_XTRA%PRESENT &   ß  @   a   SET_CT_XTRA%INCREMENT "     @   a   SET_CT_XTRA%RESET     _  H       SET_ELAPSED_MIN    §  }       GET_JD    $  =      GET_JD%DBLE     a  @   a   GET_JD%THISNYMD     ¡  @   a   GET_JD%THISNHMS     á  P       GET_ELAPSED_MIN     1  P       GET_ELAPSED_SEC    �  P       GET_NYMDB    Ñ  P       GET_NHMSB    !  P       GET_NYMDE    q  P       GET_NHMSE    Á  P       GET_NYMD      P       GET_NHMS    a  P       GET_NDIAGTIME    ±  °       GET_TIME_AHEAD &   a  @   a   GET_TIME_AHEAD%N_MINS    ¡  P       GET_MONTH    ñ  P       GET_DAY    A  P       GET_YEAR    ‘  P       GET_HOUR    á  P       GET_MINUTE    1   P       GET_SECOND     �   P       GET_DAY_OF_YEAR     Ñ   i       GET_DAY_OF_WEEK $   :!  <      GET_DAY_OF_WEEK%INT    v!  P       GET_GMT    Æ!  P       GET_TAU    "  P       GET_TAUB    f"  P       GET_TAUE    ¶"  P       GET_DIAGB    #  P       GET_DIAGE    V#  {       GET_LOCALTIME &   Ñ#  @      GET_LOCALTIME%PRESENT     $  @   a   GET_LOCALTIME%I "   Q$  @   a   GET_LOCALTIME%GMT    ‘$  P       GET_SEASON    á$  P       GET_TS_CHEM    1%  P       GET_TS_CONV    �%  P       GET_TS_DIAG    Ñ%  P       GET_TS_DYN    !&  P       GET_TS_EMIS    q&  P       GET_TS_UNIT    Á&  P       GET_CT_CHEM    '  P       GET_CT_CONV    a'  P       GET_CT_DYN    ±'  P       GET_CT_EMIS    (  P       GET_CT_A1    Q(  P       GET_CT_A3    ¡(  P       GET_CT_A6    ñ(  P       GET_CT_I6    A)  P       GET_CT_XTRA    ‘)  P       GET_CT_DIAG    á)  ¤       GET_A1_TIME    …*  ¤       GET_A3_TIME    )+  ¤       GET_A6_TIME    Í+  ¹       GET_I6_TIME     †,  <      GET_I6_TIME%MOD "   Â,  ¤       GET_FIRST_A1_TIME "   f-  ¿       GET_FIRST_A3_TIME &   %.  <      GET_FIRST_A3_TIME%MOD "   a.  ¿       GET_FIRST_A6_TIME &    /  <      GET_FIRST_A6_TIME%MOD "   \/  ¿       GET_FIRST_I6_TIME &   0  <      GET_FIRST_I6_TIME%MOD "   W0  †       ITS_TIME_FOR_CHEM &   Ý0  <      ITS_TIME_FOR_CHEM%MAX &   1  <      ITS_TIME_FOR_CHEM%MOD "   U1  k       ITS_TIME_FOR_CONV &   À1  <      ITS_TIME_FOR_CONV%MOD !   ü1  j       ITS_TIME_FOR_DYN %   f2  <      ITS_TIME_FOR_DYN%MOD "   ¢2  †       ITS_TIME_FOR_EMIS &   (3  <      ITS_TIME_FOR_EMIS%MAX &   d3  <      ITS_TIME_FOR_EMIS%MOD "    3  k       ITS_TIME_FOR_UNIT &   4  <      ITS_TIME_FOR_UNIT%MOD "   G4  k       ITS_TIME_FOR_DIAG &   ²4  <      ITS_TIME_FOR_DIAG%MOD     î4  i       ITS_TIME_FOR_A1 $   W5  <      ITS_TIME_FOR_A1%MOD     “5  i       ITS_TIME_FOR_A3 $   ü5  <      ITS_TIME_FOR_A3%MOD     86  i       ITS_TIME_FOR_A6 $   ¡6  <      ITS_TIME_FOR_A6%MOD     Ý6  i       ITS_TIME_FOR_I6 $   F7  <      ITS_TIME_FOR_I6%MOD #   ‚7  P       ITS_TIME_FOR_UNZIP !   Ò7  P       ITS_TIME_FOR_DEL "   "8  P       ITS_TIME_FOR_EXIT "   r8  P       ITS_TIME_FOR_BPCH    Â8  œ       ITS_A_LEAPYEAR '   ^9  @      ITS_A_LEAPYEAR%PRESENT #   ž9  <      ITS_A_LEAPYEAR%MOD '   Ú9  @   a   ITS_A_LEAPYEAR%YEAR_IN %   :  @   a   ITS_A_LEAPYEAR%FORCE    Z:  ’       ITS_A_NEW_YEAR '   ì:  @      ITS_A_NEW_YEAR%PRESENT $   ,;  =      ITS_A_NEW_YEAR%DBLE '   i;  @   a   ITS_A_NEW_YEAR%NO_CCTS     ©;  ”       ITS_A_NEW_MONTH (   =<  @      ITS_A_NEW_MONTH%PRESENT %   }<  =      ITS_A_NEW_MONTH%DBLE (   º<  @   a   ITS_A_NEW_MONTH%NO_CCTS    ú<  P       ITS_MIDMONTH    J=  �       ITS_A_NEW_DAY &   Ú=  @      ITS_A_NEW_DAY%PRESENT #   >  =      ITS_A_NEW_DAY%DBLE &   W>  @   a   ITS_A_NEW_DAY%NO_CCTS !   —>  P       ITS_A_NEW_SEASON #   ç>  e       PRINT_CURRENT_TIME (   L?  =      PRINT_CURRENT_TIME%REAL !   ‰?  �       TIMESTAMP_STRING )   @  @      TIMESTAMP_STRING%PRESENT *   Y@  @   a   TIMESTAMP_STRING%YYYYMMDD (   ™@  @   a   TIMESTAMP_STRING%HHMMSS    Ù@  ’       YMD_EXTRACT     kA  <      YMD_EXTRACT%INT !   §A  =      YMD_EXTRACT%DBLE !   äA  @   a   YMD_EXTRACT%NYMD    $B  @   a   YMD_EXTRACT%Y    dB  @   a   YMD_EXTRACT%M    ¤B  @   a   YMD_EXTRACT%D    äB  p       EXPAND_DATE %   TC  L   a   EXPAND_DATE%FILENAME %    C  @   a   EXPAND_DATE%YYYYMMDD #   àC  @   a   EXPAND_DATE%HHMMSS !    D  ˆ       SYSTEM_DATE_TIME *   ¨D  @   a   SYSTEM_DATE_TIME%SYS_NYMD *   èD  @   a   SYSTEM_DATE_TIME%SYS_NHMS !   (E  X       SYSTEM_TIMESTAMP    €E  H       TIMESTAMP_DIAG    ÈE  P       GET_NYMD_DIAG 