/[lmdze]/trunk/libf/phylmd/Mobidic/regr_pr_o3.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/Mobidic/regr_pr_o3.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 19 by guez, Thu Aug 7 15:46:20 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 89  contains Line 89  contains
89    
90      call nf95_close(ncid)      call nf95_close(ncid)
91    
92      ! Regrid in pressure by averaging a step function of pressure.      ! Regrid in pressure by averaging a step function of pressure:
93      do j = 1, jjm + 1      do j = 1, jjm + 1
94         do i = 1, iim         do i = 1, iim
95            if (dyn_phy(i, j)) then            if (dyn_phy(i, j)) then
Legend:
Removed from v.19  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21