[go: up one dir, main page]
Menu ▾ ▴

[r34]: / common / showmodnetcdf.f90  Maximize  Restore  History

Download this file

40 lines (29 with data), 765 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
subroutine showmodnetcdf



use modnetcdf



print*,'civ2,fix,fix2,patch,patch2',civ2,fix,fix2,patch,patch2

print*,'nb_vectors,nb_vectors2',nb_vectors,nb_vectors2

print*,'nb_vec_patch,nb_vec2_patch',nb_vec_patch,nb_vec2_patch

print*,'pixcmx,pixcmy,T0,T02,dt,dt2,kc,kc2',pixcmx,pixcmy,T0,T02,dt,dt2,kc,kc2

print*,'patch_nx,patch_ny,patch2_nx,patch2_ny',patch_nx,patch_ny,patch2_nx,patch2_ny

print*,'ro,ro2',ro,ro2

if(allocated(V)) then

	print*,'V'

!	print*,V(1,:)

	print*,'&'

endif

if(allocated(VD)) then

	print*,'VD'

!	print*,VD(1,:)

        print*,'&'

endif



if(allocated(V2)) then

	print*,'V2'

!        print*,V2(1,:)

        print*,'&'

endif



if(allocated(VD2)) then

	print*,'VD2'

!        print*,VD2(1,:)

        print*,'&'

endif













end subroutine showmodnetcdf