cable_write_module Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, private :: ncmissingi = -9999999
integer, private :: ok
real, public, POINTER, DIMENSION(:) :: otmp1
real, public, POINTER, DIMENSION(:) :: otmp1l
real, public, POINTER, DIMENSION(:, :) :: otmp2lt
real, public, POINTER, DIMENSION(:, :) :: otmp2xy
real, public, POINTER, DIMENSION(:, :) :: otmp2lp
real, public, POINTER, DIMENSION(:, :) :: otmp2ls
real, public, POINTER, DIMENSION(:, :) :: otmp2lpc
real, public, POINTER, DIMENSION(:, :) :: otmp2lsc
real, public, POINTER, DIMENSION(:, :) :: otmp2lsf
real, public, POINTER, DIMENSION(:, :) :: otmp2lr
real, public, POINTER, DIMENSION(:, :) :: otmp2lsn
real, public, POINTER, DIMENSION(:, :, :) :: otmp3xyt
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lpt
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lst
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lsnt
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lrt
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lpct
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lsct
real, public, POINTER, DIMENSION(:, :, :) :: otmp3xyp
real, public, POINTER, DIMENSION(:, :, :) :: otmp3xys
real, public, POINTER, DIMENSION(:, :, :) :: otmp3xypc
real, public, POINTER, DIMENSION(:, :, :) :: otmp3xysc
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lps
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lppc
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lpsc
real, public, POINTER, DIMENSION(:, :, :) :: otmp3xysf
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lpr
real, public, POINTER, DIMENSION(:, :, :) :: otmp3lpsn
real, private, POINTER, DIMENSION(:, :, :) :: otmp3xyr
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xypt
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xyzt
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xyst
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xysnt
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xyrt
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xypct
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xysct
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4lpst
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4lpsnt
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4lprt
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4lpsct
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4lppct
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xyps
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xyppc
real, public, POINTER, DIMENSION(:, :, :, :) :: otmp4xypsc
real, private, POINTER, DIMENSION(:, :, :, :) :: otmp4xypr
real, public, POINTER, DIMENSION(:, :, :, :, :) :: otmp5xypst
real, public, POINTER, DIMENSION(:, :, :, :, :) :: otmp5xypsnt
real, public, POINTER, DIMENSION(:, :, :, :, :) :: otmp5xyprt
real, public, POINTER, DIMENSION(:, :, :, :, :) :: otmp5xyppct
real, public, POINTER, DIMENSION(:, :, :, :, :) :: otmp5xypsct
real, private :: ncmissingr = -1.0e+33

Interfaces

public interface define_ovar

  • private subroutine define_output_variable_r1(ncid, varID, vname, vunits, longname, writepatch, dimswitch, xID, yID, zID, landID, patchID, tID)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(out) :: varID
    character(len=*), intent(in) :: vname
    character(len=*), intent(in) :: vunits
    character(len=*), intent(in) :: longname
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    integer, intent(in) :: xID
    integer, intent(in) :: yID
    integer, intent(in) :: zID
    integer, intent(in) :: landID
    integer, intent(in) :: patchID
    integer, intent(in) :: tID

  • private subroutine define_output_variable_r2(ncid, varID, vname, vunits, longname, writepatch, dimswitch, xID, yID, zID, landID, patchID, othdimID, tID)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(out) :: varID
    character(len=*), intent(in) :: vname
    character(len=*), intent(in) :: vunits
    character(len=*), intent(in) :: longname
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    integer, intent(in) :: xID
    integer, intent(in) :: yID
    integer, intent(in) :: zID
    integer, intent(in) :: landID
    integer, intent(in) :: patchID
    integer, intent(in) :: othdimID
    integer, intent(in) :: tID

  • private subroutine define_output_parameter_r1(ncid, parID, pname, punits, longname, writepatch, dimswitch, xID, yID, zID, landID, patchID, restart)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(out) :: parID
    character(len=*), intent(in) :: pname
    character(len=*), intent(in) :: punits
    character(len=*), intent(in) :: longname
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    integer, intent(in) :: xID
    integer, intent(in) :: yID
    integer, intent(in) :: zID
    integer, intent(in) :: landID
    integer, intent(in) :: patchID
    logical, intent(in), optional :: restart

  • private subroutine define_output_parameter_r2(ncid, parID, pname, punits, longname, writepatch, othdimID, dimswitch, xID, yID, zID, landID, patchID, restart)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(out) :: parID
    character(len=*), intent(in) :: pname
    character(len=*), intent(in) :: punits
    character(len=*), intent(in) :: longname
    logical, intent(in) :: writepatch
    integer, intent(in) :: othdimID
    character(len=*), intent(in) :: dimswitch
    integer, intent(in) :: xID
    integer, intent(in) :: yID
    integer, intent(in) :: zID
    integer, intent(in) :: landID
    integer, intent(in) :: patchID
    logical, intent(in), optional :: restart

public interface write_ovar

  • private subroutine write_output_variable_r1(ktau, ncid, varID, vname, var_r1, writepatch, dimswitch, met)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ktau
    integer, intent(in) :: ncid
    integer, intent(in) :: varID
    character(len=*), intent(in) :: vname
    real(kind=4), intent(in), DIMENSION(:) :: var_r1
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    type(met_type), intent(in) :: met

  • private subroutine write_output_variable_r2(ktau, ncid, varID, vname, var_r2, writepatch, dimswitch, met)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ktau
    integer, intent(in) :: ncid
    integer, intent(in) :: varID
    character(len=*), intent(in) :: vname
    real(kind=4), intent(in), DIMENSION(:, :) :: var_r2
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    type(met_type), intent(in) :: met

  • private subroutine write_output_parameter_r1(ncid, parID, pname, par_r1, writepatch, dimswitch, restart)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(in) :: parID
    character(len=*), intent(in) :: pname
    real(kind=4), intent(in), DIMENSION(:) :: par_r1
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in) :: restart

  • private subroutine write_output_parameter_r1d(ncid, parID, pname, par_r1d, writepatch, dimswitch, restart)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(in) :: parID
    character(len=*), intent(in) :: pname
    real(kind=r_2), intent(in), DIMENSION(:) :: par_r1d
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in) :: restart

  • private subroutine write_output_parameter_r2(ncid, parID, pname, par_r2, writepatch, dimswitch, restart)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(in) :: parID
    character(len=*), intent(in) :: pname
    real(kind=4), intent(in), DIMENSION(:, :) :: par_r2
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in), optional :: restart

  • private subroutine write_output_parameter_r2d(ncid, parID, pname, par_r2d, writepatch, dimswitch, restart)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: ncid
    integer, intent(in) :: parID
    character(len=*), intent(in) :: pname
    real(kind=r_2), intent(in), DIMENSION(:, :) :: par_r2d
    logical, intent(in) :: writepatch
    character(len=*), intent(in) :: dimswitch
    logical, intent(in), optional :: restart

Subroutines

public subroutine nullify_write()

Arguments

None

private subroutine define_output_variable_r1(ncid, varID, vname, vunits, longname, writepatch, dimswitch, xID, yID, zID, landID, patchID, tID)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(out) :: varID
character(len=*), intent(in) :: vname
character(len=*), intent(in) :: vunits
character(len=*), intent(in) :: longname
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
integer, intent(in) :: xID
integer, intent(in) :: yID
integer, intent(in) :: zID
integer, intent(in) :: landID
integer, intent(in) :: patchID
integer, intent(in) :: tID

private subroutine define_output_variable_r2(ncid, varID, vname, vunits, longname, writepatch, dimswitch, xID, yID, zID, landID, patchID, othdimID, tID)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(out) :: varID
character(len=*), intent(in) :: vname
character(len=*), intent(in) :: vunits
character(len=*), intent(in) :: longname
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
integer, intent(in) :: xID
integer, intent(in) :: yID
integer, intent(in) :: zID
integer, intent(in) :: landID
integer, intent(in) :: patchID
integer, intent(in) :: othdimID
integer, intent(in) :: tID

private subroutine define_output_parameter_r1(ncid, parID, pname, punits, longname, writepatch, dimswitch, xID, yID, zID, landID, patchID, restart)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(out) :: parID
character(len=*), intent(in) :: pname
character(len=*), intent(in) :: punits
character(len=*), intent(in) :: longname
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
integer, intent(in) :: xID
integer, intent(in) :: yID
integer, intent(in) :: zID
integer, intent(in) :: landID
integer, intent(in) :: patchID
logical, intent(in), optional :: restart

private subroutine define_output_parameter_r2(ncid, parID, pname, punits, longname, writepatch, othdimID, dimswitch, xID, yID, zID, landID, patchID, restart)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(out) :: parID
character(len=*), intent(in) :: pname
character(len=*), intent(in) :: punits
character(len=*), intent(in) :: longname
logical, intent(in) :: writepatch
integer, intent(in) :: othdimID
character(len=*), intent(in) :: dimswitch
integer, intent(in) :: xID
integer, intent(in) :: yID
integer, intent(in) :: zID
integer, intent(in) :: landID
integer, intent(in) :: patchID
logical, intent(in), optional :: restart

private subroutine write_output_variable_r1(ktau, ncid, varID, vname, var_r1, writepatch, dimswitch, met)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ktau
integer, intent(in) :: ncid
integer, intent(in) :: varID
character(len=*), intent(in) :: vname
real(kind=4), intent(in), DIMENSION(:) :: var_r1
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
type(met_type), intent(in) :: met

private subroutine write_output_variable_r2(ktau, ncid, varID, vname, var_r2, writepatch, dimswitch, met)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ktau
integer, intent(in) :: ncid
integer, intent(in) :: varID
character(len=*), intent(in) :: vname
real(kind=4), intent(in), DIMENSION(:, :) :: var_r2
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
type(met_type), intent(in) :: met

private subroutine write_output_parameter_r1(ncid, parID, pname, par_r1, writepatch, dimswitch, restart)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(in) :: parID
character(len=*), intent(in) :: pname
real(kind=4), intent(in), DIMENSION(:) :: par_r1
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
logical, intent(in) :: restart

private subroutine write_output_parameter_r1d(ncid, parID, pname, par_r1d, writepatch, dimswitch, restart)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(in) :: parID
character(len=*), intent(in) :: pname
real(kind=r_2), intent(in), DIMENSION(:) :: par_r1d
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
logical, intent(in) :: restart

private subroutine write_output_parameter_r2(ncid, parID, pname, par_r2, writepatch, dimswitch, restart)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(in) :: parID
character(len=*), intent(in) :: pname
real(kind=4), intent(in), DIMENSION(:, :) :: par_r2
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
logical, intent(in), optional :: restart

private subroutine write_output_parameter_r2d(ncid, parID, pname, par_r2d, writepatch, dimswitch, restart)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ncid
integer, intent(in) :: parID
character(len=*), intent(in) :: pname
real(kind=r_2), intent(in), DIMENSION(:, :) :: par_r2d
logical, intent(in) :: writepatch
character(len=*), intent(in) :: dimswitch
logical, intent(in), optional :: restart