/[lmdze]/trunk/dyn3d/gr_int_dyn_m.f90
ViewVC logotype

Diff of /trunk/dyn3d/gr_int_dyn_m.f90

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 49 by guez, Wed Aug 24 11:43:14 2011 UTC
# Line 25  contains Line 25  contains
25    
26      gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole      gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole
27      gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole      gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole
28      gr_int_dyn(:iim, 2:jp1 - 1) = champin(:, 2:jp1 - 1)      gr_int_dyn(: iim, 2: jp1 - 1) = champin(:, 2: jp1 - 1)
29      gr_int_dyn(iim + 1, 2:jp1 - 1) = gr_int_dyn(1, 2:jp1 - 1)      gr_int_dyn(iim + 1, 2: jp1 - 1) = gr_int_dyn(1, 2: jp1 - 1)
30    
31    END function gr_int_dyn    END function gr_int_dyn
32    
Legend:
Removed from v.3  
changed lines
  Added in v.49
  ViewVC Help
Powered by ViewVC 1.1.21