Correcting a bug appearing in debug mode in Format_CFL.f90.

parent 28b7c905
Pipeline #7436 failed with stages
in 7 minutes and 7 seconds
......@@ -52,7 +52,7 @@ SubModule (CFML_IOForm) IO_CFL
if (len_trim(line) == 0) cycle
if (line(1:1) == "!" .or. line(1:1) == "#") cycle
if (u_case(line(1:12)) == "ATM_MOM_COMP") then
if (index(u_case(line), "ATM_MOM_COMP") /= 0) then
j=index(line,"!")
if ( j /= 0) then
mom_comp=adjustl(line(13:j-1))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment