Changeset 142 for trunk/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

Timestamp:

10/17/17 17:03:23 (7 years ago)

Author:

dumas

Message:

Debug output suppressed and bug correction in calving

File:

• trunk/SOURCES/Ant40_files/output_anta40_mod-0.4.f90 (modified) (4 diffs)

trunk/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

@@ -95 +95 @@
   do k=1,nvar
     read(568,'(a100)') namevar(k)
-    print*,trim(namevar(k))
     read(568,'(a100)') standard_name(k)
-    print*,trim(standard_name(k))
     read(568,'(a100)') long_name(k)
-    print*,trim(long_name(k))
     read(568,'(a100)') units(k)
-    print*,trim(units(k))
     read(568,*)
   enddo
   close(568)
-  print*,'apres lecture fichier descriptions variables'
 ! Fichier Netcdf initMIP
 ! creation du fichier Netcdf :
   status=nf90_create(path = 'short'//runname//'.nc', cmode = nf90_clobber, ncid = ncid)
   if (status /= nf90_noerr) call handle_err(status)
-  print*,'apres nf90_create'
 
 ! definition des dimension :
   status=nf90_def_dim(ncid, name="time", len=NF90_UNLIMITED, dimid=timeDimID)
   if (status /= nf90_noerr) call handle_err(status)
-  print*,'apres 2'
   status=nf90_def_var(ncid, name="time", xtype=nf90_float, dimids=(/ timeDimID/), varid=timeVarID) 
   if (status /= nf90_noerr) call handle_err(status)
   status=nf90_put_att(ncid, timeVarID, "standard_name", "time")
   if (status /= nf90_noerr) call handle_err(status)
-  print*,'apres 3'
   status=nf90_put_att(ncid, timeVarID,"units", "years since 2007-01-01 00:00:00")
   if (status /= nf90_noerr) call handle_err(status)
-  print*,'apres 4'
 
 ! definition des variables de sortie :
@@ -129 +120 @@
     status=nf90_def_var(ncid, name=trim(namevar(k)), xtype=nf90_float, dimids= &
           (/ timeDimID /), varid=varID(k))
-  print*,'apres 5'
     if (status /= nf90_noerr) call handle_err(status)
     status=nf90_put_att(ncid, varID(k), "standard_name", trim(standard_name(k)))
-    print*,'apres 6',trim(standard_name(k))
     if (status /= nf90_noerr) call handle_err(status)
     status=nf90_put_att(ncid, varID(k), "long_name", trim(long_name(k)))
-    print*,'apres 7',trim(long_name(k))
     if (status /= nf90_noerr) call handle_err(status)
     status=nf90_put_att(ncid, varID(k), "units", trim(units(k)))
-    print*,'apres 8', trim(units(k))
     if (status /= nf90_noerr) call handle_err(status)
   enddo
-  print*,'apres boucle'
 
 ! fin de la definition du fchier :
@@ -284 +270 @@
 !940   format('%%%% ',a,'   time=',f8.0,' %%%%')
 
-print*, 'dans shortoutput avant netcdf ncshortout', ncshortout
 
 if (ncshortout.eq.1) then  ! ecriture netcdf
@@ -305 +290 @@
 
   nbtimeout=nbtimeout+1
-  print*,'ecriture shortnc', nbtimeout
+  
   status=nf90_put_var(ncid, timeVarID, time, start=(/nbtimeout/))
   if (status /= nf90_noerr) call handle_err(status)