Skip to content

Commit 608bf9d

Browse files
authored
Merge pull request #1088 from GEOS-ESM/feature/mitfix
fixed compaitibility issues for MIT
2 parents fcf3c49 + 936eb8b commit 608bf9d

File tree

1 file changed

+8
-6
lines changed

1 file changed

+8
-6
lines changed

GEOSogcm_GridComp/GEOS_OgcmGridComp.F90

Lines changed: 8 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -805,12 +805,14 @@ subroutine SetServices ( GC, RC )
805805
SRC_ID = SEAICE, &
806806
RC=STATUS )
807807
VERIFY_(STATUS)
808-
call MAPL_AddConnectivity ( GC, &
809-
SHORT_NAME = (/'UWC','VWC'/), &
810-
SRC_ID = OCEAN, &
811-
DST_ID = SEAICE, &
812-
_RC)
813-
endif
808+
if (trim(OCEAN_NAME) /= "MIT") then !
809+
call MAPL_AddConnectivity ( GC, &
810+
SHORT_NAME = (/'UWC','VWC'/), &
811+
SRC_ID = OCEAN, &
812+
DST_ID = SEAICE, &
813+
_RC)
814+
endif
815+
end if
814816
end if
815817

816818
if (DO_CICE_THERMO > 1) then

0 commit comments

Comments
 (0)