/[lmdze]/trunk/dyn3d/qminimum.f
ViewVC logotype

Diff of /trunk/dyn3d/qminimum.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC
# Line 76  c Line 76  c
76           DO i = 1, ip1jmp1           DO i = 1, ip1jmp1
77              IF (zx_pump(i).GT.0.0) THEN              IF (zx_pump(i).GT.0.0) THEN
78                 imprim = imprim + 1                 imprim = imprim + 1
 CC               PRINT*,'QMINIMUM:  en ',i,zx_pump(i)  
79              ENDIF              ENDIF
80           ENDDO           ENDDO
81        ENDIF        ENDIF
Legend:
Removed from v.3  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.21