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

Diff of /trunk/dyn3d/gr_int_dyn_m.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 1  Line 1 
1  module gr_int_dyn_m  module gr_int_dyn_m
2    
   ! Clean: no C preprocessor directive, no include line  
   
3    implicit none    implicit none
4    
5  contains  contains
# Line 25  contains Line 23  contains
23    
24      gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole      gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole
25      gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole      gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole
26      gr_int_dyn(:iim, 2:jp1 - 1) = champin(:, 2:jp1 - 1)      gr_int_dyn(: iim, 2: jp1 - 1) = champin(:, 2: jp1 - 1)
27      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)
28    
29    END function gr_int_dyn    END function gr_int_dyn
30    
Legend:
Removed from v.3  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21