Changeset 2513 for trunk


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.

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/README

    r2512 r2513  
    33623362== 1/05/2021 == JN
    33633363Added a "cap_albedo" flag (default false) in order to allow northern polar cap albedo to remain unchanged by water frost deposition.
     3364
     3365== 3/05/2021 == LR
     3366Bugfix for streamfunction tool. Now asks the user for another file in which to
     3367find cv.

  • 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.