‹•Œk820309 919.0a[®e  module_ra_goddard.f90MODULE_RA_GODDARDINIT_GODDARDRADGODDARDRAD  @  € X#CHECK_REFF%IEEE_FLAG_TYPEn X00000008#CHECK_REFF%IEEE_FLAG_TYPE € X#GODDARDRAD%IEEE_FLAG_TYPEn X00000008#GODDARDRAD%IEEE_FLAG_TYPE € X#CHECK_REFF%IEEE_FLAG_TYPEn X00000002#CHECK_REFF%IEEE_FLAG_TYPE € X#GODDARDRAD%IEEE_FLAG_TYPEn X00000002#GODDARDRAD%IEEE_FLAG_TYPE € X#CHECK_REFF%IEEE_FLAG_TYPEn X00000004#CHECK_REFF%IEEE_FLAG_TYPE € X#GODDARDRAD%IEEE_FLAG_TYPEn X00000004#GODDARDRAD%IEEE_FLAG_TYPE € X#CHECK_REFF%IEEE_FLAG_TYPEn X00000001#CHECK_REFF%IEEE_FLAG_TYPE € X#GODDARDRAD%IEEE_FLAG_TYPEn X00000001#GODDARDRAD%IEEE_FLAG_TYPE € X#CHECK_REFF%IEEE_FLAG_TYPEn X00000010#CHECK_REFF%IEEE_FLAG_TYPE € X#GODDARDRAD%IEEE_FLAG_TYPEn X00000010#GODDARDRAD%IEEE_FLAG_TYPE  € T#CHECK_REFF%IEEE_FLAG_TYPEW#CHECK_REFF%IEEE_FLAG_TYPEpX#CHECK_REFF%IEEE_FLAG_TYPEn X00000002X#CHECK_REFF%IEEE_FLAG_TYPEn X00000004X#CHECK_REFF%IEEE_FLAG_TYPEn X00000008hpppp#CHECK_REFF%IEEE_FLAG_TYPE  € T#GODDARDRAD%IEEE_FLAG_TYPEW#GODDARDRAD%IEEE_FLAG_TYPEpX#GODDARDRAD%IEEE_FLAG_TYPEn X00000002X#GODDARDRAD%IEEE_FLAG_TYPEn X00000004X#GODDARDRAD%IEEE_FLAG_TYPEn X00000008hpppp#GODDARDRAD%IEEE_FLAG_TYPE  € T#CHECK_REFF%IEEE_FLAG_TYPEW#CHECK_REFF%IEEE_FLAG_TYPEpW#CHECK_REFF%IEEE_FLAG_TYPEpX#CHECK_REFF%IEEE_FLAG_TYPEn X00000002X#CHECK_REFF%IEEE_FLAG_TYPEn X00000004X#CHECK_REFF%IEEE_FLAG_TYPEn X00000008X#CHECK_REFF%IEEE_FLAG_TYPEn X00000001X#CHECK_REFF%IEEE_FLAG_TYPEn X00000010hpppp#CHECK_REFF%IEEE_FLAG_TYPE  € T#GODDARDRAD%IEEE_FLAG_TYPEW#GODDARDRAD%IEEE_FLAG_TYPEpW#GODDARDRAD%IEEE_FLAG_TYPEpX#GODDARDRAD%IEEE_FLAG_TYPEn X00000002X#GODDARDRAD%IEEE_FLAG_TYPEn X00000004X#GODDARDRAD%IEEE_FLAG_TYPEn X00000008X#GODDARDRAD%IEEE_FLAG_TYPEn X00000001X#GODDARDRAD%IEEE_FLAG_TYPEn X00000010hpppp#GODDARDRAD%IEEE_FLAG_TYPE#@ #ALLOWED_TO_READ#IDS#IDE#JDS#JDE#KDS#KDE#IMS#IME#JMS#JME#KMS#KME #ITS!#ITE"#JTS##JTE$#KTS%#KTE&               ! " # $ % &#@ 'K#SW_OR_LW(#DX)#RTHRATEN*#GSF1#XLAT2#XLONG3#DZ8W4#T8W5#RHO_PHY6#ALB7#EMISS8#TSK9#T3D:#QV;#QC<#QR=#QI>#QS?#QG@#QHA#P3DB#P8W3DC#PI3DD#CLDFRA3DE#GMTF#CPG#GH#JULDAYI#XTIMEJ#DECLINK#SOLCONL#RADFRQM#DEGRADN#COD2D_OUTO#CTOP2D_OUTP#WARM_RAINQ#F_QVR#F_QCS#F_QRT#F_QIU#F_QSV#F_QGW#F_QHX#REC3DY#REI3DZ#RER3D[#RES3D\#REG3D]#REH3D^#IDS_#IDE`#JDSa#JDEb#KDSc#KDEd#IMS/#IME.#JMS+#JME0#KMS-#KME,#ITSe#ITEf#JTSg#JTEh#KTSi#KTEj#ERBE_OUTk#ITIMESTEPl#DT_INm#SFLXDn#SWDDIRo#SWDDNIp#SWDDIFq#COSZENr @( )  D* 75“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p D1 85“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p @2 5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p 3 5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p 4 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @5 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p 6 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @7 5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p @8 "5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p 9 !5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p @: 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @; #5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @< $5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @= %5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @> &5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @? '5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @@ (5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @A )5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @B 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p @C 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p D 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p E 5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p F  G  H  @I J  @K  L  M  N  FO 95“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p FP :5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p Q @R @S @T @U @V @W @X Y *5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p Z ,5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p [ +5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p \ -5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p ] .5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p ^ /5“p:r+5“p=r,5“p<r-p5“p<r-5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p<r-5“p=r,&5“p:r+5“p;r05“p9r.5“p8r/p5“p=r,5“p<r-p5“p;r05“p:r+p _ ` a b c d / . + 0 - , e @f g @h i j Dk <p5“p;r05“p:r+p5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r0&pp5“p9r.5“p8r/p5“p;r05“p:r+pp l m  F@n ;p5“p;r05“p:r+p5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r0&pp5“p9r.5“p8r/p5“p;r05“p:r+pp F@o =5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p F@p >5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p F@q ?5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p @r @5“p:r+5“p9r.5“p8r/p5“p8r/&5“p8r/5“p9r.&5“p:r+5“p;r05“p9r.5“p8r/p5“p;r05“p:r+p @@s'#CLOUDt#RAINu#ICEv#SNOWw#GRAUPELx#HAILyt u v w  x y @@z'8#SO4{#BLC|#OCN}#OCH~#SSA#SSC€#DU1#DU2‚#DU3ƒ#DU4„#DU5…#DU6†#DU7‡#DU8ˆ{ | } ~   €  ‚ ƒ „$ …( †, ‡0 ˆ4  @'#IEEE_FLAG‰D‰  @'#IEEE_FLAGŠDŠ 0fn#fn'Š+buapp(MODULE_RA_GODDARD!ū@JMODULE_WRF_ERROR";@JMODULE_CHECKERROR-{IEEE_INVALID+IEEE_EXCEPTIONS-‚IEEE_INVALID+IEEE_EXCEPTIONS.‰IEEE_OVERFLOW+IEEE_EXCEPTIONS.IEEE_OVERFLOW+IEEE_EXCEPTIONS4—IEEE_DIVIDE_BY_ZERO+IEEE_EXCEPTIONS4žIEEE_DIVIDE_BY_ZERO+IEEE_EXCEPTIONS/„IEEE_UNDERFLOW+IEEE_EXCEPTIONS/¬IEEE_UNDERFLOW+IEEE_EXCEPTIONS-³ IEEE_INEXACT+IEEE_EXCEPTIONS-ŗ IEEE_INEXACT+IEEE_EXCEPTIONS+Į „IEEE_USUAL+IEEE_EXCEPTIONS+f„IEEE_USUAL+IEEE_EXCEPTIONS) “IEEE_ALL+IEEE_EXCEPTIONS)æ“IEEE_ALL+IEEE_EXCEPTIONS s’INIT_GODDARDRAD0r@aINIT_GODDARDRAD%ALLOWED_TO_READ$²@aINIT_GODDARDRAD%IDS$ņ@aINIT_GODDARDRAD%IDE$2@aINIT_GODDARDRAD%JDS$r@aINIT_GODDARDRAD%JDE$²@aINIT_GODDARDRAD%KDS$ņ@aINIT_GODDARDRAD%KDE$2@aINIT_GODDARDRAD%IMS$r@aINIT_GODDARDRAD%IME$²@aINIT_GODDARDRAD%JMS$ņ@aINIT_GODDARDRAD%JME$2@aINIT_GODDARDRAD%KMS$r@aINIT_GODDARDRAD%KME$²@aINIT_GODDARDRAD%ITS$ņ@aINIT_GODDARDRAD%ITE$2@aINIT_GODDARDRAD%JTS$r@aINIT_GODDARDRAD%JTE$²@aINIT_GODDARDRAD%KTS$ņ@aINIT_GODDARDRAD%KTE2NGODDARDRAD$€!PaGODDARDRAD%SW_OR_LWŠ!@aGODDARDRAD%DX$"aGODDARDRAD%RTHRATEN$%aGODDARDRAD%GSF 8'aGODDARDRAD%XLAT!L)aGODDARDRAD%XLONG `+aGODDARDRAD%DZ8Wt.aGODDARDRAD%T8W#ˆ1aGODDARDRAD%RHO_PHYœ4aGODDARDRAD%ALB!°6aGODDARDRAD%EMISSÄ8aGODDARDRAD%TSKŲ:aGODDARDRAD%T3Dģ=aGODDARDRAD%QVAaGODDARDRAD%QCDaGODDARDRAD%QR(GaGODDARDRAD%QI