Fix issue with Ocean TerminateImport in Surf

[mathomp4]

Runs of the MAPL3 development code triggered a fault due to changes in #772 see:

• GEOSgcm MAPL3 Run Failure with GNU (2023-Jul-28) MAPL#2262
• GEOSgcm MAPL3 Run Failure with Intel (2023-Jul-28) MAPL#2263

Now, for reason as yet unknown (though @bena-nasa is investigating) MAPL2 doesn't seem to mind this, but MAPL3 does. However, I believe this is an issue with develop as well.

To wit, in GEOS_GcmGridComp.F90 we have:

    if (DO_CICE_THERMO == 2) then  
       call MAPL_AddConnectivity ( GC,                              &
            SHORT_NAME  = (/'SURFSTATE'/),                          &
            DST_ID = AGCM,                                          &
            SRC_ID = OGCM,                                          &
            RC=STATUS  )
       VERIFY_(STATUS)
    endif

and in GEOS_OgcmGridComp.F90

  if (DO_CICE_THERMO == 2) then
     call MAPL_AddExportSpec ( GC   ,                          &
          SHORT_NAME = 'SURFSTATE',                            &
          CHILD_ID   = SEAICE ,                                &
                                                           _RC )
  endif

In both cases the SURFSTATE code is protected with an if-block for DO_CICE_THERMO==2. But in GEOS_SurfaceGridComp.F90 we have:

   ! call MAPL_TerminateImport    ( GC, CHILD = OCEAN,   RC=STATUS  )
    call MAPL_TerminateImport    ( GC, SHORT_NAMES=['SURFSTATE'],    &
                                   CHILD_IDS=[OCEAN],  RC=STATUS  )

which seems to cause some issues when running in the plain DO_CICE_THERMO=0 way.

So my proposal is we only do the TerminateImport with SURFSTATE mentioned if we are running DO_CICE_THERMO=2 and if not, we use the "old" TerminateImport code which (I think?) terminates all of Ocean.

Since #772 was @zhaobin74 's code, I'll explicitly add him here. I think this is safe, but I want his blessing.

[zhaobin74]

Thanks for catching this. It was a bug of not protecting the MAPL_terminate call. Now this fix worked for both CICE4 and CICE6.