Update GEOS_GcmGridComp.F90

@sanAkel commented lines removed.
GEOS-ESM · Aug 16, 2023 · 57873b2 · 57873b2
1 parent daeba30
commit 57873b2
Showing 1 changed file with 1 addition and 13 deletions.
diff --git 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)