Changeset 1362 for trunk/UTIL

Timestamp:

Nov 5, 2014, 8:58:53 PM (10 years ago)

Author:

aslmd

Message:

UTIL: bug fix with Ls in zrecast

File:

• trunk/UTIL/zrecast.F90 (modified) (1 diff)

trunk/UTIL/zrecast.F90

@@ -892 +892 @@
 if (ierr.ne.NF_NOERR) then
   have_ls = .false.
-  write(*,*) "Could not get ls ID"
-  write(*,*) "Warning: Failed reading solar longitude"
 else
   have_ls = .true.
+  write(*,*) "Could get ls ID"
   allocate(ls2d(lonlength,latlength,timelength))
   ierr=NF_GET_VAR_REAL(infid,tmpvarid,ls2d)