Oasis3 4.0.2
|
00001 function MPP_CHKSUM_( var, pelist ) 00002 !mold is a dummy array to be used by TRANSFER() 00003 !must be same TYPE as result 00004 !result is LONG_KIND, which will actually be int ifdef no_8byte_integers 00005 integer(LONG_KIND) :: MPP_CHKSUM_, mold(1) 00006 MPP_TYPE_, intent(in) :: var MPP_RANK_ 00007 integer, intent(in), optional :: pelist(:) 00008 00009 MPP_CHKSUM_ = mpp_chksum( TRANSFER(var,mold), pelist ) 00010 return 00011 end function MPP_CHKSUM_