21 |
integer iflag1(len),nk1(len),icb1(len),icbs1(len) |
integer iflag1(len),nk1(len),icb1(len),icbs1(len) |
22 |
real plcl1(len),tnk1(len),qnk1(len),gznk1(len) |
real plcl1(len),tnk1(len),qnk1(len),gznk1(len) |
23 |
real pbase1(len),buoybase1(len) |
real pbase1(len),buoybase1(len) |
24 |
real t1(len,nd),q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd) |
real, intent(in):: t1(len,nd) |
25 |
|
real q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd) |
26 |
real gz1(len,nd),h1(len,nd),lv1(len,nd),cpn1(len,nd) |
real gz1(len,nd),h1(len,nd),lv1(len,nd),cpn1(len,nd) |
27 |
real p1(len,nd),ph1(len,nd+1),tv1(len,nd),tp1(len,nd) |
real p1(len,nd),ph1(len,nd+1),tv1(len,nd),tp1(len,nd) |
28 |
real tvp1(len,nd),clw1(len,nd) |
real tvp1(len,nd),clw1(len,nd) |