Skip to content

Commit

Permalink
add GLOBAL_ID to tags for ice
Browse files Browse the repository at this point in the history
needed for restart, for all models that read a domain/mesh file
this happens in cplcomp_exchange_mod
this is for data ice, in which we read a domain file
  • Loading branch information
iulian787 committed Jun 21, 2024
1 parent ef39f1f commit 53be196
Showing 1 changed file with 9 additions and 0 deletions.
9 changes: 9 additions & 0 deletions driver-moab/main/cplcomp_exchange_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1596,6 +1596,15 @@ subroutine cplcomp_moab_Init(infodata,comp)
if (seq_comm_iamroot(CPLID)) then
write(logunit,'(A)') subname//' load ice domain mesh from file '//trim(ice_domain)
endif
! need to add global id tag to the app, it will be used in restart
tagtype = 0 ! dense, integer
numco = 1
tagname='GLOBAL_ID'//C_NULL_CHAR
ierr = iMOAB_DefineTagStorage(mbixid, tagname, tagtype, numco, tagindex )
if (ierr .ne. 0) then
write(logunit,*) subname,' error in adding global id tag to icex'
call shr_sys_abort(subname//' ERROR in adding global id tag to icex ')
endif
#ifdef MOABDEBUG
! debug test
outfile = 'recSeaIceInit.h5m'//C_NULL_CHAR
Expand Down

0 comments on commit 53be196

Please sign in to comment.