Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:31 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
bf4be02920 Jean*0001 !=======================================================================
                0002       subroutine mitcplr_initcomp( compind, carg )
                0003       implicit none
                0004 ! Predefined constants/arrays
                0005 #include "CPLR_SIG.h"
                0006 ! Arguments
                0007       integer compind
                0008       character*(MAXLEN_COMP_NAME) carg
                0009 ! Local
                0010 !     ------------------------------------------------------------------
                0011 
                0012       component_List(compind)=carg
                0013 
                0014       num_component_procs( compind ) = 0
                0015       num_compcplr_procs( compind ) = 0
                0016       component_Name( compind ) = carg
                0017 
                0018 !     ------------------------------------------------------------------
                0019       return
                0020       end
                0021 !=======================================================================