From be8bea2b9b7c98c4bd1a09b40d61bae19707f51e Mon Sep 17 00:00:00 2001 From: jatkinson1000 Date: Mon, 19 Aug 2024 10:50:13 -0600 Subject: [PATCH] Bugfix: Update ML switches to be logicals when calling gw_drag init and finalize routines. --- src/physics/cam/gw_drag.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/physics/cam/gw_drag.F90 b/src/physics/cam/gw_drag.F90 index e17e91ff94..0a293eab76 100644 --- a/src/physics/cam/gw_drag.F90 +++ b/src/physics/cam/gw_drag.F90 @@ -989,7 +989,7 @@ subroutine gw_init() end if ! Set up neccessary attributes if using ML scheme for convective drag - if ((gw_convect_dp_ml == 'on') .or. (gw_convect_dp_ml == 'bothon')) then + if ((gw_convect_dp_ml) .or. (gw_convect_dp_ml_compare)) then ! Load the convective drag net from TorchScript file call gw_drag_convect_dp_ml_init(gw_convect_dp_ml_net_path, gw_convect_dp_ml_norms) endif @@ -1258,7 +1258,7 @@ end subroutine handle_pio_error subroutine gw_final() ! Destroy neccessary attributes if using ML scheme for convective drag - if ((gw_convect_dp_ml == 'on') .or. (gw_convect_dp_ml == 'bothon')) then + if ((gw_convect_dp_ml) .or. (gw_convect_dp_ml_compare)) then call gw_drag_convect_dp_ml_final() endif end subroutine gw_final