--- trunk/libf/dyn3d/pressure_m.f90 2008/02/27 13:16:39 3 +++ trunk/libf/dyn3d/pressure_var.f90 2008/10/15 16:19:57 20 @@ -1,4 +1,4 @@ -module pressure_m +module pressure_var use dimens_m, only: iim, jjm, llm @@ -10,9 +10,9 @@ ! for layer "l") REAL p3d(iim + 1, jjm + 1, llm+1) ! pressure at layer interfaces, in Pa - ! "p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)", + ! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)", ! for interface "l") private iim, jjm, llm -end module pressure_m +end module pressure_var