--- trunk/libf/phylmd/Thermcell/thermcell.f90	2011/07/01 15:00:48	47
+++ trunk/libf/phylmd/Thermcell/thermcell.f90	2011/09/23 12:28:01	52
@@ -27,7 +27,8 @@
 
   INTEGER ngrid, nlay, w2di, tho
   real ptimestep, l_mix, r_aspect
-  REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)
+  REAL, intent(in):: pt(ngrid, nlay)
+  real pdtadj(ngrid, nlay)
   REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
   REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
   REAL po(ngrid, nlay), pdoadj(ngrid, nlay)