#include "ctrparam.h" subroutine rd_rstrt_nem #include "BD2G04.COM" #include "TEM.h" read(368),co24tem, & o34tem, & temp4tem, & dtem4tem, & sws4tem, & pre4tem, & strmdur, & qstrm, & aet, & sh2o1m, & sh2o2m, & swe,sfr,drn, & daytsoil, & daysho, & rsh2o c & istorms, c & istrmdry c print *,'AET for J=23' c print *,(aet(nc,23),nc=1,ncoh) return end