Some real results obtained by SWAMPRAGREEN.FOR 

 

 



 

Here we present the results obtained

by SWAMPGREEN.FOR. The problem

was solved for range-independent

bathymetry and  three different sound

speed profiles in Mexican Gulf.

The sound speed profiles were obtained

from Ocean Acoustic Library they are shown on Fig. 1.

                              

 

                          

The source depth was 900m, there were multiple receiver depths at spacing from 75m below the water surface to the maximum water column depth (2025m), test frequency was 500 Hz.

Fig.2  show plot of the transmission losses versus time and depth at the distance r=500km far from the source.

 

                                                                                                                                    Fig.1

 

The input file for SWAMPGREEN.FOR, SWAMPRA.IN, was:

1 2025.0 2025.0 900.0 0.0 500.0 ! nwhat,h, hhh, hs, hr, freq

1.0  1.8  1600.0  0.35         ! rho0, rho1, c11, alpha

75 500000.0 500000.0 500000.0   ! dh(mult.r), rstart, rall, rend

100.0 100.0 100000.0 0 .5      ! rrr1 delrm delrs DMS accuracy par.

 

% Sound speed profile: depth, sound speed %

-1  -1                       ! Terminate with -1 –1

 

The input file for SWAMPGREEN.FOR,  PULSE.IN, was:

500.0 4 5 4096 5 27 5 500000.0 1500.0 75.0 !freq,np,nos,N,nr,nz,nrw,rw,c0,dz

 

 

 

To simulate  the  source we considered

the sinusoidal pulse that  had central

frequency 500 Hz and  had 5 active  periods.

The amplitude of the pulse was equal to 1

at the distance of 1 meter  from the source.

Program   SWAMPGREEN.FOR works in

frequency-domain and we also used

TIME.FOR program(that has the same input

files SWAPRA.IN and PULSE.IN)

to recalculate our results to time-domain.                                              

   

 

 Fig.2