cable_read_module Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, private :: ok

Interfaces

public interface readpar

  • private subroutine readpar_i(ncid, parname, completeSet, var_i, filename, npatch, dimswitch, from_restart, INpatch)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    character(len=*), intent(in) :: parname
    logical, intent(inout) :: completeSet
    integer, intent(inout), DIMENSION(:) :: var_i
    character(len=*), intent(in) :: filename
    integer, intent(in) :: npatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in), optional :: from_restart
    integer, intent(in), optional :: INpatch

  • private subroutine readpar_r(ncid, parname, completeSet, var_r, filename, npatch, dimswitch, from_restart, INpatch)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    character(len=*), intent(in) :: parname
    logical, intent(inout) :: completeSet
    real(kind=4), intent(inout), DIMENSION(:) :: var_r
    character(len=*), intent(in) :: filename
    integer, intent(in) :: npatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in), optional :: from_restart
    integer, intent(in), optional :: INpatch

  • private subroutine readpar_rd(ncid, parname, completeSet, var_rd, filename, npatch, dimswitch, from_restart, INpatch)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    character(len=*), intent(in) :: parname
    logical, intent(inout) :: completeSet
    real(kind=r_2), intent(inout), DIMENSION(:) :: var_rd
    character(len=*), intent(in) :: filename
    integer, intent(in) :: npatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in), optional :: from_restart
    integer, intent(in), optional :: INpatch

  • private subroutine readpar_r2(ncid, parname, completeSet, var_r2, filename, npatch, dimswitch, from_restart, INpatch)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    character(len=*), intent(in) :: parname
    logical, intent(inout) :: completeSet
    real(kind=4), intent(inout), DIMENSION(:,:) :: var_r2
    character(len=*), intent(in) :: filename
    integer, intent(in) :: npatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in), optional :: from_restart
    integer, intent(in), optional :: INpatch

  • private subroutine readpar_r2d(ncid, parname, completeSet, var_r2d, filename, npatch, dimswitch, from_restart, INpatch)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    character(len=*), intent(in) :: parname
    logical, intent(inout) :: completeSet
    real(kind=r_2), intent(inout), DIMENSION(:, :) :: var_r2d
    character(len=*), intent(in) :: filename
    integer, intent(in) :: npatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in), optional :: from_restart
    integer, intent(in), optional :: INpatch

Subroutines

private subroutine readpar_i(ncid, parname, completeSet, var_i, filename, npatch, dimswitch, from_restart, INpatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
character(len=*), intent(in) :: parname
logical, intent(inout) :: completeSet
integer, intent(inout), DIMENSION(:) :: var_i
character(len=*), intent(in) :: filename
integer, intent(in) :: npatch
character(len=*), intent(in) :: dimswitch
logical, intent(in), optional :: from_restart
integer, intent(in), optional :: INpatch

private subroutine readpar_r(ncid, parname, completeSet, var_r, filename, npatch, dimswitch, from_restart, INpatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
character(len=*), intent(in) :: parname
logical, intent(inout) :: completeSet
real(kind=4), intent(inout), DIMENSION(:) :: var_r
character(len=*), intent(in) :: filename
integer, intent(in) :: npatch
character(len=*), intent(in) :: dimswitch
logical, intent(in), optional :: from_restart
integer, intent(in), optional :: INpatch

private subroutine readpar_rd(ncid, parname, completeSet, var_rd, filename, npatch, dimswitch, from_restart, INpatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
character(len=*), intent(in) :: parname
logical, intent(inout) :: completeSet
real(kind=r_2), intent(inout), DIMENSION(:) :: var_rd
character(len=*), intent(in) :: filename
integer, intent(in) :: npatch
character(len=*), intent(in) :: dimswitch
logical, intent(in), optional :: from_restart
integer, intent(in), optional :: INpatch

private subroutine readpar_r2(ncid, parname, completeSet, var_r2, filename, npatch, dimswitch, from_restart, INpatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
character(len=*), intent(in) :: parname
logical, intent(inout) :: completeSet
real(kind=4), intent(inout), DIMENSION(:,:) :: var_r2
character(len=*), intent(in) :: filename
integer, intent(in) :: npatch
character(len=*), intent(in) :: dimswitch
logical, intent(in), optional :: from_restart
integer, intent(in), optional :: INpatch

private subroutine readpar_r2d(ncid, parname, completeSet, var_r2d, filename, npatch, dimswitch, from_restart, INpatch)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
character(len=*), intent(in) :: parname
logical, intent(inout) :: completeSet
real(kind=r_2), intent(inout), DIMENSION(:, :) :: var_r2d
character(len=*), intent(in) :: filename
integer, intent(in) :: npatch
character(len=*), intent(in) :: dimswitch
logical, intent(in), optional :: from_restart
integer, intent(in), optional :: INpatch

public subroutine redistr_i(INpatch, nap, in_i, out_i, parname)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: INpatch
integer, intent(in) :: nap(INpatch)
integer, intent(in) :: in_i(INpatch)
integer, intent(out) :: out_i(mp)
character(len=*), intent(in) :: parname

public subroutine redistr_r(INpatch, nap, in_r, out_r, parname)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: INpatch
integer, intent(in) :: nap(INpatch)
real, intent(in) :: in_r(INpatch)
real, intent(out) :: out_r(mp)
character(len=*), intent(in) :: parname

public subroutine redistr_rd(INpatch, nap, in_rd, out_rd, parname)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: INpatch
integer, intent(in) :: nap(INpatch)
real(kind=r_2), intent(in) :: in_rd(INpatch)
real(kind=r_2), intent(out) :: out_rd(mp)
character(len=*), intent(in) :: parname

public subroutine redistr_r2(INpatch, nap, in_r2, out_r2, parname, dim2)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: INpatch
integer, intent(in) :: nap(INpatch)
real, intent(in) :: in_r2(INpatch,dim2)
real, intent(out) :: out_r2(mp,dim2)
character(len=*), intent(in) :: parname
integer, intent(in) :: dim2

public subroutine redistr_r2d(INpatch, nap, in_r2d, out_r2d, parname, dim2)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: INpatch
integer, intent(in) :: nap(INpatch)
real(kind=r_2), intent(in) :: in_r2d(INpatch,dim2)
real(kind=r_2), intent(out) :: out_r2d(mp,dim2)
character(len=*), intent(in) :: parname
integer, intent(in) :: dim2