!мk820309 919.0[®e  module_bl_mrf.f90MODULE_BL_MRF#@H#U3D#V3D #TH3D #T3D #QV3D #QC3D #P3D#PI3D#RUBLTEN#RVBLTEN#RTHBLTEN#RQVBLTEN#RQCBLTEN#CP#G#ROVCP#R#ROVG#DZ8W#Z#XLV#RV#PSFC#P1000MB#ZNT #UST!#ZOL"#HOL##PBL$#PSIM%#PSIH&#XLAND'#HFX(#QFX)#TSK*#GZ1OZ0+#WSPD,#BR-#DT.#DTMIN/#KPBL2D0#SVP11#SVP22#SVP33#SVPT04#EP15#EP26#KARMAN7#EOMEG8#STBOLT9#FLAG_QI:#IDS;#IDE<#JDS=#JDE>#KDS?#KDE@#IMS#IME#JMS#JME#KMS#KME#ITSA#ITEB#JTSC#JTED#KTSE#KTEF#QI3DG#RQIBLTENH#REGIMEI @ 5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp @  5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp   5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp @  5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp @  5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp @  5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp @ 5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp  5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp D@ 5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp D@ 5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp D@ 5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp D@ 5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp D@ 5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp @  @  @  @  @   5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp  5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp @  @  @ 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @  D@  5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp D@! 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp D@" 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp D@# 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp D@$ 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @% 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @& 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @' 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @( 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @) 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @* 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @+ 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp D@, 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @- 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @.  @/  D@05“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp @1  @2  @3  @4  @5  @6  @7  @8  @9  @: @; @< @= @> @? @@ @ @ @ @ @ @ @A @B @C @D @E @F @G "5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp D@H !5“p<r5“p?r5“p>rp5“p>r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p>r5“p?r&5“p<r5“p=r5“p;r5“p:rp5“p?r5“p>rp5“p=r5“p<rp F@I 5“p<r5“p;r5“p:rp5“p:r&5“p:r5“p;r&5“p<r5“p=r5“p;r5“p:rp5“p=r5“p<rp#@JG#JK#U2DL#V2DQ#T2DR#QV2DS#QC2DT#P2DU#U2DTENV#V2DTENW#T2DTENX#QV2DTENY#QC2DTENZ#P1000MB[#CP\#G]#ROVCP^#R_#ROVG`#DZ8W2Da#Z2Df#XLVg#RVh#PSFCPAi#ZNTj#USTk#ZOLl#HOLm#PBLn#PSIMo#PSIHp#XLANDq#HFXr#QFXs#TSKt#GZ1OZ0u#WSPDv#BRw#DTx#DTMINy#KPBL1Dz#SVP1{#SVP2|#SVP3}#SVPT0~#EP1#EP2€#KARMAN#EOMEG‚#STBOLTƒ#FLAG_QI„#IDS…#IDE†#JDS‡#JDEˆ#KDS‰#KDEŠ#IMSO#IMEN#JMS‹#JMEŒ#KMSM#KMEP#ITSd#ITEc#JTS#JTEŽ#KTSb#KTEe#REGIME#QI2D#QI2DTEN‘ K L >5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp Q ?5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp R (5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp S %5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp T &5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp U '5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp DV )5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp DW *5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp DX +5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp DY ,5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp DZ -5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp [  \  ]  ^  _  `  a @5“pCrb5“p@rc5“p?rdp5“p?rd&5“p?rd5“p@rc&5“pCrb5“pDre5“p@rc5“p?rdp5“pDre5“pCrbp f A5“pCrb5“p@rc5“p?rdp5“p?rd&5“p?rd5“p@rc&5“pCrb5“pDre5“p@rc5“p?rdp5“pDre5“pCrbp g  h  i :5“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp j 15“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp Dk /5“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp l <5“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp Dm .5“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp Dn 05“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp o 55“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp p 65“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp q 25“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp r 35“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp s 45“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp t ;5“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp u 85“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp v 75“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp w 95“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp x  y  Dz=5“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp {  |  }  ~    €    ‚  ƒ  „ … † ‡ ˆ ‰ Š O N ‹ Œ M P @d @c  Ž @b @e  B5“p9rO&5“p9rO5“p:rN5“p:rN5“p9rOp @ C5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp F@‘ D5“p=rM5“p:rN5“p9rOp5“p9rO&5“p9rO5“p:rN&5“p=rM5“p>rP5“p:rN5“p9rOp5“p>rP5“p=rMp#@’ #CL“#CM˜#CU™#R1š#R2›#AUœ#A1#A2ž#ITS–#ITE•#KTS”#KTE— “ ‰5“p r”n15“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”n15“p r—n15“p r•5“p r–p5“p r—n15“p r”n1p ˜ Š5“p r”5“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”5“p r—5“p r•5“p r–p5“p r—5“p r”p ™ Ž5“p r”5“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”5“p r—5“p r•5“p r–p5“p r—5“p r”p š ‹5“p r”5“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”5“p r—5“p r•5“p r–p5“p r—5“p r”p › Œ5“p r”5“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”5“p r—5“p r•5“p r–p5“p r—5“p r”p Dœ 5“p r”5“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”5“p r—5“p r•5“p r–p5“p r—5“p r”p D 5“p r”5“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”5“p r—5“p r•5“p r–p5“p r—5“p r”p Dž 5“p r”5“p r•5“p r–p5“p r–&5“p r–5“p r•&5“p r”5“p r—5“p r•5“p r–p5“p r—5“p r”p – • ” —#@Ÿ#RUBLTEN #RVBLTEN§#RTHBLTEN¨#RQVBLTEN©#RQCBLTENª#RQIBLTEN«#P_QI¬#P_FIRST_SCALAR­#RESTART®#ALLOWED_TO_READ¯#IDS°#IDE±#JDS²#JDE³#KDS´#KDEµ#IMS¥#IME¤#JMS¡#JME¦#KMS£#KME¢#ITS¶#ITE·#JTS¸#JTE¹#KTSº#KTE» D  ‘5“pr¡5“pr¢5“pr£p5“pr£5“pr¤5“pr¥p5“pr¥&5“pr¥5“pr¤&5“pr£5“pr¢&5“pr¡5“pr¦5“pr¤5“pr¥p5“pr¢5“pr£p5“pr¦5“pr¡p D§ ’5“pr¡5“pr¢5“pr£p5“pr£5“pr¤5“pr¥p5“pr¥&5“pr¥5“pr¤&5“pr£5“pr¢&5“pr¡5“pr¦5“pr¤5“pr¥p5“pr¢5“pr£p5“pr¦5“pr¡p D¨ “5“pr¡5“pr¢5“pr£p5“pr£5“pr¤5“pr¥p5“pr¥&5“pr¥5“pr¤&5“pr£5“pr¢&5“pr¡5“pr¦5“pr¤5“pr¥p5“pr¢5“pr£p5“pr¦5“pr¡p D© ”5“pr¡5“pr¢5“pr£p5“pr£5“pr¤5“pr¥p5“pr¥&5“pr¥5“pr¤&5“pr£5“pr¢&5“pr¡5“pr¦5“pr¤5“pr¥p5“pr¢5“pr£p5“pr¦5“pr¡p Dª •5“pr¡5“pr¢5“pr£p5“pr£5“pr¤5“pr¥p5“pr¥&5“pr¥5“pr¤&5“pr£5“pr¢&5“pr¡5“pr¦5“pr¤5“pr¥p5“pr¢5“pr£p5“pr¦5“pr¡p D« –5“pr¡5“pr¢5“pr£p5“pr£5“pr¤5“pr¥p5“pr¥&5“pr¥5“pr¤&5“pr£5“pr¢&5“pr¡5“pr¦5“pr¤5“pr¥p5“pr¢5“pr£p5“pr¦5“pr¡p ¬ ­ ® ¯ ° ± ² ³ ´ µ ¥ ¤ ¡ ¦ £ ¢ ¶ @· ¸ @¹ º @» (fn#fnÈMRFÙaMRF%U3DíaMRF%V3D aMRF%TH3D aMRF%T3D)aMRF%QV3D=aMRF%QC3DQaMRF%P3DeaMRF%PI3DyaMRF%RUBLTENaMRF%RVBLTEN¡"aMRF%RTHBLTENµ%aMRF%RQVBLTENÉ(aMRF%RQCBLTENÝ+@aMRF%CP,@aMRF%G],@aMRF%ROVCP,@aMRF%RÝ,@aMRF%ROVG-aMRF%DZ8W10aMRF%ZE3@aMRF%XLV…3@aMRF%RVÅ3aMRF%PSFCÙ5@aMRF%P1000MB6aMRF%ZNT-8aMRF%USTA:aMRF%ZOLU<aMRF%HOLi>aMRF%PBL}@aMRF%PSIM‘BaMRF%PSIH¥DaMRF%XLAND¹FaMRF%HFXÍHaMRF%QFXáJaMRF%TSKõLaMRF%GZ1OZ0 OaMRF%WSPDQaMRF%BR1S@aMRF%DTqS@aMRF%DTMIN±SaMRF%KPBL2DÅU@aMRF%SVP1V@aMRF%SVP2EV@aMRF%SVP3…V@aMRF%SVPT0ÅV@aMRF%EP1W@aMRF%EP2EW@aMRF%KARMAN…W@aMRF%EOMEGÅW@aMRF%STBOLTX@aMRF%FLAG_QIEX@aMRF%IDS…X@aMRF%IDEÅX@aMRF%JDSY@aMRF%JDEEY@aMRF%KDS…Y@aMRF%KDEÅY@aMRF%IMSZ@aMRF%IMEEZ@aMRF%JMS…Z@aMRF%JMEÅZ@aMRF%KMS[@aMRF%KMEE[@aMRF%ITS…[@aMRF%ITEÅ[@aMRF%JTS\@aMRF%JTEE\@aMRF%KTS…\@aMRF%KTEÅ\aMRF%QI3DÙ_aMRF%RQIBLTENíbaMRF%REGIMEeMRF2Dh@aMRF2D%JDhaMRF2D%U2DXjaMRF2D%V2DllaMRF2D%T2D€naMRF2D%QV2D”paMRF2D%QC2D¨raMRF2D%P2D¼taMRF2D%U2DTENÐvaMRF2D%V2DTENäxaMRF2D%T2DTENøzaMRF2D%QV2DTEN }aMRF2D%QC2DTEN @aMRF2D%P1000MB`@aMRF2D%CP @aMRF2D%Gà@aMRF2D%ROVCP €@aMRF2D%R`€@aMRF2D%ROVG €aMRF2D%DZ8W2D´‚aMRF2D%Z2DÈ„@aMRF2D%XLV…@aMRF2D%RVH…aMRF2D%PSFCPA\†aMRF2D%ZNTp‡aMRF2D%UST„ˆaMRF2D%ZOL˜‰aMRF2D%HOL¬ŠaMRF2D%PBLÀ‹aMRF2D%PSIMÔŒaMRF2D%PSIHèaMRF2D%XLANDüŽaMRF2D%HFXaMRF2D%QFX$‘aMRF2D%TSK8’aMRF2D%GZ1OZ0L“aMRF2D%WSPD`”aMRF2D%BRt•@aMRF2D%DT´•@aMRF2D%DTMINô•aMRF2D%KPBL1D—@aMRF2D%SVP1H—@aMRF2D%SVP2ˆ—@aMRF2D%SVP3È—@aMRF2D%SVPT0˜@aMRF2D%EP1H˜@aMRF2D%EP2ˆ˜@aMRF2D%KARMANȘ@aMRF2D%EOMEG™@aMRF2D%STBOLTH™@aMRF2D%FLAG_QIˆ™@aMRF2D%IDSÈ™@aMRF2D%IDEš@aMRF2D%JDSHš@aMRF2D%JDEˆš@aMRF2D%KDSÈš@aMRF2D%KDE›@aMRF2D%IMSH›@aMRF2D%IMEˆ›@aMRF2D%JMSÈ›@aMRF2D%JMEœ@aMRF2D%KMSHœ@aMRF2D%KMEˆœ@aMRF2D%ITSÈœ@aMRF2D%ITE@aMRF2D%JTSH@aMRF2D%JTEˆ@aMRF2D%KTSÈ@aMRF2D%KTEžaMRF2D%REGIMEŸaMRF2D%QI2D0¡aMRF2D%QI2DTEND£¬TRIDI2ð£1aTRIDI2%CL!§aTRIDI2%CM5©aTRIDI2%CUI«aTRIDI2%R1]­aTRIDI2%R2q¯aTRIDI2%AU…±aTRIDI2%A1™³aTRIDI2%A2­µ@aTRIDI2%ITSíµ@aTRIDI2%ITE-¶@aTRIDI2%KTSm¶@aTRIDI2%KTE­¶|MRFINIT )¸aMRFINIT%RUBLTEN =»aMRFINIT%RVBLTEN!Q¾aMRFINIT%RTHBLTEN!eÁaMRFINIT%RQVBLTEN!yÄaMRFINIT%RQCBLTEN!ÇaMRFINIT%RQIBLTEN¡Ê@aMRFINIT%P_QI'áÊ@aMRFINIT%P_FIRST_SCALAR !Ë@aMRFINIT%RESTART(aË@aMRFINIT%ALLOWED_TO_READ¡Ë@aMRFINIT%IDSáË@aMRFINIT%IDE!Ì@aMRFINIT%JDSaÌ@aMRFINIT%JDE¡Ì@aMRFINIT%KDSáÌ@aMRFINIT%KDE!Í@aMRFINIT%IMSaÍ@aMRFINIT%IME¡Í@aMRFINIT%JMSáÍ@aMRFINIT%JME!Î@aMRFINIT%KMSaÎ@aMRFINIT%KME¡Î@aMRFINIT%ITSáÎ@aMRFINIT%ITE!Ï@aMRFINIT%JTSaÏ@aMRFINIT%JTE¡Ï@aMRFINIT%KTSáÏ@aMRFINIT%KTE