include file: comvarstd.cdk 5 #if defined (DOC) * * . Y. Yang July 2003 * - Variable names for which * background error variances are to be read * . Y.J. Rochon Feb 2006 * - Increased inbrvar3d to 30. * IMPORTANT: inbrvar3d (and inbrvar2d) must be consistent in * size with JPNVARMAX (comstate.cdk), NCMTMAX (comdim.cdk) * JPNVARM (comgdpar.cdk) * - Added optional std. dev. scaling factor (default values: 1.0) * #endif ! integer inbrvar3d,inbrvar2d parameter(inbrvar3d=30,inbrvar2d=4) real*8 sigscl3d(inbrvar3d),sigscl2d(inbrvar2d) character*4 clvar3d(inbrvar3d),clvar2d(inbrvar2d) COMMON /COMVARSTD/clvar3d, clvar2d COMMON /COMVARSTDR/sigscl3d,sigscl2d