fix bug from merge

JessicaMeixner-NOAA · Apr 17, 2024 · aed792d · aed792d
1 parent 97a99bd
commit aed792d
Showing 1 changed file with 2 additions and 11 deletions.
diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
@@ -1175,24 +1175,15 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD_IN, filename, ncerr)
     integer :: v_iw, v_ii, v_il, v_dpo, v_wao, v_wdo, v_tauao
     integer :: v_taido, v_dairo, v_zet_seto, v_aso, v_cao, v_cdo, v_iceo
     integer :: v_iceho, v_icefo, v_grdid, v_spco
-    integer :: imod
-
-    if (present(IMOD_IN)) then
-       imod = imod_in
-    else
-       imod = 1
-    endif
-
 
     IOTST = 0
 
-    IF (PRESENT(IMOD)) THEN
-      IGRD = IMOD
+    IF (PRESENT(IMOD_IN)) THEN
+      IGRD = IMOD_IN
     ELSE
       IGRD = 1
     END IF
 
-
     ! Open the netCDF file.
     ncerr = nf90_open(filename, NF90_NOWRITE, fh)
     if (nf90_err(ncerr) .ne. 0) return