script Module

Trident batch application


Uses


Variables

Type Visibility Attributes Name Initial
logical(kind=I4), private :: GLOBAL_OMP
integer(kind=I4), private :: JOB
integer(kind=I4), private :: LINE_READ
integer(kind=I4), private :: NB_ITER_DEB
integer(kind=I4), private :: NB_ITER_FIN
integer(kind=I4), private :: NB_THREADS
character(len=512), private :: NOM_SUR
logical(kind=I4), private :: OUT_CMD
integer(kind=I4), private :: SAVE_LINE_READ
character(len=512), private :: SAV_NOM_SUR
character(len=1), private :: SEP
integer(kind=I4), private :: SPY
integer(kind=I4), private :: STA
logical(kind=I4), private :: WITH_SAMPLING

Subroutines

private subroutine analyses(tab, scal, scal_samp, tab_bounds)

The function analyses reads, in the Job file, the analysis to perform. The analysis is then performed.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(in), dimension(:,:) :: tab

array of the surface
type(SCALE_SURF), intent(in) :: scal

SCALE_SURF object of the input surface
type(SCALE_SURF), intent(in) :: scal_samp

SCALE_SURF object of a sample
type(tborne), intent(in), dimension(:) :: tab_bounds

array of the sample bounds

private subroutine crop_img(tab, scal)

Crop the surface contained in tab to the dimensions specified in the job file and update the object scal

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(inout), allocatable, dimension(:,:) :: tab

array containing the surface
type(SCALE_SURF), intent(inout) :: scal

SCALE_SURF object

private subroutine end_loop(tab_bounds)

End of the Job file - some finalizations.

Arguments

Type IntentOptional Attributes Name
type(tborne), intent(inout), allocatable, dimension(:) :: tab_bounds

array to deallocate

private subroutine ft_gauss(tab, scal)

The function ft_gauss performs a Gaussian filter on the surface tab. It:

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(inout), dimension(:,:) :: tab

array of the surface
type(SCALE_SURF), intent(inout) :: scal

SCALE_SURF object of the input surface

private subroutine lssq_img(tab, scal)

The function lssq_img subtracts a least square 2D polynomial from tab. It:

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(inout), dimension(:,:) :: tab

array of the surface
type(SCALE_SURF), intent(inout) :: scal

SCALE_SURF object of the input surface

private subroutine nb_procs()

Define the number of concurrent threads (1 or all available threads)

Arguments

None

public subroutine read_job(irep, time, job_file, spy_unit)

The principle of the present function is to read a user-made batch file. The batch file, or job file, contains a sequence of keywords.

Read more…

Arguments

Type IntentOptional Attributes Name
integer(kind=I4), intent(in) :: irep

repetition number when the program is ran multiple times
character(len=014), intent(in) :: time

execution time
character(len=512), intent(in) :: job_file

job file with macros to execute
integer(kind=I4), intent(in) :: spy_unit

spy file unit

private subroutine read_sur(tab, scal)

Read a surface file

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(out), allocatable, dimension(:,:) :: tab

array for the surface file
type(SCALE_SURF), intent(out) :: scal

SCALE_SURF object

private subroutine sampling(scal, scal_samp, nb_samp, tab_bounds)

The function sampling allow for the user to sample the surface.

Read more…

Arguments

Type IntentOptional Attributes Name
type(SCALE_SURF), intent(in) :: scal

SCALE_SURF object of the input surface
type(SCALE_SURF), intent(out) :: scal_samp

SCALE_SURF object of a sample
integer(kind=I4), intent(out) :: nb_samp

number of samples
type(tborne), intent(out), allocatable, dimension(:) :: tab_bounds

array of the sample bounds

private subroutine save_sur(tab, scal)

Save the surface in the file specified in the job file

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(inout), dimension(:,:) :: tab

array containing the surface
type(SCALE_SURF), intent(inout) :: scal

SCALE_SURF object

private subroutine smooth__(tab, scal)

Smooth out a surface according median_filter procedure

Arguments

Type IntentOptional Attributes Name
real(kind=R8), intent(inout), dimension(:,:) :: tab

array containing the surface
type(SCALE_SURF), intent(in) :: scal

SCALE_SURF object

private subroutine sta_loop()

Start sample loop

Arguments

None

private subroutine strt_job()

Some initializations: ‘GLOBAL_OMP’ (tasks parallelization), ‘OUT_CMD’ (verbose mode), etc.

Arguments

None