igsm/src/rd_rstrt_nem.F

#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
1	#include "ctrparam.h"
2	subroutine rd_rstrt_nem
3	#include "BD2G04.COM"
4	#include "TEM.h"
5	read(368),co24tem,
6	& o34tem,
7	& temp4tem,
8	& dtem4tem,
9	& sws4tem,
10	& pre4tem,
11	& strmdur,
12	& qstrm,
13	& aet,
14	& sh2o1m,
15	& sh2o2m,
16	& swe,sfr,drn,
17	& daytsoil,
18	& daysho,
19	& rsh2o
20	c & istorms,
21	c & istrmdry
22	c print *,'AET for J=23'
23	c print *,(aet(nc,23),nc=1,ncoh)
24	return
25	end