source: trunk/SOURCES/New-remplimat/fake_diagno_mod.f90 @ 23

!module diagno_L2_mod                    ! Nouvelle version, compatible remplimat 2008 Cat
module diagno_mod                        ! ce module sert quand on ne veut pas du tout de diagno
                                         ! a choisir au niveau du makefile

use module3D_phy
use module_choix
     
implicit none



real                   :: somint,test,delp,prec
real, dimension(nx,ny) :: uxb1
real, dimension(nx,ny) :: uyb1

integer, dimension(nx,ny) :: imx_diag
integer, dimension(nx,ny) :: imy_diag

integer :: nxd1,nxd2     ! domaine selon x Dans l'appel rempli_L2
integer :: nyd1,nyd2     ! domaine selon y

integer :: itour_pvi

integer :: ifail_diagno  ! pour recuperation d'erreur
integer :: iplus1,jplus1
integer ::  ctvisco,iumax,jumax
real  :: delumax,errmax
real  :: phiphi,bt2,d02,discr,ttau
real :: sf3,sf1,epsxxm,epsyym,epsm,sf01,sf03
real :: viscm


logical :: stopvisco,viscolin
logical :: test_visc

contains    

!------------------------------------------------------------------------------------
subroutine init_diagno



! attribution des coefficients de viscosite

! formats pour les ecritures dans 42
428 format(A)

! lecture des parametres du run                      block draghwat
!--------------------------------------------------------------------

   ! pour revenir au debut du fichier param_list.dat


write(num_rep_42,428)'!___________________________________________________________' 
write(num_rep_42,428) '& diagnoshelf : fake'
write(num_rep_42,428)'!___________________________________________________________' 


return
end subroutine init_diagno

!------------------------------------------------------------------------------------
subroutine diagnoshelf !      Resolution numerique des equations diagnostiques

uxflgz(:,:) = 0.
uyflgz(:,:) = 0.

  return
end subroutine diagnoshelf


!end module diagno_L2_mod
end module diagno_mod