C $Header: /u/gcmpack/MITgcm/pkg/compon_communic/mitcplr_initcomp.F,v 1.2 2007/10/08 23:58:21 jmc Exp $ C $Name: $ !======================================================================= subroutine MITCPLR_INITCOMP( compind, carg ) implicit none ! Predefined constants/arrays #include "CPLR_SIG.h" ! Arguments integer compind character*(MAXLEN_COMP_NAME) carg ! Local ! ------------------------------------------------------------------ component_List(compind)=carg num_component_procs( compind ) = 0 num_compcplr_procs( compind ) = 0 component_Name( compind ) = carg ! ------------------------------------------------------------------ return end
!=======================================================================