From 77494596d594df6c5843747944abf1612c8d5494 Mon Sep 17 00:00:00 2001 From: Samuel Levis Date: Thu, 31 Oct 2024 12:33:04 -0600 Subject: [PATCH] Rm 2 fldlist_add lines needed only for rof_from_glc, which is obsolete --- src/cpl/nuopc/rof_import_export.F90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/cpl/nuopc/rof_import_export.F90 b/src/cpl/nuopc/rof_import_export.F90 index 80cc7c7..d5fd022 100644 --- a/src/cpl/nuopc/rof_import_export.F90 +++ b/src/cpl/nuopc/rof_import_export.F90 @@ -113,8 +113,6 @@ subroutine advertise_fields(gcomp, flds_scalar_name, rc) call fldlist_add(fldsToRof_num, fldsToRof, 'Flrl_rofsub') call fldlist_add(fldsToRof_num, fldsToRof, 'Flrl_rofi') call fldlist_add(fldsToRof_num, fldsToRof, 'Flrl_irrig') - call fldlist_add(fldsToRof_num, fldsToRof, 'Fgrg_rofl') ! liq runoff from glc - call fldlist_add(fldsToRof_num, fldsToRof, 'Fgrg_rofi') ! ice runoff from glc do n = 1,fldsToRof_num call NUOPC_Advertise(importState, standardName=fldsToRof(n)%stdname, &