Changeset 43 in PSPA for parmelaPSPA/trunk/parmelamainv503.f

Timestamp:

Oct 29, 2012, 4:36:47 PM (12 years ago)

Author:

lemeur

Message:

modif lecture noms de fichiers

File:

• parmelaPSPA/trunk/parmelamainv503.f (modified) (2 diffs)

parmelaPSPA/trunk/parmelamainv503.f

@@ -818 +818 @@
 c---line after cfield is filename of sfo7 data
  2800 continue
-      read(nin,'(a12)')filesuper
+C modif glm 29/10/2012      read(nin,'(a12)')filesuper
+      read(nin,*) filesuper
       write(nnout,'(1x,a12)')filesuper
       if(nn.lt.1)then
@@ -946 +947 @@
 c---after Poisson
  3800 continue
-      read (nin,'(a12)')filepois
+C modif glm 29/10/2012      read (nin,'(a12)')filepois
+      read (nin,*)filepois
       write(nnout,'(1x,a12)')filepois
       if(nn.ge.1)then