Changeset 718 for LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h

Timestamp:

Oct 6, 2006, 12:26:45 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Corrections bugs divers YM
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h (modified) (1 diff)

LMDZ4/branches/V3_test/libf/phylmd/ini_histISCCP.h

@@ -70 +70 @@
           jmin_ins=1
           jmax_ins=jjmp1
-          do i=1,iim-1
-             if(zx_lon(i,1).lt.lonmin_ins) imin_ins=i
-             if(zx_lon(i,1).le.lonmax_ins) imax_ins=i+1
-          enddo
-          do j=1,jjmp1
-             if(zx_lat(1,j).ge.latmin_ins) jmax_ins=j
-             if(zx_lat(1,j).gt.latmax_ins) jmin_ins=j
-          enddo
+cym          do i=1,iim-1
+cym             if(zx_lon(i,1).lt.lonmin_ins) imin_ins=i
+cym             if(zx_lon(i,1).le.lonmax_ins) imax_ins=i+1
+cym          enddo
+cym          do j=1,jjmp1
+cym             if(zx_lat(1,j).ge.latmin_ins) jmax_ins=j
+cym             if(zx_lat(1,j).gt.latmax_ins) jmin_ins=j
+cym          enddo
 c
           print*,'On stoke le fichier histISCCP instantanne sur ',