gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IO: Fix a warning in the case of no forcing modes.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2020-08-19 22:49:46 -03:00
parent 3115ecdabb
commit fe9c223489
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/io.F90
View File

@ -4255,8 +4255,8 @@ module io
! restore forcing coefficients
!
call read_attribute(gid, 'nmodes', lnmodes)
if (lnmodes == nmodes .and. lnmodes > 0) then
call read_attribute(gid, 'fcoefs', fcoefs)
if (lnmodes == nmodes) then
if (lnmodes > 0) call read_attribute(gid, 'fcoefs', fcoefs)
else
write(error_unit,"('[',a,']: ',a)") trim(loc) &
, "The number of driving modes does not match!"