Changeset 985 for LMDZ4/trunk/libf/dyn3dpar/gr_v_scal_p.F

Timestamp:

Jul 30, 2008, 5:50:03 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Mise a jour de dyn3dpar par rapport a dyn3d, inclusion OpenMP et filtre FFT YM
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/gr_v_scal_p.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/gr_v_scal_p.F

@@ -49 +49 @@
       ijb=ij_begin
       ije=ij_end
-      if (pole_nord) ijb=ij_begin+1
-      if (pole_sud)  ije=ij_end-1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
       
       DO l=1,nx