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 UTCbf4be02920 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 !=======================================================================
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|