I™ek820309 919.0\®e  module_bl_camuwpbl_driver.f90MODULE_BL_CAMUWPBL_DRIVERCAMUWPBLINITCAMUWPBLVD_REGISTER@ QMIN@ VDIFF_SELECTOR@ CPAIRGRAVITRAIRZVIRLATVAPLATICEKARMANMWDRYAVOGADBOLTZ@€@ R8SHR_KIND_R8@ PCNSTPCNST_RUNTIMEPCOLSPVERPVERPENDRUNIULOGFIELDNAME_LEN À@ 'H#FIELDSD&#@ #RUBLTEN #RVBLTEN#RTHBLTEN#RQVBLTEN#RESTART#TKE_PBL#IS_CAMMGMP_USED#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“prp5“pr&5“pr5“pr &5“pr 5“pr &5“pr 5“pr5“pr 5“prp5“pr 5“pr p5“pr5“pr p D Š5“pr 5“pr 5“pr p5“pr 5“pr 5“prp5“pr&5“pr5“pr &5“pr 5“pr &5“pr 5“pr5“pr 5“prp5“pr 5“pr p5“pr5“pr p D ‹5“pr 5“pr 5“pr p5“pr 5“pr 5“prp5“pr&5“pr5“pr &5“pr 5“pr &5“pr 5“pr5“pr 5“prp5“pr 5“pr p5“pr5“pr p D Œ5“pr 5“pr 5“pr p5“pr 5“pr 5“prp5“pr&5“pr5“pr &5“pr 5“pr &5“pr 5“pr5“pr 5“prp5“pr 5“pr p5“pr5“pr p  D 5“pr 5“pr 5“pr p5“pr 5“pr 5“prp5“pr&5“pr5“pr &5“pr 5“pr &5“pr 5“pr5“pr 5“prp5“pr 5“pr p5“pr5“pr p                   @  @   @!#@ "?#CAMUWPBL%PCNST##DT$#U_PHY%#V_PHY,#TH_PHY-#RHO.#QV_CURR/#HFX0#QFX1#USTAR2#P8W3#P_PHY4#Z5#T_PHY6#QC_CURR7#QI_CURR8#Z_AT_W9#CLDFRA_OLD_MP:#CLDFRA;#HT<#RTHRATENLW=#EXNER>#IS_CAMMGMP_USED?#ITIMESTEP@#QNC_CURRA#QNI_CURRB#WSEDL3DC#IDSD#IDEE#JDSF#JDEG#KDSH#KDEI#IMS*#IME)#JMS&#JME+#KMS(#KME'#ITSJ#ITEK#JTSL#JTEM#KTSN#KTEO#TAURESX2DP#TAURESY2DQ#RUBLTENR#RVBLTENS#RTHBLTENT#RQIBLTENU#RQNIBLTENV#RQVBLTENW#RQCBLTENX#KVM3DY#KVH3DZ#TPERT2D[#QPERT2D\#WPERT2D]#SMAW3D^#TURBTYPE3D_#TKE_PBL`#PBLH2Da#KPBL2Db @# $  % 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“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*p5“p!r*&5“p!r*5“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(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*p5“p!r*&5“p!r*5“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(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*p5“p!r*&5“p!r*5“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(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*p5“p!r*&5“p!r*5“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(p5“p$r+5“p#r&p 0 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 1 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 2 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 3 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p 4 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p 5 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p 6 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p 7 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p 8 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p 9 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“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*p5“p!r*&5“p!r*5“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(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*p5“p!r*&5“p!r*5“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(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*p5“p!r*&5“p!r*5“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(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*p5“p!r*&5“p!r*5“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(p5“p$r+5“p#r&p ? @ A 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p B 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p C 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p D E F G H I * ) & + ( ' J K L M N O DP $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 DQ %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 DR 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DS 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DT 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DU 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DV 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DW 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DX 5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DY )5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“p&r'5“p%r(p5“p$r+5“p#r&p DZ *5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“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 D^ #5“p#r&5“p&r'5“p%r(p5“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+5“p"r)5“p!r*p5“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*p5“p!r*&5“p!r*5“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(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*p5“p!r*&5“p!r*5“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(p5“p$r+5“p#r&p Da 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 Db5“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#@ c @fn#fn/à2buapp(MODULE_BL_CAMUWPBL_DRIVEREJCONSTITUENTS!WOJDIFFUSION_SOLVER¦JPHYSCONST%OJSHR_KIND_MOD#t€JMODULE_CAM_SUPPORT0ô\VDIFF_SELECTOR+DIFFUSION_SOLVER>P”%VDIFF_SELECTOR%FIELDS+DIFFUSION_SOLVER=FIELDSä™CAMUWPBLINIT%}aCAMUWPBLINIT%RUBLTEN%‘aCAMUWPBLINIT%RVBLTEN&¥ aCAMUWPBLINIT%RTHBLTEN&¹aCAMUWPBLINIT%RQVBLTEN%Í@aCAMUWPBLINIT%RESTART% aCAMUWPBLINIT%TKE_PBL-!@aCAMUWPBLINIT%IS_CAMMGMP_USED!a@aCAMUWPBLINIT%IDS!¡@aCAMUWPBLINIT%IDE!á@aCAMUWPBLINIT%JDS!!@aCAMUWPBLINIT%JDE!a@aCAMUWPBLINIT%KDS!¡@aCAMUWPBLINIT%KDE!á@aCAMUWPBLINIT%IMS!!@aCAMUWPBLINIT%IME!a@aCAMUWPBLINIT%JMS!¡@aCAMUWPBLINIT%JME!á@aCAMUWPBLINIT%KMS!!@aCAMUWPBLINIT%KME!a@aCAMUWPBLINIT%ITS!¡@aCAMUWPBLINIT%ITE!á@aCAMUWPBLINIT%JTS!!@aCAMUWPBLINIT%JTE!a@aCAMUWPBLINIT%KTS!¡@aCAMUWPBLINIT%KTEáXCAMUWPBL@9@CAMUWPBL%PCNST+MODULE_CAM_SUPPORT=PCNST_RUNTIMEy@aCAMUWPBL%DT¹aCAMUWPBL%U_PHYÍ aCAMUWPBL%V_PHY á#aCAMUWPBL%TH_PHYõ&aCAMUWPBL%RHO! *aCAMUWPBL%QV_CURR-aCAMUWPBL%HFX1/aCAMUWPBL%QFXE1aCAMUWPBL%USTARY3aCAMUWPBL%P8Wm6aCAMUWPBL%P_PHY9aCAMUWPBL%Z•<aCAMUWPBL%T_PHY!©?aCAMUWPBL%QC_CURR!½BaCAMUWPBL%QI_CURR ÑEaCAMUWPBL%Z_AT_W'åHaCAMUWPBL%CLDFRA_OLD_MP ùKaCAMUWPBL%CLDFRA OaCAMUWPBL%HT$!QaCAMUWPBL%RTHRATENLW5TaCAMUWPBL%EXNER)IW@aCAMUWPBL%IS_CAMMGMP_USED#‰W@aCAMUWPBL%ITIMESTEP"ÉWaCAMUWPBL%QNC_CURR"ÝZaCAMUWPBL%QNI_CURR!ñ]aCAMUWPBL%WSEDL3Da@aCAMUWPBL%IDSEa@aCAMUWPBL%IDE…a@aCAMUWPBL%JDSÅa@aCAMUWPBL%JDEb@aCAMUWPBL%KDSEb@aCAMUWPBL%KDE…b@aCAMUWPBL%IMSÅb@aCAMUWPBL%IMEc@aCAMUWPBL%JMSEc@aCAMUWPBL%JME…c@aCAMUWPBL%KMSÅc@aCAMUWPBL%KMEd@aCAMUWPBL%ITSEd@aCAMUWPBL%ITE…d@aCAMUWPBL%JTSÅd@aCAMUWPBL%JTEe@aCAMUWPBL%KTSEe@aCAMUWPBL%KTE#…eaCAMUWPBL%TAURESX2D#™gaCAMUWPBL%TAURESY2D!­iaCAMUWPBL%RUBLTEN!ÁlaCAMUWPBL%RVBLTEN"ÕoaCAMUWPBL%RTHBLTEN"éraCAMUWPBL%RQIBLTEN#ýuaCAMUWPBL%RQNIBLTEN"yaCAMUWPBL%RQVBLTEN"%|aCAMUWPBL%RQCBLTEN9aCAMUWPBL%KVM3DM‚aCAMUWPBL%KVH3D!a…aCAMUWPBL%TPERT2D!u‡aCAMUWPBL%QPERT2D!‰‰aCAMUWPBL%WPERT2D ‹aCAMUWPBL%SMAW3D$±ŽaCAMUWPBL%TURBTYPE3D!Å‘aCAMUWPBL%TKE_PBL Ù”aCAMUWPBL%PBLH2D í–aCAMUWPBL%KPBL2D™HVD_REGISTER