o2k820309 919.0e\e  module_ra_rrtmg_sw.f90RRTMG_SW_CLDPRMC NGPTSWJPBANDJPB1JPB2 EXTLIQ1SSALIQ1ASYLIQ1EXTICE2SSAICE2ASYICE2EXTICE3SSAICE3ASYICE3FDLICE3ABARIBBARICBARIDBARIEBARIFBARI WAVENUM1WAVENUM2NGB HVRCLCHNAMCLC @ IMKIND_IMRBKIND_RB      p112   29   16   29   , pp:&ppp:p   , pp:&ppp:p  , pp:&ppp:p  Z pp+&ppp+p  Z pp+&ppp+p  Z pp+&ppp+p   pp.&ppp.p   pp.&ppp.p   pp.&ppp.p   pp.&ppp.p   ppp   ppp   ppp   ppp   ppp   ppp   p&ppp   p&ppp  pppppp     #@!#NLAYERS"#INFLAG##ICEFLAG$#LIQFLAG%#CLDFMC&#CIWPMC'#CLWPMC(#CSWPMC)#REICMC*#RELQMC+#RESNMC,#TAORMC-#TAUCMC.#SSACMC/#ASMCMC0#FSFCMC1 " # $ % & && ' && ( && ) && * & + & , & D- && D. && D/ && D0 && 1 &&0fn#fnXJPARRRSW(JRRSW_CLDVJRRSW_WVN2OJRRSW_VSNVJPARKIND#pIM+PARKIND=KIND_IM#GpRB+PARKIND=KIND_RBsNGPTSW+PARRRSW*rJPBAND+PARRRSWrJPB1+PARRRSWrJPB2+PARRRSW!EXTLIQ1+RRSW_CLD!DSSALIQ1+RRSW_CLD!ASYLIQ1+RRSW_CLD!EXTICE2+RRSW_CLD!SSAICE2+RRSW_CLD!T ASYICE2+RRSW_CLD! EXTICE3+RRSW_CLD! SSAICE3+RRSW_CLD! ASYICE3+RRSW_CLD!d FDLICE3+RRSW_CLD( ABARI+RRSW_CLD BBARI+RRSW_CLDPCBARI+RRSW_CLDDBARI+RRSW_CLDxEBARI+RRSW_CLD FBARI+RRSW_CLD"WAVENUM1+RRSW_WVN"DWAVENUM2+RRSW_WVNNGB+RRSW_WVN |@HVRCLC+RRSW_VSN!@HNAMCLC+RRSW_VSN CLDPRMC_SW#@aCLDPRMC_SW%NLAYERS"G@aCLDPRMC_SW%INFLAG#@aCLDPRMC_SW%ICEFLAG#@aCLDPRMC_SW%LIQFLAG"aCLDPRMC_SW%CLDFMC"aCLDPRMC_SW%CIWPMC"OaCLDPRMC_SW%CLWPMC"aCLDPRMC_SW%CSWPMC"aCLDPRMC_SW%REICMC"#aCLDPRMC_SW%RELQMC"aCLDPRMC_SW%RESNMC";aCLDPRMC_SW%TAORMC"aCLDPRMC_SW%TAUCMC"aCLDPRMC_SW%SSACMC"'aCLDPRMC_SW%ASMCMC"aCLDPRMC_SW%FSFCMC