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

Timestamp:

Jul 5, 2011, 11:44:55 AM (13 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/bilan_dyn_p.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dpar/bilan_dyn_p.F

@@ -389 +389 @@
          Q_cum(:,jjb:jje,:,:)=0.
          flux_uQ_cum(:,jjb:jje,:,:)=0.
-         flux_v_cum(:,jjb:jje,:)=0.
          if (pole_sud) jje=jj_end-1
          flux_v_cum(:,jjb:jje,:)=0.