Oasis3 4.0.2
|
00001 MODULE mod_gsip_model 00002 ! 00003 #if defined use_comm_GSIP 00004 ! 00005 ! -- mod_gsip_model 00006 ! ************** 00007 ! 22-10-04 S. Valcke Created 00008 !@ 00009 !@ Contents : variables Gossip channels 00010 !@ -------- 00011 !@ 00012 !@ -- ig_gsipw : handle associated to model channel for writing 00013 !@ information to Oasis 00014 !@ -- ig_gsipr : handle associated to model channel for reading 00015 !@ information from Oasis 00016 !@ -- ig_numproc: process number in total number of processes 00017 !@ for the model 00018 ! ------------------------------------------------------------------- 00019 ! 00020 USE mod_kinds_model 00021 INTEGER (kind=ip_intwp_p) :: ig_gsipw, ig_gsipr, ig_numproc 00022 ! 00023 ! ------------------------------------------------------------------- 00024 #endif 00025 ! 00026 END MODULE mod_gsip_model