Changeset 2513 for trunk/LMDZ.MARS/util


Ignore:
Timestamp:
May 3, 2021, 3:41:59 PM (4 years ago)
Author:
lrossi
Message:

MARS GCM: Bugfix for streamfunction tool. Now asks the user for another file in which to
variable cv.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/util/streamfunction.F90

    r1847 r2513  
    396396if (ierr.ne.NF_NOERR) then
    397397  write(*,*) "Warning: Failed to get cv ID from file ",trim(infile)
    398   infile2="diagfi.nc"
     398  write(*,*) "Please provide another file (a start file for ex.)"
     399  read(*,'(a128)') infile2
     400
    399401  write(*,*) "         Trying file ",trim(infile2)
    400402  ierr=NF_OPEN(infile2,NF_NOWRITE,infid2)
    401403  if (ierr.ne.NF_NOERR) then
    402      infile2="diagfi1.nc"
     404     infile2="start.nc"
    403405     write(*,*) "         Trying file ",trim(infile2)
    404406     ierr=NF_OPEN(infile2,NF_NOWRITE,infid2)
     
    429431   endif
    430432endif
    431 
    432433
    433434!Other variables: rho, temp
Note: See TracChangeset for help on using the changeset viewer.