[4] | 1 | !module diagno_L2_mod ! Nouvelle version, compatible remplimat 2008 Cat |
---|
| 2 | module diagno_mod ! ce module sert quand on ne veut pas du tout de diagno |
---|
| 3 | ! a choisir au niveau du makefile |
---|
| 4 | |
---|
| 5 | use module3D_phy |
---|
| 6 | use module_choix |
---|
| 7 | |
---|
| 8 | implicit none |
---|
| 9 | |
---|
| 10 | |
---|
| 11 | |
---|
| 12 | real :: somint,test,delp,prec |
---|
| 13 | real, dimension(nx,ny) :: uxb1 |
---|
| 14 | real, dimension(nx,ny) :: uyb1 |
---|
| 15 | |
---|
| 16 | integer, dimension(nx,ny) :: imx_diag |
---|
| 17 | integer, dimension(nx,ny) :: imy_diag |
---|
| 18 | |
---|
| 19 | integer :: nxd1,nxd2 ! domaine selon x Dans l'appel rempli_L2 |
---|
| 20 | integer :: nyd1,nyd2 ! domaine selon y |
---|
| 21 | |
---|
| 22 | integer :: itour_pvi |
---|
| 23 | |
---|
| 24 | integer :: ifail_diagno ! pour recuperation d'erreur |
---|
| 25 | integer :: iplus1,jplus1 |
---|
| 26 | integer :: ctvisco,iumax,jumax |
---|
| 27 | real :: delumax,errmax |
---|
| 28 | real :: phiphi,bt2,d02,discr,ttau |
---|
| 29 | real :: sf3,sf1,epsxxm,epsyym,epsm,sf01,sf03 |
---|
| 30 | real :: viscm |
---|
| 31 | |
---|
| 32 | |
---|
| 33 | logical :: stopvisco,viscolin |
---|
| 34 | logical :: test_visc |
---|
| 35 | |
---|
| 36 | contains |
---|
| 37 | |
---|
| 38 | !------------------------------------------------------------------------------------ |
---|
| 39 | subroutine init_diagno |
---|
| 40 | |
---|
| 41 | |
---|
| 42 | |
---|
| 43 | ! attribution des coefficients de viscosite |
---|
| 44 | |
---|
| 45 | ! formats pour les ecritures dans 42 |
---|
| 46 | 428 format(A) |
---|
| 47 | |
---|
| 48 | ! lecture des parametres du run block draghwat |
---|
| 49 | !-------------------------------------------------------------------- |
---|
| 50 | |
---|
| 51 | ! pour revenir au debut du fichier param_list.dat |
---|
| 52 | |
---|
| 53 | |
---|
| 54 | write(num_rep_42,428)'!___________________________________________________________' |
---|
| 55 | write(num_rep_42,428) '& diagnoshelf : fake' |
---|
| 56 | write(num_rep_42,428)'!___________________________________________________________' |
---|
| 57 | |
---|
| 58 | |
---|
| 59 | return |
---|
| 60 | end subroutine init_diagno |
---|
| 61 | |
---|
| 62 | !------------------------------------------------------------------------------------ |
---|
| 63 | subroutine diagnoshelf ! Resolution numerique des equations diagnostiques |
---|
| 64 | |
---|
| 65 | uxflgz(:,:) = 0. |
---|
| 66 | uyflgz(:,:) = 0. |
---|
| 67 | |
---|
| 68 | return |
---|
| 69 | end subroutine diagnoshelf |
---|
| 70 | |
---|
| 71 | |
---|
| 72 | !end module diagno_L2_mod |
---|
| 73 | end module diagno_mod |
---|