From 57873b2236c1c64b0ac726732ffe9cde9f618590 Mon Sep 17 00:00:00 2001 From: Michael Mehari <107200142+mfmehari@users.noreply.github.com> Date: Wed, 16 Aug 2023 11:28:27 -0400 Subject: [PATCH] Update GEOS_GcmGridComp.F90 @sanAkel commented lines removed. --- GEOS_GcmGridComp.F90 | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/GEOS_GcmGridComp.F90 b/GEOS_GcmGridComp.F90 index af997c014..a5083c337 100644 --- a/GEOS_GcmGridComp.F90 +++ b/GEOS_GcmGridComp.F90 @@ -597,14 +597,6 @@ subroutine SetServices ( GC, RC ) call OBIO_TerminateImports(DO_DATAATM, RC) end if -! if(DO_DATAATM /= 0) then -! call MAPL_TerminateImport ( GC, & -! SHORT_NAME = (/'KPAR ','UW ','VW ','UI ', & -! 'VI ','TAUXBOT','TAUYBOT'/), & -! CHILD = AGCM, & -! _RC) -! endif - if (DO_CICE_THERMO == 1) then call MAPL_TerminateImport ( GC, & SHORT_NAME = (/ & @@ -1258,11 +1250,7 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Create XFORMs !-------------- -! if(DO_DATAATM/=0) then -! skinname = 'DATAATM' -! else - skinname = 'SALTWATER' -! endif + skinname = 'SALTWATER' call MAPL_GetResource(MAPL, bypass_ogcm, "BYPASS_OGCM:", & default=0, rc=status)