W¡ëk820309 919.06[®e  module_cu_bmj.f90MODULE_CU_BMJ STHETHE0QS0SQSSTHEQTHE0QPTBLTTBLTTBLQ     {D    ÃõA9.81    ̼Œ+1.E-12    %I’>    µ'ŠA17.2693882    {”ˆC273.16    ¤pB35.86     Üó½C379.90516    €;Å    0.     @5.0    ÍÌL>0.20   333?0.70   àÁ#J2.683E6   @œF20000.   `jF15000.   ff†?1.05   0.   ·Ñ8.0001   ·Ñ8.0001   •¿Ö31.E-7   €?1.00   €?1.00   š™Y?0.85   š™Y?0.85   ?0.5   ÍÌÌ>   0.    @5.00   )\>0.14    ªB85.0 !   KF13000. "  `jF15000. #  zD1000. $  @E2500. %  @œF20000. &  @œF20000. '  È/G45000. (  ·Q9 )  0.00 *  ÍÌŒ?1.10 +  zD1.E3 ,  fff?0.90 -  fff?0.90 .  €?1.0 /  ÍÌŒ?1.10 0  €¿ 1  E2400. 2  € 3  € 4  0rÅ 5  ˜·Å 6  `êÄ 7  0rÅ 8  ˜·Å 9  `êÄ :  @E2500. ;  ¸ˆG70000. <  ÍG105000. =  RC210. >  €¶C365. ?  €¢C325. @L76 A†134 B˜152 C¸440 D3 @E† pp†p† @F† pp†p† @GÈ' pMpLp†pLp† H  Ð?: I  Ú^; J  –B K  ª[? L  C M  €ÛC N  ~ž%7 O  š™?#@P4#IDSQ#IDER#JDSS#JDET#KDSU#KDEV#IMSW#IMEX#JMSY#JMEZ#KMS[#KME\#ITS]#ITE^#JTS_#JTE`#KTSa#KTEb#DTc#ITIMESTEPd#STEPCUe#CCLDFRAf#CONVCLDg#RAINCVh#PRATECi#CUTOPj#CUBOTk#KPBLl#THm#Tn#QVo#QCCONVp#QICONVq#BMJ_RAD_FEEDBACKr#PINTs#PMIDt#PIu#RHOv#DZ8Ww#CPx#Ry#ELWVz#ELIV{#G|#TFRZ}#D608~#CLDEFI#LOWLYR€#XLAND#CU_ACT_FLAG‚#RTHCUTENƒ#RQVCUTEN„ @Q @R @S @T @U @V @W @X @Y @Z @[ @\ @] @^ @_ @` @a @b c  @d e Df 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp Dg 5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp Dh 5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp Di 5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp Dj "5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp Dk !5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp l 5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp m 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp n 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp o 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp Dp 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp Dq 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp r s 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp t 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp u 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp v 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp w 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp @x  @y  @z  @{  @|  @}  @~  D@ 5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp €5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp  5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp D‚#5“p rY5“prX5“prWp5“prW&5“prW5“prX&5“p rY5“p rZ5“prX5“prWp5“p rZ5“p rYp F@ƒ 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp F@„ 5“p rY5“p r\5“p r[p5“p r[5“prX5“prWp5“prW&5“prW5“prX&5“p r[5“p r\&5“p rY5“p rZ5“prX5“prWp5“p r\5“p r[p5“p rZ5“p rYp#@…0#ITIMESTEP†#I‡#Jˆ#DTCNVC‰#LMHŠ#SM‹#CLDEFIŒ#DPRS#PRSMID#Q‘#T’#PSFC“#PT”#DQDT•#DTDT–#PCPCOL—#LBOT˜#LTOP™#LPBLš#PWCOL›#DQCOLœ#DQCOLMIN#CPž#RŸ#ELWV #ELIV¡#G¢#TFRZ£#D608¤#PRINT_DIAG¥#IDS¦#IDE§#JDS¨#JDE©#KDSª#KDE«#IMS¬#IME­#JMS®#JME¯#KMS°#KME±#ITS²#ITE³#JTS´#JTEµ#KTSŽ#KTE † ‡ ˆ ‰  Š ‹  DŒ   ,5“p/rŽ&5“p/rŽ5“p0r5“p0r5“p/rŽp  -5“p/rŽ&5“p/rŽ5“p0r5“p0r5“p/rŽp ‘ .5“p/rŽ&5“p/rŽ5“p0r5“p0r5“p/rŽp ’ /5“p/rŽ&5“p/rŽ5“p0r5“p0r5“p/rŽp “  ”  D• 05“p/rŽ&5“p/rŽ5“p0r5“p0r5“p/rŽp D– 15“p/rŽ&5“p/rŽ5“p0r5“p0r5“p/rŽp D— D@˜D™ š D›  Dœ  D  ž  Ÿ     ¡  ¢  £  ¤ ¥ ¦ § ¨ © ª « ¬ ­ ® ¯ ° ± ² ³ ´ µ Ž #@¶ #ITBX·#JTBX¸#PLX¹#PRSMIDº#RDPX»#RDTHEX¼#STHE½#THE0¾#THESP¿#TTBLÀ#TREFÁ · ¸ ¹  º  »  ¼  ½ Mp5“pr·5“pr· ¾ Np5“pr·5“pr· ¿  À Op5“pr¸p5“pr¸5“pr·5“pr¸5“pr·DÁ #@Â#RTHCUTENÃ#RQVCUTENÊ#RQCCUTENË#RQRCUTENÌ#CLDEFIÍ#LOWLYRÎ#CPÏ#RDÐ#RESTARTÑ#ALLOWED_TO_READÒ#IDSÓ#IDEÔ#JDSÕ#JDEÖ#KDS×#KDEØ#IMSÈ#IMEÇ#JMSÄ#JMEÉ#KMSÆ#KMEÅ#ITSÙ#ITEÚ#JTSÛ#JTEÜ#KTSÝ#KTEÞ Dà P5“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Ê Q5“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Ë R5“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Ì S5“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Í T5“prÄ5“prÇ5“prÈp5“prÈ&5“prÈ5“prÇ&5“prÄ5“prÉ5“prÇ5“prÈp5“prÉ5“prÄp DÎU5“prÄ5“prÇ5“prÈp5“prÈ&5“prÈ5“prÇ&5“prÄ5“prÉ5“prÇ5“prÈp5“prÉ5“prÄp Ï  Ð  Ñ Ò Ó Ô Õ Ö × Ø È Ç Ä É Æ Å Ù @Ú Û @Ü Ý @Þ#@ß #JTBXà#NOLDá#XOLDâ#YOLDã#Y2ä#NNEWå#XNEWæ#YNEWç#Pè#Qé à á â lp5“prà5“prà ã mp5“prà5“prà Dä pp5“prà5“prà å æ kp5“prà5“prà Dç qp5“prà5“prà Dè np5“prà5“prà Dé op5“prà5“prà (fn#fn#È>buapp(MODULE_CU_BMJ'@JMODULE_MODEL_CONSTANTS*FpCP+MODULE_MODEL_CONSTANTS)¶tG+MODULE_MODEL_CONSTANTS,*vEPSQ+MODULE_MODEL_CONSTANTS+ pRCP+MODULE_MODEL_CONSTANTS*zA2+MODULE_MODEL_CONSTANTS*ŠvA3+MODULE_MODEL_CONSTANTS*uA4+MODULE_MODEL_CONSTANTS+uyPQ0+MODULE_MODEL_CONSTANTSîpDSPC^rDTTOPÐsEFIFCCtEFIMN·tEFMNT+wELIWV¢vENPLOvENPUPŽtEPSDN rEPSDTt uEPSNTPé uEPSNTT^ uEPSPRÓ tEPSUPG tFR» tFSL/ tFSS£ sGAM pPEPS† rFUPø tFCCltCRMNàtCRMXTvPBMÊvPFRZ@uPNOµuPONE*vPQM vPSHvPSHUŒpRENDPütRHLSCptRHHSCätROWXtSTABDFÌtSTABDS@sSTABS³tSTRESH'pDTSHAL—uTREL pDTTRIGR|pDTPTRIGRìpDSPBFL\pDSP0FLÌpDSPTFL<pDSPBFS¬pDSP0FSpDSPTFSŒuPLvPLQwwPHîtTHLbtTHHÖtTHHQJrITB¼sJTB/sITBQ¢sJTBQqITREFI_MAX†”QS0_EXP ”SQS_EXP® ´PTBL_EXPb!pRDPÒ!pRDPQB"pRDQ²"pRDTH"#pRDTHE’#pRDTHEQ$pRSFCPr$pAVGEFIâ$aBMJDRVC'@aBMJDRV%IDSƒ'@aBMJDRV%IDEÃ'@aBMJDRV%JDS(@aBMJDRV%JDEC(@aBMJDRV%KDSƒ(@aBMJDRV%KDEÃ(@aBMJDRV%IMS)@aBMJDRV%IMEC)@aBMJDRV%JMSƒ)@aBMJDRV%JMEÃ)@aBMJDRV%KMS*@aBMJDRV%KMEC*@aBMJDRV%ITSƒ*@aBMJDRV%ITEÃ*@aBMJDRV%JTS+@aBMJDRV%JTEC+@aBMJDRV%KTSƒ+@aBMJDRV%KTEÃ+@aBMJDRV%DT!,@aBMJDRV%ITIMESTEPC,@aBMJDRV%STEPCUƒ,aBMJDRV%CCLDFRA—/aBMJDRV%CONVCLD«1aBMJDRV%RAINCV¿3aBMJDRV%PRATECÓ5aBMJDRV%CUTOPç7aBMJDRV%CUBOTû9aBMJDRV%KPBL<aBMJDRV%TH#?aBMJDRV%T7BaBMJDRV%QVKEaBMJDRV%QCCONV_HaBMJDRV%QICONV(sK@aBMJDRV%BMJ_RAD_FEEDBACK³KaBMJDRV%PINTÇNaBMJDRV%PMIDÛQaBMJDRV%PIïTaBMJDRV%RHOXaBMJDRV%DZ8W[@aBMJDRV%CPW[@aBMJDRV%R—[@aBMJDRV%ELWV×[@aBMJDRV%ELIV\@aBMJDRV%GW\@aBMJDRV%TFRZ—\@aBMJDRV%D608×\aBMJDRV%CLDEFIë^aBMJDRV%LOWLYRÿ`aBMJDRV%XLAND#caBMJDRV%CU_ACT_FLAG 'eaBMJDRV%RTHCUTEN ;haBMJDRV%RQVCUTENOkBMJem@aBMJ%ITIMESTEP¥m@aBMJ%Iåm@aBMJ%J%n@aBMJ%DTCNVCen@aBMJ%LMH¥n@aBMJ%SMån@aBMJ%CLDEFI%oaBMJ%DPRS9paBMJ%PRSMIDMqaBMJ%QaraBMJ%Tus@aBMJ%PSFCµs@aBMJ%PTõsaBMJ%DQDT uaBMJ%DTDTv@aBMJ%PCPCOL]v@aBMJ%LBOTv@aBMJ%LTOPÝv@aBMJ%LPBLw@aBMJ%PWCOL]w@aBMJ%DQCOLw@aBMJ%DQCOLMINÝw@aBMJ%CPx@aBMJ%R]x@aBMJ%ELWVx@aBMJ%ELIVÝx@aBMJ%Gy@aBMJ%TFRZ]y@aBMJ%D608y@aBMJ%PRINT_DIAGÝy@aBMJ%IDSz@aBMJ%IDE]z@aBMJ%JDSz@aBMJ%JDEÝz@aBMJ%KDS{@aBMJ%KDE]{@aBMJ%IMS{@aBMJ%IMEÝ{@aBMJ%JMS|@aBMJ%JME]|@aBMJ%KMS|@aBMJ%KMEÝ|@aBMJ%ITS}@aBMJ%ITE]}@aBMJ%JTS}@aBMJ%JTEÝ}@aBMJ%KTS~@aBMJ%KTE]~ºTTBLEX@aTTBLEX%ITBXW@aTTBLEX%JTBX—@aTTBLEX%PLX×@aTTBLEX%PRSMID€@aTTBLEX%RDPXW€@aTTBLEX%RDTHEX—€´aTTBLEX%STHEK´aTTBLEX%THE0ÿ@aTTBLEX%THESP?‚$aTTBLEX%TTBLcƒ@aTTBLEX%TREF£ƒlBMJINIT!…aBMJINIT%RTHCUTEN!#ˆaBMJINIT%RQVCUTEN!7‹aBMJINIT%RQCCUTEN!KŽaBMJINIT%RQRCUTEN_‘aBMJINIT%CLDEFIs“aBMJINIT%LOWLYR‡•@aBMJINIT%CPÇ•@aBMJINIT%RD –@aBMJINIT%RESTART(G–@aBMJINIT%ALLOWED_TO_READ‡–@aBMJINIT%IDSÇ–@aBMJINIT%IDE—@aBMJINIT%JDSG—@aBMJINIT%JDE‡—@aBMJINIT%KDSÇ—@aBMJINIT%KDE˜@aBMJINIT%IMSG˜@aBMJINIT%IME‡˜@aBMJINIT%JMSǘ@aBMJINIT%JME™@aBMJINIT%KMSG™@aBMJINIT%KME‡™@aBMJINIT%ITSÇ™@aBMJINIT%ITEš@aBMJINIT%JTSGš@aBMJINIT%JTE‡š@aBMJINIT%KTSÇš@aBMJINIT%KTE›¤SPLINE«›@aSPLINE%JTBXë›@aSPLINE%NOLD+œ´aSPLINE%XOLDßœ´aSPLINE%YOLD“´aSPLINE%Y2Gž@aSPLINE%NNEW‡ž´aSPLINE%XNEW;Ÿ´aSPLINE%YNEWaSPLINE%P£ ´aSPLINE%Q