Update src/topography.f90

Co-authored-by: Micael Oliveira <[email protected]>
COSIMA · Oct 25, 2024 · fc7a8a1 · fc7a8a1
1 parent c176f26
commit fc7a8a1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/topography.f90 b/src/topography.f90
@@ -84,7 +84,7 @@ type(topography_t) function topography_constructor(filename, grid_type) result(t
       end if
     end if
     write(output_unit,*) "  grid_type = ", topog%grid_type
-    if (.not.( topog%grid_type == 'B' .or. topog%grid_type == 'C' )) then
+    if (all(topog%grid_type /= ['B', 'C'])) then
       call handle_error(nf90_einval, .true., "grid_type must be B or C")
     end if