Changeset 2513 for trunk/LMDZ.MARS/util/streamfunction.F90

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:

• trunk/LMDZ.MARS/util/streamfunction.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/util/streamfunction.F90

@@ -396 +396 @@
 if (ierr.ne.NF_NOERR) then
   write(*,*) "Warning: Failed to get cv ID from file ",trim(infile)
-  infile2="diagfi.nc"
+  write(*,*) "Please provide another file (a start file for ex.)"
+  read(*,'(a128)') infile2
+
   write(*,*) "         Trying file ",trim(infile2)
   ierr=NF_OPEN(infile2,NF_NOWRITE,infid2)
   if (ierr.ne.NF_NOERR) then
-     infile2="diagfi1.nc"
+     infile2="start.nc"
      write(*,*) "         Trying file ",trim(infile2)
      ierr=NF_OPEN(infile2,NF_NOWRITE,infid2)
@@ -429 +431 @@
    endif
 endif
-
 
 !Other variables: rho, temp