Changeset 1363 for trunk/UTIL

Timestamp:

Nov 5, 2014, 9:07:51 PM (10 years ago)

Author:

aslmd

Message:

UTIL: follows previous commit

File:

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

trunk/UTIL/zrecast.F90

@@ -1747 +1747 @@
 endif
 
-ierr=NF_PUT_VAR_REAL(outfid,ls_varid,ls)
-if (ierr.ne.NF_NOERR) then
-  stop "Error: Could not write Ls data to output file"
+if (have_ls) then
+ ierr=NF_PUT_VAR_REAL(outfid,ls_varid,ls)
+ if (ierr.ne.NF_NOERR) then
+   stop "Error: Could not write Ls data to output file"
+ endif
 endif