subroutine BMF_perturb(name,array,ni,nj,nk) 

ARGUMENTS

name	Name of the variable	character(len=4)	I
array	Array containing the variable	real	I/0
ni,nj,nk	Size of the array	integer	I

---

DESCRIPTION

If provided by the user, this routine will be used to modify a field before it's written to a file by a subroutine bmf_splitwr* . Else, the routine contained in the library does nothing.

---

EXAMPLE

An user could provide a routine of this kind:

subroutine bmf_perturb(name,array,ni,nj,nk)
  implicit none
  character(len=4) name
  integer ni,nj,nk
  real array(ni,nj,nk)
  integer i,j,k

  if(name=="TT  ") then
    do k=1,nk
    do j=1,nj
    do i=1,ni
	array(i,j,k)=array(i,j,k)*1.0001
    enddo
    enddo
    enddo
  endif
end subroutine bmf_perturb
  

---

SEE ALSO

BMF_*, RPN_COMM_bloc


---


Author: Luc Corbeil, February 24 2003, 11h29


---


Return to RPN Librairies home page