Back to home page

MITgcm

 
 

    


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

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
bf4be02920 Jean*0001 !=======================================================================
                0002       subroutine MITCOMPONENT_register( nx, ny, i0, j0 )
                0003 
191b8c84d5 Jean*0004       implicit none
bf4be02920 Jean*0005 ! MPI variables
                0006 #include "mpif.h"
                0007 
                0008 ! Predefined constants/arrays
                0009 #include "CPLR_SIG.h"
                0010 
191b8c84d5 Jean*0011 ! Arguments
                0012       integer nx,ny,i0,j0
                0013 
bf4be02920 Jean*0014 ! Functions
                0015       integer mitcplr_match_comp
                0016       integer generate_tag
191b8c84d5 Jean*0017       external mitcplr_match_comp
                0018       external generate_tag
bf4be02920 Jean*0019 
                0020 ! Local
191b8c84d5 Jean*0021       integer ierr
bf4be02920 Jean*0022       integer count,datatype,dest,tag,comm
191b8c84d5 Jean*0023       integer ibuf(MAX_IBUF)
bf4be02920 Jean*0024 
                0025 !     ------------------------------------------------------------------
                0026 
                0027 ! Set up buffer
                0028       ibuf(1)=1
                0029       ibuf(2)=nx
                0030       ibuf(3)=ny
                0031       ibuf(4)=i0
                0032       ibuf(5)=j0
                0033 
                0034       my_num_tiles=1
                0035       my_tile_nx(1)=nx
                0036       my_tile_ny(1)=ny
                0037       my_tile_i0(1)=i0
                0038       my_tile_j0(1)=j0
                0039 
                0040 ! Send message
                0041       count=5
                0042       datatype=MPI_INTEGER
                0043       dest=my_coupler_rank
                0044       tag=generate_tag(115,my_rank_in_global,'Register')
                0045       comm=MPI_COMM_myglobal
                0046 
                0047       call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )
951926fb9b Jean*0048 
bf4be02920 Jean*0049       if (ierr.ne.0) then
                0050        write(LogUnit,*) 'MITCOMPONENT_register: rank(W,G,L)=',
                0051      &            my_rank_in_world,my_rank_in_global,my_rank_in_local,
                0052      &            ' ierr=',ierr
191b8c84d5 Jean*0053        STOP 'MITCOMPONENT_register: MPI_Send failed'
bf4be02920 Jean*0054       endif
                0055 
                0056 !     ------------------------------------------------------------------
                0057       call flush(LogUnit)
                0058       return
                0059       end
                0060 !=======================================================================