Skip to content

Commit

Permalink
Guard a debug output line
Browse files Browse the repository at this point in the history
A line in the script writes out all interpolated variables into a text
file. It creates a large file, filling up the disk and slowing down the
tool. This commit guards the line with the debug option. No functional
changes.
  • Loading branch information
kjnam committed May 23, 2024
1 parent da3bd16 commit b3fcc71
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Utility/OneWayNestScripts/interpolate_variables8.f90
Original file line number Diff line number Diff line change
Expand Up @@ -443,7 +443,7 @@ program interpolate
count_2d(1)=np; count_2d(2)=1
iret=nf90_get_var(ncid4,itmp,eta2,start_2d,count_2d)
if(iret/=NoErr) stop 'Failed to fetch elev'
write(98,*)it1,eta2
if(idebug==1) write(98,*)it1,eta2

if(ifile>1) then !get 3D vars
do ii=1,n_vars
Expand Down

0 comments on commit b3fcc71

Please sign in to comment.