bugfix: make the last argument in subroutine Update_Surface_Waves to …

…be optional in src/user/MOM_wave_interface.F90. This is a bug from PR mom-ocean#23 bbdef39.
SMoorthi-emc · Nov 24, 2020 · 2c150d9 · 2c150d9
1 parent 966d608
commit 2c150d9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/user/MOM_wave_interface.F90 b/src/user/MOM_wave_interface.F90
@@ -452,7 +452,7 @@ subroutine Update_Surface_Waves(G, GV, US, Day, dt, CS, forces)
   type(unit_scale_type),   intent(in)  :: US   !< A dimensional unit scaling type
   type(time_type),         intent(in)  :: Day !< Current model time
   type(time_type),         intent(in)  :: dt  !< Timestep as a time-type
-  type(mech_forcing),      intent(in)  :: forces !< MOM_forcing_type
+  type(mech_forcing),      intent(in), optional  :: forces !< MOM_forcing_type
   ! Local variables
   integer :: ii, jj, kk, b
   type(time_type) :: Day_Center