MODULE YOERRTBG2 #include "tsmbkind.h" USE PARRRTM IMPLICIT NONE SAVE ! ------------------------------------------------------------------- ! ------------------------------------------------------------------- REAL_B :: CORR1(0:200) REAL_B :: CORR2(0:200) ! ----------------------------------------------------------------- ! * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION ** ! J.-J. MORCRETTE E.C.M.W.F. 98/07/14 ! NAME TYPE PURPOSE ! ---- : ---- : --------------------------------------------------- ! CORR1 : REAL : ! CORR2 : REAL : ! ------------------------------------------------------------------- END MODULE YOERRTBG2