Skip to content

Commit

Permalink
Add in a sanity check to fail if variable mapping file is empty or im…
Browse files Browse the repository at this point in the history
…properly formatted such that the code finds no variable entries to read.

Addresses Issue ufs-community#228
  • Loading branch information
LarissaReames-NOAA committed Nov 20, 2020
1 parent a26d827 commit 640428b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion sorc/chgres_cube.fd/program_setup.f90
Original file line number Diff line number Diff line change
Expand Up @@ -444,7 +444,7 @@ subroutine read_varmap
if ( trim(line) .eq. '' ) cycle
nvars = nvars+1
enddo

if ( nvars == 0) call error_handler("VARMAP FILE IS EMPTY.", -1)

allocate(chgres_var_names(nvars))
allocate(field_var_names(nvars))
Expand Down

0 comments on commit 640428b

Please sign in to comment.