From eacd9d016fc28030bddad46251d22c12eb73d5a1 Mon Sep 17 00:00:00 2001 From: alperaltuntas Date: Fri, 15 Oct 2021 17:48:25 -0600 Subject: [PATCH] fix doxygen errors in surfbands_refactor branch --- config_src/drivers/nuopc_cap/mom_cap.F90 | 2 +- src/core/MOM_dynamics_split_RK2.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/config_src/drivers/nuopc_cap/mom_cap.F90 b/config_src/drivers/nuopc_cap/mom_cap.F90 index 938f6bdfda..5384ef0778 100644 --- a/config_src/drivers/nuopc_cap/mom_cap.F90 +++ b/config_src/drivers/nuopc_cap/mom_cap.F90 @@ -2215,7 +2215,7 @@ subroutine fld_list_add(num, fldlist, stdname, transferOffer, shortname, ungridd fldlist(num)%shortname = trim(stdname) endif fldlist(num)%transferOffer = trim(transferOffer) - if (present(ungridded_lbound) .and. present(ungridded_ubound)) then + if (present(ungridded_lbound) .and. present(ungridded_ubound)) then fldlist(num)%ungridded_lbound = ungridded_lbound fldlist(num)%ungridded_ubound = ungridded_ubound end if diff --git a/src/core/MOM_dynamics_split_RK2.F90 b/src/core/MOM_dynamics_split_RK2.F90 index cd29fb7206..fbcfbe57c7 100644 --- a/src/core/MOM_dynamics_split_RK2.F90 +++ b/src/core/MOM_dynamics_split_RK2.F90 @@ -1373,7 +1373,7 @@ subroutine initialize_dyn_split_RK2(u, v, h, uh, vh, eta, Time, G, GV, US, param ALLOC_(CS%v_accel_bt(isd:ied,JsdB:JedB,nz)) ; CS%v_accel_bt(:,:,:) = 0.0 ALLOC_(CS%PFu_Stokes(IsdB:IedB,jsd:jed,nz)) ; CS%PFu_Stokes(:,:,:) = 0.0 ALLOC_(CS%PFv_Stokes(isd:ied,JsdB:JedB,nz)) ; CS%PFv_Stokes(:,:,:) = 0.0 - + MIS%diffu => CS%diffu MIS%diffv => CS%diffv MIS%PFu => CS%PFu