WAVEWATCH III  beta 0.0.1
w3profsmd_pdlib.F90 File Reference

Go to the source code of this file.

Modules

module  pdlib_w3profsmd
 

Functions/Subroutines

subroutine pdlib_w3profsmd::pdlib_init (IMOD)
 
subroutine pdlib_w3profsmd::pdlib_mapsta_init (IMOD)
 
subroutine pdlib_w3profsmd::pdlib_iobp_init (IMOD)
 
subroutine pdlib_w3profsmd::pdlib_w3xypug (ISP, FACX, FACY, DTG, VGX, VGY, LCALC)
 
subroutine pdlib_w3profsmd::pdlib_w3xypfsn2 (ISP, C, LCALC, RD10, RD20, DT, AC)
 
subroutine pdlib_w3profsmd::pdlib_w3xypfspsi2 (ISP, C, LCALC, RD10, RD20, DT, AC)
 
subroutine pdlib_w3profsmd::pdlib_w3xypfsfct2 (ISP, C, LCALC, RD10, RD20, DT, AC)
 
subroutine pdlib_w3profsmd::test_mpi_status (string)
 
subroutine pdlib_w3profsmd::scal_integral_print_general (V, string, maxidx, CheckUncovered, PrintFullValue)
 
subroutine pdlib_w3profsmd::scal_integral_print_r8 (V, string)
 
subroutine pdlib_w3profsmd::scal_integral_print_r4 (V, string)
 
subroutine pdlib_w3profsmd::all_vaold_integral_print (string, choice)
 
subroutine pdlib_w3profsmd::all_va_integral_print (IMOD, string, choice)
 
subroutine pdlib_w3profsmd::all_field_integral_print (FIELD, string)
 
subroutine pdlib_w3profsmd::check_array_integral_nx_r8_maxfunct (TheARR, string, maxidx, PrintMinISP, LocalizeMaximum)
 
subroutine pdlib_w3profsmd::check_array_integral_nx_r8 (TheARR, string, maxidx)
 
subroutine pdlib_w3profsmd::pdlib_w3xypug_block_implicit (IMOD, FACX, FACY, DTG, VGX, VGY, LCALC)
 
subroutine pdlib_w3profsmd::pdlib_w3xypug_block_explicit (IMOD, FACX, FACY, DTG, VGX, VGY, LCALC)
 
subroutine pdlib_w3profsmd::print_wn_statistic (string)
 
subroutine pdlib_w3profsmd::write_var_to_text_file (TheArr, eFile)
 
subroutine pdlib_w3profsmd::printtotaloffcontrib (string)
 
subroutine pdlib_w3profsmd::compute_mean_param (A, CG, WN, EMEAN, FMEAN, WNMEAN, AMAX)
 
subroutine pdlib_w3profsmd::calcarray_jacobi (DTG, FACX, FACY, VGX, VGY)
 
subroutine pdlib_w3profsmd::calcarray_jacobi_vec (DTG, FACX, FACY, VGX, VGY)
 
subroutine pdlib_w3profsmd::calcarray_jacobi2 (DTG, FACX, FACY, VGX, VGY)
 
subroutine pdlib_w3profsmd::calcarray_jacobi3 (IP, J, DTG, FACX, FACY, VGX, VGY, ASPAR_DIAG_LOCAL, ASPAR_OFF_DIAG_LOCAL, B_JAC_LOCAL)
 
subroutine pdlib_w3profsmd::calcarray_jacobi4 (IP, DTG, FACX, FACY, VGX, VGY, ASPAR_DIAG_LOCAL, ASPAR_OFF_DIAG_LOCAL, B_JAC_LOCAL)
 
subroutine pdlib_w3profsmd::calcarray_jacobi_spectral_1 (DTG)
 
subroutine pdlib_w3profsmd::calcarray_jacobi_spectral_2 (DTG, ASPAR_DIAG_LOCAL)
 
subroutine pdlib_w3profsmd::calcarray_jacobi_source_1 (DTG)
 
subroutine pdlib_w3profsmd::calcarray_jacobi_source_2 (DTG, ASPAR_DIAG_LOCAL)
 
subroutine pdlib_w3profsmd::apply_boundary_condition_va
 
subroutine pdlib_w3profsmd::apply_boundary_condition (IMOD)
 
subroutine pdlib_w3profsmd::action_limiter_local (IP, ACLOC, ACOLD, DTG)
 
subroutine pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block (IMOD, FACX, FACY, DTG, VGX, VGY, LCALC)
 
subroutine pdlib_w3profsmd::pdlib_explicit_block (IMOD, FACX, FACY, DTG, VGX, VGY, LCALC)
 
subroutine pdlib_w3profsmd::block_solver_explicit_init ()
 
subroutine pdlib_w3profsmd::block_solver_init (IMOD)
 
subroutine pdlib_w3profsmd::set_iobdp_pdlib
 
subroutine pdlib_w3profsmd::set_iobpa_pdlib
 
subroutine pdlib_w3profsmd::set_ug_iobp_pdlib_init ()
 
subroutine pdlib_w3profsmd::block_solver_finalize
 
subroutine pdlib_w3profsmd::deallocate_pdlib_global (IMOD)
 
subroutine pdlib_w3profsmd::ergout (FHNDL, ERGNAME)
 
subroutine pdlib_w3profsmd::jacobi_init (IMOD)
 
subroutine pdlib_w3profsmd::jacobi_finalize
 

Variables

integer, save pdlib_w3profsmd::ient = 0
 
logical pdlib_w3profsmd::mapsta_hack = .FALSE.
 
real, dimension(:,:), allocatable pdlib_w3profsmd::aspar_jac
 
real, dimension(:,:), allocatable pdlib_w3profsmd::aspar_diag_sources
 
real, dimension(:,:), allocatable pdlib_w3profsmd::aspar_diag_all
 
real, dimension(:,:), allocatable pdlib_w3profsmd::b_jac
 
real, dimension(:,:), allocatable pdlib_w3profsmd::cad_the
 
real, dimension(:,:), allocatable pdlib_w3profsmd::cas_sig
 
real, dimension(:,:), allocatable pdlib_w3profsmd::cwnb_sig_m2
 
real, dimension(:,:), allocatable pdlib_w3profsmd::u_jac
 
real, dimension(:), allocatable pdlib_w3profsmd::cofrm4
 
real *8, dimension(:,:,:), allocatable pdlib_w3profsmd::flall1
 
real *8, dimension(:,:,:), allocatable pdlib_w3profsmd::kelem1
 
real *8, dimension(:,:,:), allocatable pdlib_w3profsmd::flall2
 
real *8, dimension(:,:,:), allocatable pdlib_w3profsmd::kelem2
 
real *8, dimension(:,:,:), allocatable pdlib_w3profsmd::flall3
 
real *8, dimension(:,:,:), allocatable pdlib_w3profsmd::kelem3
 
real *8, dimension(:,:,:), allocatable pdlib_w3profsmd::nm
 
real *8, dimension(:), allocatable pdlib_w3profsmd::dtsi
 
integer, dimension(:), allocatable pdlib_w3profsmd::iter
 
integer, dimension(:), allocatable pdlib_w3profsmd::is0_pdlib
 
integer pdlib_w3profsmd::freqshiftmethod = 2
 
logical pdlib_w3profsmd::fsgeoadvect
 
logical, save pdlib_w3profsmd::linit_output = .TRUE.
 
real, save pdlib_w3profsmd::rtime = 0.d0
 
integer, dimension(3, 2) pdlib_w3profsmd::pos_trick
 
integer pdlib_w3profsmd::testnode = 1
 
integer pdlib_w3profsmd::memunit