override if elevation input not present

jedokaplan · Mar 7, 2022 · ff3d4ff · ff3d4ff
1 parent 54ef022
commit ff3d4ff
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/biome4driver.f90 b/biome4driver.f90
@@ -163,10 +163,16 @@ program biome4main
 ! elevation
 
 status = nf90_inq_varid(ncid,'elv',varid)
-if (status /= nf90_noerr) call handle_err(status)
+if (status == nf90_noerr) then
 
-status = nf90_get_var(ncid,varid,elv,start=[srtx,srty],count=[cntx,cnty])
-if (status /= nf90_noerr) call handle_err(status)
+  status = nf90_get_var(ncid,varid,elv,start=[srtx,srty],count=[cntx,cnty])
+  if (status /= nf90_noerr) call handle_err(status)
+
+else
+
+  elv = 0.
+
+end if
 
 !-------------------------------------------------------
 ! temperature