Changeset 1550 for LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

Timestamp:

Jul 5, 2011, 11:44:55 AM (14 years ago)

Author:

lguez

Message:

Bug fix in "bilan_dyn_p". The index was out of bounds in the removed
assignment . Also, the removed assignment was useless.

Bug fix in "coefkzmin". The size of a dummy array cannot exceed the
size of the associated actual array. ("coefkzmin" is called by
"coef_diff_turb".) "km(:, klev+1)" and "kn(:, klev+1)" were not
defined in "coefkzmin" so this was maybe an innocuous bug.

File:

• LMDZ5/trunk/libf/dyn3dpar/integrd_p.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

@@ -128 +128 @@
          PRINT*,' Au point ij = ',stop_it, ' , pression sol neg. '
      &         , ps(stop_it)
-         STOP' dans integrd'
+         print *, ' dans integrd'
+         stop 1
         ENDIF