Oasis3 4.0.2
|
00001 MODULE mod_gsip 00002 ! 00003 ! -- mod_gsip 00004 ! ******** 00005 ! 18-10-04 S. Valcke Created 00006 !@ 00007 !@ Contents : variables Gossip channels 00008 !@ -------- 00009 !@ 00010 !@ -- iga_gsipw : handles associated to model channel for writing 00011 !@ info and fields to each process of each models 00012 !@ -- iga_gsipr : handles associated to model channel for reading 00013 !@ info and fields from each process of each models 00014 ! ------------------------------------------------------------------- 00015 ! 00016 USE mod_kinds_oasis 00017 INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: iga_gsipw, iga_gsipr 00018 ! 00019 ! ------------------------------------------------------------------- 00020 END MODULE mod_gsip