A quick change has been done to getting compiled on Midway2

- Compiling with intel 2016
mom-ocean · Jan 11, 2017 · 3e3f985 · 3e3f985
1 parent dfd2ea3
commit 3e3f985
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/framework/MOM_io.F90 b/src/framework/MOM_io.F90
@@ -502,13 +502,13 @@ function num_timelevels(filename, varname, min_dims) result(n_time)
 
   allocate(varids(nvars))
 
-  status = nf90_inq_varids(ncid, nvars, varids)
-  if (status /= NF90_NOERR) then
-    call MOM_error(WARNING,"num_timelevels: "//&
-        " Difficulties getting the variable IDs in file "//&
-        trim(filename)//" - "//trim(NF90_STRERROR(status)))
-    deallocate(varids) ; return
-  endif
+!  status = nf90_inq_varids(ncid, nvars, varids)
+!  if (status /= NF90_NOERR) then
+!    call MOM_error(WARNING,"num_timelevels: "//&
+!        " Difficulties getting the variable IDs in file "//&
+!        trim(filename)//" - "//trim(NF90_STRERROR(status)))
+!    deallocate(varids) ; return
+!  endif
 
   do n = 1,nvars
     status = nf90_inquire_variable(ncid, varids(n), name=name)