Skip to content

Commit 05dadc5

Browse files
authored
Merge branch 'develop' into feature/rtodling/these_read_cubed_output
2 parents 3928132 + 608bf9d commit 05dadc5

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)