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

ARGUMENTS

name	Nom de la variable	character(len=4)	I
array	Tableau contenant la variable	real	I/0
ni,nj,nk	taille du tableau	integer	I

---

DESCRIPTION

Si fournie par l'usager, cette routine peut être utilisé pour modifier un champs avant qu'il soit écrit dans un fichier par une sous-routine de la famille bmf_splitwr*. Autrement, la routine en elle-même ne fait rien.

---

EXEMPLE

Un usager pourrait fournir une routine de ce type: 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
  

---

VOIR AUSSI

BMF_*, RPN_COMM_bloc


---


Auteur: Luc Corbeil, February 24 2003, 11h29


---


Return to RPN Libraries home page