\xk820309 919.0(\®e  module_lightning_driver.f90MODULE_LIGHTNING_DRIVER#@%#ID#ITIMESTEP#RESTART#DT#DX#CU_PHYSICS#MP_PHYSICS#DO_RADAR_REF #LIGHTNING_OPTION #LIGHTNING_DT #LIGHTNING_START_SECONDS #LTNGACTTIME #ICCG_PRESCRIBED_NUM#ICCG_PRESCRIBED_DEN#CELLCOUNT_METHOD#IDS#IDE#JDS#JDE#KDS#KDE#IMS#IME#JMS#JME#KMS#KME#ITS#ITE#JTS#JTE #KTS!#KTE"#IC_FLASHCOUNT##IC_FLASHRATE$#CG_FLASHCOUNT%#CG_FLASHRATE& @@   @@                D       D                  ! " F@# 5“pr5“pr5“prp5“pr&5“pr5“pr&5“pr5“pr5“pr5“prp5“pr5“prp F@$ 5“pr5“pr5“prp5“pr&5“pr5“pr&5“pr5“pr5“pr5“prp5“pr5“prp F@% 5“pr5“pr5“prp5“pr&5“pr5“pr&5“pr5“pr5“pr5“prp5“pr5“prp F@& 5“pr5“pr5“prp5“pr&5“pr5“pr&5“pr5“pr5“pr5“prp5“pr5“prp#@'9#LIGHTNING_DRIVER%NUM_MOIST(#LIGHTNING_DRIVER%ESMF_DAYSPERYEAR)#LIGHTNING_DRIVER%WRFU_CALENDARTYPE+#LIGHTNING_DRIVER%WRFU_CALENDAR-#LIGHTNING_DRIVER%WRFU_BASETIME4#LIGHTNING_DRIVER%WRFU_TIME8#CURR_SECS<#DT=#DX>#DY?#XLAT@#XLONE#XLANDF#HTG#T_PHYH#P_PHYK#RHOL#UM#VN#WO#TH_PHYP#PI_PHYQ#DZ8WR#ZS#MOISTT#KTOP_DEEPU#REFLV#CURRENT_TIMEW#LIGHTNING_OPTIONX#LIGHTNING_DTY#LIGHTNING_START_SECONDSZ#LTNGACTTIME[#FLASHRATE_FACTOR\#ICCG_METHOD]#ICCG_PRESCRIBED_NUM^#ICCG_PRESCRIBED_DEN_#ICCG_IN_NUM`#ICCG_IN_DENa#CELLCOUNT_METHODb#CLDTOP_ADJUSTMENTc#IDSd#IDEe#JDSf#JDEg#KDSh#KDEi#IMSC#IMEB#JMSA#JMED#KMSJ#KMEI#ITSj#ITEk#JTSl#JTEm#KTSn#KTEo#IC_FLASHCOUNTp#IC_FLASHRATEq#CG_FLASHCOUNTr#CG_FLASHRATEs#LPIt À@)'#D*D*  @+'#CALTYPE,D,  @-'D#TYPE.#SET/#DAYSPERMONTH0#SECONDSPERDAY1#SECONDSPERYEAR2#DAYSPERYEAR3D.#LIGHTNING_DRIVER%WRFU_CALENDARTYPE+D/í D0 pp p D18D2<D3@#LIGHTNING_DRIVER%ESMF_DAYSPERYEAR) @4'#S5#SN6#SD7$5$6$7 @ 8'(#BASETIME9#YR:#CALENDAR;$9#LIGHTNING_DRIVER%WRFU_BASETIME4$:$;D #LIGHTNING_DRIVER%WRFU_CALENDAR- ( <  @=  @>  @?  @@ 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp @E 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp @F 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp @G 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp @H 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @K 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @L 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp M 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp N 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @O 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @P 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @Q 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @R 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @S 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @T p5“p,rD5“p+rAp5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5r(5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp5r( @U5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp @V 5“p+rA5“p.rI5“p-rJp5“p-rJ5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p-rJ5“p.rI&5“p+rA5“p,rD5“p*rB5“p)rCp5“p.rI5“p-rJp5“p,rD5“p+rAp @W(#LIGHTNING_DRIVER%WRFU_TIME8 X Y  Z  D@[  \  ] @^  @_  @` p5“p,rD5“p+rAp5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rDp 5“p*rB5“p)rCp5“p,rD5“p+rApp  @a p5“p,rD5“p+rAp5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rDp 5“p*rB5“p)rCp5“p,rD5“p+rApp  @b @c  @d @e @f @g @h @i @@C @@B @@A @@D @@J @@I @j @k @l @m @n @o Fp 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp F@q 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp Fr 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp F@s 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp F@t 5“p+rA5“p*rB5“p)rCp5“p)rC&5“p)rC5“p*rB&5“p+rA5“p,rD5“p*rB5“p)rCp5“p,rD5“p+rAp#@u#COUNTCELLS%NTASKSv#REFLw#REFLTHRESHOLD~#CELLCOUNT_METHOD#IDS€#IDE#JDS‚#JDEƒ#KDS„#KDE…#IMS|#IME{#JMSx#JME}#KMSz#KMEy#ITS†#ITE‡#JTSˆ#JTE‰#KTSŠ#KTE‹#CELLCOUNTŒ v w 5“p rx5“pry5“przp5“prz5“p r{5“p r|p5“p r|&5“p r|5“p r{&5“prz5“pry&5“p rx5“p r}5“p r{5“p r|p5“pry5“przp5“p r}5“p rxp ~   €  ‚ ƒ „ … @| @{ @x @} @z @y † ‡ ˆ ‰ Š ‹ D@Œ 5“prz&5“prz5“pry5“pry5“przp <fn#fnÜLIGHTNING_INIT"ñ@aLIGHTNING_INIT%ID)1@aLIGHTNING_INIT%ITIMESTEP'q@aLIGHTNING_INIT%RESTART"±@aLIGHTNING_INIT%DT"ñ@aLIGHTNING_INIT%DX*1@aLIGHTNING_INIT%CU_PHYSICS*q@aLIGHTNING_INIT%MP_PHYSICS,±@aLIGHTNING_INIT%DO_RADAR_REF0ñ@aLIGHTNING_INIT%LIGHTNING_OPTION,1@aLIGHTNING_INIT%LIGHTNING_DT7q@aLIGHTNING_INIT%LIGHTNING_START_SECONDS+±@aLIGHTNING_INIT%LTNGACTTIME3ñ@aLIGHTNING_INIT%ICCG_PRESCRIBED_NUM31@aLIGHTNING_INIT%ICCG_PRESCRIBED_DEN0q@aLIGHTNING_INIT%CELLCOUNT_METHOD#±@aLIGHTNING_INIT%IDS#ñ@aLIGHTNING_INIT%IDE#1@aLIGHTNING_INIT%JDS#q@aLIGHTNING_INIT%JDE#±@aLIGHTNING_INIT%KDS#ñ@aLIGHTNING_INIT%KDE#1 @aLIGHTNING_INIT%IMS#q @aLIGHTNING_INIT%IME#± @aLIGHTNING_INIT%JMS#ñ @aLIGHTNING_INIT%JME#1 @aLIGHTNING_INIT%KMS#q @aLIGHTNING_INIT%KME#± @aLIGHTNING_INIT%ITS#ñ @aLIGHTNING_INIT%ITE#1 @aLIGHTNING_INIT%JTS#q @aLIGHTNING_INIT%JTE#± @aLIGHTNING_INIT%KTS#ñ @aLIGHTNING_INIT%KTE-1 aLIGHTNING_INIT%IC_FLASHCOUNT,EaLIGHTNING_INIT%IC_FLASHRATE-YaLIGHTNING_INIT%CG_FLASHCOUNT,maLIGHTNING_INIT%CG_FLASHRATE!• LIGHTNING_DRIVERXWLIGHTNING_DRIVER%ESMF_DAYSPERYEAR+WRF_ESMF_CALENDARMOD=ESMF_DAYSPERYEARKmH%LIGHTNING_DRIVER%ESMF_DAYSPERYEAR%D+WRF_ESMF_CALENDARMOD=DZµ]LIGHTNING_DRIVER%WRFU_CALENDARTYPE+WRF_ESMF_CALENDARMOD=ESMF_CALENDARTYPEXH%LIGHTNING_DRIVER%WRFU_CALENDARTYPE%CALTYPE+WRF_ESMF_CALENDARMOD=CALTYPERZ­LIGHTNING_DRIVER%WRFU_CALENDAR+WRF_ESMF_CALENDARMOD=ESMF_CALENDARN x%LIGHTNING_DRIVER%WRFU_CALENDAR%TYPE+WRF_ESMF_CALENDARMOD=TYPEL ¤%LIGHTNING_DRIVER%WRFU_CALENDAR%SET+WRF_ESMF_CALENDARMOD=SET^#!œ%LIGHTNING_DRIVER%WRFU_CALENDAR%DAYSPERMONTH+WRF_ESMF_CALENDARMOD=DAYSPERMONTH`¿!H%LIGHTNING_DRIVER%WRFU_CALENDAR%SECONDSPERDAY+WRF_ESMF_CALENDARMOD=SECONDSPERDAYb"H%LIGHTNING_DRIVER%WRFU_CALENDAR%SECONDSPERYEAR+WRF_ESMF_CALENDARMOD=SECONDSPERYEAR\O"w%LIGHTNING_DRIVER%WRFU_CALENDAR%DAYSPERYEAR+WRF_ESMF_CALENDARMOD=DAYSPERYEARRÆ"gLIGHTNING_DRIVER%WRFU_BASETIME+WRF_ESMF_BASETIMEMOD=ESMF_BASETIMEF-#HaLIGHTNING_DRIVER%WRFU_BASETIME%S+WRF_ESMF_BASETIMEMODGu#HaLIGHTNING_DRIVER%WRFU_BASETIME%SN+WRF_ESMF_BASETIMEMODG½#HaLIGHTNING_DRIVER%WRFU_BASETIME%SD+WRF_ESMF_BASETIMEMODF$tLIGHTNING_DRIVER%WRFU_TIME+WRF_ESMF_TIMEMOD=ESMF_TIMEEy$taLIGHTNING_DRIVER%WRFU_TIME%BASETIME+WRF_ESMF_TIMEMOD?í$HaLIGHTNING_DRIVER%WRFU_TIME%YR+WRF_ESMF_TIMEMODE5%taLIGHTNING_DRIVER%WRFU_TIME%CALENDAR+WRF_ESMF_TIMEMODD©%@LIGHTNING_DRIVER%NUM_MOIST+MODULE_STATE_DESCRIPTION+é%@aLIGHTNING_DRIVER%CURR_SECS$)&@aLIGHTNING_DRIVER%DT$i&@aLIGHTNING_DRIVER%DX$©&@aLIGHTNING_DRIVER%DY&é&aLIGHTNING_DRIVER%XLAT&ý(aLIGHTNING_DRIVER%XLON'+aLIGHTNING_DRIVER%XLAND$%-aLIGHTNING_DRIVER%HT'9/aLIGHTNING_DRIVER%T_PHY'M2aLIGHTNING_DRIVER%P_PHY%a5aLIGHTNING_DRIVER%RHO#u8aLIGHTNING_DRIVER%U#‰;aLIGHTNING_DRIVER%V#>aLIGHTNING_DRIVER%W(±AaLIGHTNING_DRIVER%TH_PHY(ÅDaLIGHTNING_DRIVER%PI_PHY&ÙGaLIGHTNING_DRIVER%DZ8W#íJaLIGHTNING_DRIVER%Z'N”aLIGHTNING_DRIVER%MOIST+•QaLIGHTNING_DRIVER%KTOP_DEEP&©SaLIGHTNING_DRIVER%REFL.½VhaLIGHTNING_DRIVER%CURRENT_TIME2%W@aLIGHTNING_DRIVER%LIGHTNING_OPTION.eW@aLIGHTNING_DRIVER%LIGHTNING_DT9¥W@aLIGHTNING_DRIVER%LIGHTNING_START_SECONDS-åW@aLIGHTNING_DRIVER%LTNGACTTIME2%X@aLIGHTNING_DRIVER%FLASHRATE_FACTOR-eX@aLIGHTNING_DRIVER%ICCG_METHOD5¥X@aLIGHTNING_DRIVER%ICCG_PRESCRIBED_NUM5åX@aLIGHTNING_DRIVER%ICCG_PRESCRIBED_DEN-%Y”aLIGHTNING_DRIVER%ICCG_IN_NUM-¹[”aLIGHTNING_DRIVER%ICCG_IN_DEN2M^@aLIGHTNING_DRIVER%CELLCOUNT_METHOD3^@aLIGHTNING_DRIVER%CLDTOP_ADJUSTMENT%Í^@aLIGHTNING_DRIVER%IDS% _@aLIGHTNING_DRIVER%IDE%M_@aLIGHTNING_DRIVER%JDS%_@aLIGHTNING_DRIVER%JDE%Í_@aLIGHTNING_DRIVER%KDS% `@aLIGHTNING_DRIVER%KDE%M`@aLIGHTNING_DRIVER%IMS%`@aLIGHTNING_DRIVER%IME%Í`@aLIGHTNING_DRIVER%JMS% a@aLIGHTNING_DRIVER%JME%Ma@aLIGHTNING_DRIVER%KMS%a@aLIGHTNING_DRIVER%KME%Ía@aLIGHTNING_DRIVER%ITS% b@aLIGHTNING_DRIVER%ITE%Mb@aLIGHTNING_DRIVER%JTS%b@aLIGHTNING_DRIVER%JTE%Íb@aLIGHTNING_DRIVER%KTS% c@aLIGHTNING_DRIVER%KTE/McaLIGHTNING_DRIVER%IC_FLASHCOUNT.aeaLIGHTNING_DRIVER%IC_FLASHRATE/ugaLIGHTNING_DRIVER%CG_FLASHCOUNT.‰iaLIGHTNING_DRIVER%CG_FLASHRATE%kaLIGHTNING_DRIVER%LPI±mCCOUNTCELLS3ôn@COUNTCELLS%NTASKS+MODULE_DM=NTASKS 4oaCOUNTCELLS%REFL)Hr@aCOUNTCELLS%REFLTHRESHOLD,ˆr@aCOUNTCELLS%CELLCOUNT_METHODÈr@aCOUNTCELLS%IDSs@aCOUNTCELLS%IDEHs@aCOUNTCELLS%JDSˆs@aCOUNTCELLS%JDEÈs@aCOUNTCELLS%KDSt@aCOUNTCELLS%KDEHt@aCOUNTCELLS%IMSˆt@aCOUNTCELLS%IMEÈt@aCOUNTCELLS%JMSu@aCOUNTCELLS%JMEHu@aCOUNTCELLS%KMSˆu@aCOUNTCELLS%KMEÈu@aCOUNTCELLS%ITSv@aCOUNTCELLS%ITEHv@aCOUNTCELLS%JTSˆv@aCOUNTCELLS%JTEÈv@aCOUNTCELLS%KTSw@aCOUNTCELLS%KTE%HwaCOUNTCELLS%CELLCOUNT