1 | !> \file tracebug.f90 |
---|
2 | !! Impression d'une chaine de charactere |
---|
3 | !< |
---|
4 | |
---|
5 | !> SUBROUTINE: tracebug |
---|
6 | !! Imprime une chaine de carctere |
---|
7 | !! \author ... |
---|
8 | !! \date 04/08/2010 |
---|
9 | !! @param chaine: la chaine de charactere a imprimer |
---|
10 | !! @note Used modules: |
---|
11 | !! @note - use module3D_phy |
---|
12 | !! @note - use module_choix |
---|
13 | !> |
---|
14 | |
---|
15 | |
---|
16 | |
---|
17 | subroutine tracebug(chaine) |
---|
18 | |
---|
19 | use module3D_phy |
---|
20 | use module_choix |
---|
21 | |
---|
22 | implicit none |
---|
23 | |
---|
24 | character(len=*),intent(in):: chaine ! chaine a imprimer |
---|
25 | |
---|
26 | i=5 |
---|
27 | j=5 |
---|
28 | |
---|
29 | write(num_tracebug,*) chaine |
---|
30 | |
---|
31 | ! write(num_tracebug,901) chaine,i,j,mk_init(i,j),S(i,j),H(i,j),Bsoc(i,j),B(i,j),pvi(i,j),pvm(i,j) |
---|
32 | 901 format(A50,' S0,S,H0,H,B0,B ',3(i0,1x),2x, 4(f0.1,1x),2(es12.4,1x) ) |
---|
33 | |
---|
34 | ! write(num_tracebug,898) chaine,i,j,ibase(i,j),mstream_mx(i,j), betamx(i,j), uxflgz(i,j), gzmx(i,j),ok_umat(i,j) |
---|
35 | 898 format(A50,' ibase, mstream,betamx,drag_mx ',4(i0,1x),3x, 2(es12.4,1x), 2x,2(l5,1x)) |
---|
36 | |
---|
37 | ! write(num_tracebug,896) chaine,i,j,Uxbar(i-1:i+1,j),Uxflgz(i-1:i+1,j),Uxbar(i-1:i+1,j)-Uxflgz(i-1:i+1,j),Hdot(i,j),dt |
---|
38 | 896 format(A50,' i,j,Uxbar,Uxflgz,Uxdef ', 2(i0,1x),8(f0.3,1x)) |
---|
39 | |
---|
40 | ! write(num_tracebug+1,897) chaine, eps(i,j), pvi(i,j),Hdot(i-1:i+1,j),betamx(i,j) |
---|
41 | 897 format(A50,' eps,pvi,Hdot,beta ', 6(es12.4,1x)) |
---|
42 | |
---|
43 | |
---|
44 | |
---|
45 | ! (195,154) un point ile |
---|
46 | ! (30,253) |
---|
47 | ! write(num_tracebug,889) chaine,i,j,S(i,j),H(i,j),Bsoc(i,j),Hp(i,j),Mk_init(i,j),i_hp(i,j) |
---|
48 | ! write(num_tracebug,895) chaine, i,j,i_HP(i,j),i_Hp0(i,j),Hp(i,j),Hp0(i,j),H(i,j) |
---|
49 | |
---|
50 | !write(num_tracebug,894) chaine,i,j,H(i,j),uxbar(i,j),uxbar(i+1,j),pvi(i,j),eps(i,j) |
---|
51 | |
---|
52 | !write(num_tracebug,*) flotmx(i-1:i+5,j),' ',flot(i-1:i+5,j) |
---|
53 | |
---|
54 | |
---|
55 | ! write(num_tracebug,887) chaine, ispinup,iter_beta |
---|
56 | ! write(num_tracebug,891) chaine,Vcol_x(i,j),Vsl_x(i,j),uxbar(i,j),ubx(i,j),uxdef(i,j),betamx(i,j) |
---|
57 | ! write(num_tracebug,880) chaine |
---|
58 | |
---|
59 | ! write(num_tracebug,*) chaine,'xmin,ymin',xmin,ymin |
---|
60 | |
---|
61 | ! S(30,253),S(178,121) 1 point ile + 1 point shelf |
---|
62 | |
---|
63 | 887 format(A50,' ispinup =',i0,' iter_beta =',i0) |
---|
64 | 888 format(A50,' S(30,253)) = ',f0.3, ' S(178,121) = ',f0.3) |
---|
65 | 889 format(A50,' SHBMk de ', 2(i0,1x),': '4(f0.3,1x),2(i0,1x)) |
---|
66 | 890 format(A50,' S Ux Uy ', 2(i0,1x),': '6(f0.3,1x)) |
---|
67 | 891 format(A50,' uxbal Vsl Ux uxb uxdef beta : '6(f0.2,1x)) |
---|
68 | 892 format(A50,' Uxbar ', 2(i0,1x),': '(f0.3,1x)) |
---|
69 | 893 format(A50,' betamx, drag_mx, beta_c ', 2(i0,1x),': '4(f0.3,1x)) |
---|
70 | 894 format(A50,' H, Uxbar, pvi,epsxx,eps ', 2(i0,1x),': '3(f0.2,1x),2(es12.4,1x) ) |
---|
71 | 895 format(A50,' i,j,ihp,ihp0,hp,hp0,h ', 4(i0,1x),': '3(f0.2,1x) ) |
---|
72 | end subroutine tracebug |
---|