Changeset 43 in PSPA for parmelaPSPA

Timestamp:

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

Author:

lemeur

Message:

modif lecture noms de fichiers

Location:

parmelaPSPA/trunk

Files:

• parmelamainv503.f (modified) (2 diffs)
• poisson.f (modified) (1 diff)

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

parmelaPSPA/trunk/poisson.f

@@ -16 +16 @@
       read(npois,*) prmin,prmax,nrp
       read(npois,*) pzmin,pzmax,nzp
+C      print *, ' lu prmin, max, nrp ', prmin,prmax,nrp
+C      print *, ' lu pzmin,pzmax,nzp ', pzmin,pzmax,nzp
+
+
       pdr=(prmax-prmin)/float(nrp)
       pdz=(pzmax-pzmin)/float(nzp)