From efff64fb9898bcdf992209244c480f398ea50207 Mon Sep 17 00:00:00 2001 From: Mariana Vertenstein Date: Sun, 11 Aug 2024 19:49:18 +0200 Subject: [PATCH] fixed glc budget --- mediator/med_diag_mod.F90 | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/mediator/med_diag_mod.F90 b/mediator/med_diag_mod.F90 index 6be40198..5e06f216 100644 --- a/mediator/med_diag_mod.F90 +++ b/mediator/med_diag_mod.F90 @@ -1361,21 +1361,6 @@ subroutine med_phases_diag_glc( gcomp, rc) call ESMF_GridCompGetInternalState(gcomp, is_local, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return - ! TODO: will the following be correct if there is more than 1 ice sheet ??? - - !------------------------------- - ! from mediator to glc - !------------------------------- - - ic = c_glc_send - ip = period_inst - - do ns = 1,is_local%wrap%num_icesheets - areas => is_local%wrap%mesh_info(compglc(ns))%areas - call diag_glc(is_local%wrap%FBImp(compglc(ns),compglc(ns)), 'Flgl_qice', f_watr_ioff, ic, areas, budget_local, rc=rc) - if (ChkErr(rc,__LINE__,u_FILE_u)) return - end do - !------------------------------- ! from glc to mediator !-------------------------------