Changeset 605 for BOL/trunk/IPCC

Timestamp:

Mar 21, 2005, 5:11:34 PM (20 years ago)

Author:

Laurent Fairhead

Message:

Un probleme sur la boucle de lecture du fichier de correspondance
variable IPSL - variable IPCC empechait l'execution sur PC
LF

File:

• BOL/trunk/IPCC/ts2IPCC.F90 (modified) (4 diffs)

BOL/trunk/IPCC/ts2IPCC.F90

@@ -88 +88 @@
   endif
 
-  do while (iostat == 0)
+  config: do 
     READ(20,'(A)',iostat=iostat)line_read
-    line_read = trim(line_read)
+    IF (iostat /= 0) exit
+    line_read = TRIM(line_read)
     IF (INDEX(line_read, '#') /= 1) THEN
       first_part = trim(line_read(1:INDEX(line_read, '=')-1))
@@ -125 +126 @@
       end select
     endif
-  enddo
+  enddo config
   if (iostat > 0) then
     WRITE(lunout,*)'Probleme de lecture du fichier config.def, iostat = ',iostat
@@ -140 +141 @@
   endif
   indice = 0
-  do while (iostat == 0)
+  table: do
     READ(20,'(A)',iostat=iostat)line_read
-    line_read = trim(line_read)
+    IF (iostat /= 0) exit 
+    line_read = TRIM(line_read)
     IF (INDEX(line_read, '#') /= 1) THEN
       indice = indice + 1
@@ -154 +156 @@
       ipcc_table(indice) = trim(line_read(INDEX(line_read, '|')+1:))
     endif
-  enddo
+  enddo table
   indice = indice - 1
   close(20)