Changeset 1550 for LMDZ5/trunk/libf


Ignore:
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.

Location:
LMDZ5/trunk/libf
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3d/integrd.F

    r1454 r1550  
    8989        IF( ps(ij).LT.0. ) THEN
    9090         PRINT*,' Au point ij = ',ij, ' , pression sol neg. ', ps(ij)
    91          STOP' dans integrd'
     91         print *, ' dans integrd'
     92         stop 1
    9293        ENDIF
    9394      ENDDO
  • LMDZ5/trunk/libf/dyn3d/vlsplt.F

    r1520 r1550  
    129129      IMPLICIT NONE
    130130c
    131 #include "dimensions.h"
    132 #include "paramet.h"
    133 #include "logic.h"
    134 #include "comvert.h"
    135 #include "comconst.h"
     131      include "dimensions.h"
     132      include "paramet.h"
     133      include "logic.h"
     134      include "comvert.h"
     135      include "comconst.h"
     136      include "iniprint.h"
    136137c
    137138c
     
    351352
    352353      IF(n0.gt.0) THEN
    353       PRINT*,'Nombre de points pour lesquels on advect plus que le'
     354      if (prt_level > 2) PRINT *,
     355     $        'Nombre de points pour lesquels on advect plus que le'
    354356     &       ,'contenu de la maille : ',n0
    355357
  • LMDZ5/trunk/libf/dyn3dpar/bilan_dyn_p.F

    r1403 r1550  
    389389         Q_cum(:,jjb:jje,:,:)=0.
    390390         flux_uQ_cum(:,jjb:jje,:,:)=0.
    391          flux_v_cum(:,jjb:jje,:)=0.
    392391         if (pole_sud) jje=jj_end-1
    393392         flux_v_cum(:,jjb:jje,:)=0.
  • LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

    r1454 r1550  
    128128         PRINT*,' Au point ij = ',stop_it, ' , pression sol neg. '
    129129     &         , ps(stop_it)
    130          STOP' dans integrd'
     130         print *, ' dans integrd'
     131         stop 1
    131132        ENDIF
    132133
  • LMDZ5/trunk/libf/phylmd/coefkzmin.F

    r1067 r1550  
    5050      REAL teta(klon,klev)
    5151
    52       REAL km(klon,klev+1)
    53       REAL kn(klon,klev+1)
     52      REAL km(klon,klev)
     53      REAL kn(klon,klev)
    5454      integer knon
    5555
  • LMDZ5/trunk/libf/phylmd/hgardfou.F

    r1279 r1550  
    4545         jbad = 0
    4646         DO i = 1, klon
    47          IF (zt(i).GT.370.0) THEN
     47         IF (zt(i) > 370.) THEN
    4848            jbad = jbad + 1
    4949            jadrs(jbad) = i
Note: See TracChangeset for help on using the changeset viewer.