Update wav_import_export.F90.

NOAA-EMC · Jan 19, 2025 · 63480fb · 63480fb
1 parent bb13370
commit 63480fb
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/model/src/wav_import_export.F90 b/model/src/wav_import_export.F90
@@ -362,7 +362,8 @@ subroutine import_fields( gcomp, time0, timen, rc )
         do isea = 1,nsea 
         if(abs(global_data(isea)-fillv).lt.0.01) then
           global_data(isea)=0.0
-        enddo
+        end if
+        end do
         call FillGlobalInput(global_data, CX0)
         call FillGlobalInput(global_data, CXN)
       end if
@@ -375,7 +376,8 @@ subroutine import_fields( gcomp, time0, timen, rc )
         do isea = 1,nsea 
         if(abs(global_data(isea)-fillv).lt.0.01) then
           global_data(isea)=0.0
-        enddo
+        end if
+        end do
         call FillGlobalInput(global_data, CY0)
         call FillGlobalInput(global_data, CYN)
       end if