Changeset 1385 for LMDZ4/trunk/libf/phylmd/atm2geo.F90

Timestamp:

May 7, 2010, 9:15:50 AM (14 years ago)

Author:

Laurent Fairhead

Message:

Correction of bug in wind component transformation at the poles

---

Correction d'un bug dans la transformation du vent aux pôles

OM

File:

• LMDZ4/trunk/libf/phylmd/atm2geo.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/atm2geo.F90

@@ -34 +34 @@
 ! Value at North Pole  
   IF (is_north_pole) THEN
-     pxx(:, 1) = pxx(1,1)
-     pyy(:, 1) = pyy(1,1)
+     pxx(:, 1) = - pte (1, 1)
+     pyy(:, 1) = - ptn (1, 1) 
      pzz(:, 1) = pzz(1,1)
   ENDIF