Skip to content

Commit

Permalink
Remove references to mct in LILAC
Browse files Browse the repository at this point in the history
It looks like the need for MCT was removed in
b4d64ac, when Mariana changed the
stream code to use CDEPS, but the initialization of MCT wasn't removed
at that time... but it looks like MCT is now unneeded, so going ahead
and removing it now.
  • Loading branch information
billsacks committed Feb 16, 2024
1 parent c030c23 commit 71dd254
Showing 1 changed file with 1 addition and 13 deletions.
14 changes: 1 addition & 13 deletions lilac/src/lilac_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,6 @@ module lilac_mod

! External libraries
use ESMF
use mct_mod , only : mct_world_init

! shr code routines
use shr_sys_mod , only : shr_sys_abort
Expand Down Expand Up @@ -146,10 +145,7 @@ subroutine lilac_init2(mpicom, atm_global_index, atm_lons, atm_lats, &
integer, parameter :: debug = 1 !-- internal debug level
character(len=*), parameter :: subname=trim(modname)//': [lilac_init] '

! initialization of mct and pio
integer :: ncomps = 1 ! for mct
integer, pointer :: mycomms(:) ! for mct
integer, pointer :: myids(:) ! for mct
! initialization of pio
integer :: compids(1) = (/1/) ! for pio_init2 - array with component ids
character(len=32) :: compLabels(1) = (/'LND'/) ! for pio_init2
character(len=64) :: comp_name(1) = (/'LND'/) ! for pio_init2
Expand Down Expand Up @@ -220,14 +216,6 @@ subroutine lilac_init2(mpicom, atm_global_index, atm_lons, atm_lats, &
call ESMF_VMGet(vm, localPet=mytask, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return

!-------------------------------------------------------------------------
! Initialize MCT (this is needed for data model functionality)
!-------------------------------------------
allocate(mycomms(1), myids(1))
mycomms = (/mpicom/) ; myids = (/1/)
call mct_world_init(ncomps, mpicom, mycomms, myids)
call ESMF_LogWrite(subname//"initialized mct ... ", ESMF_LOGMSG_INFO)

!-------------------------------------------------------------------------
! Initialize PIO with second initialization
!-------------------------------------------------------------------------
Expand Down

0 comments on commit 71dd254

Please sign in to comment.