--- trunk/libf/phylmd/Mobidic/regr_pr_o3.f90 2008/08/07 15:46:20 19 +++ trunk/libf/phylmd/Mobidic/regr_pr_o3.f90 2008/10/15 16:19:57 20 @@ -89,7 +89,7 @@ call nf95_close(ncid) - ! Regrid in pressure by averaging a step function of pressure. + ! Regrid in pressure by averaging a step function of pressure: do j = 1, jjm + 1 do i = 1, iim if (dyn_phy(i, j)) then