clean up seq_map_map line for Sw2o

E3SM-Project · Nov 5, 2024 · 5836a21 · 5836a21
1 parent 1e06939
commit 5836a21
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/driver-mct/main/prep_ocn_mod.F90 b/driver-mct/main/prep_ocn_mod.F90
@@ -1446,7 +1446,7 @@ subroutine prep_ocn_calc_w2x_ox(timer)
     call t_drvstartf (trim(timer),barrier=mpicom_CPLID)
     do ewi = 1,num_inst_wav
        w2x_wx => component_get_c2x_cx(wav(ewi))
-       call seq_map_map(mapper_Sw2o, w2x_wx, w2x_ox(ewi),fldlist=seq_flds_w2x_states, norm=.true.)
+       call seq_map_map(mapper_Sw2o, w2x_wx, w2x_ox(ewi), norm=.true.)
     enddo
     call t_drvstopf  (trim(timer))
   end subroutine prep_ocn_calc_w2x_ox