--- trunk/libf/dyn3d/calfis.f90	2011/07/01 15:00:48	47
+++ trunk/libf/dyn3d/calfis.f90	2013/02/18 16:33:12	69
@@ -48,7 +48,7 @@
     ! pfluxrad radiative fluxes / input and output
 
     use comconst, only: kappa, cpp, dtphys, g
-    use comvert, only: preff
+    use disvert_m, only: preff
     use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv
     use dimens_m, only: iim, jjm, llm, nqmx
     use dimphy, only: klon
@@ -71,7 +71,7 @@
     REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx)
     ! (mass fractions of advected fields)
 
-    REAL phis(iim + 1, jjm + 1)
+    REAL, intent(in):: phis(iim + 1, jjm + 1)
     REAL, intent(in):: phi(iim + 1, jjm + 1, llm)
 
     REAL dv(iim + 1, jjm, llm)