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

Timestamp:

Jul 30, 2008, 5:50:03 PM (17 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_u_scal_p.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/gr_u_scal_p.F

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