diffSizes.f90

Go to the documentation of this file.

module diffsizes
    use constants, only: inttype, realtype
    implicit none
    save
 
    ! These are the diff sizes reqruied for the forward mode AD
    integer(kind=intType), parameter :: isize3ofviscsubface = 3
    integer(kind=intType) :: isize1ofdrfbcdata
 
    integer(kind=intType) :: isize1ofdrfviscsubface
    integer(kind=intType) :: isize1ofdrfflowdoms
    integer(kind=intType) :: isize2ofdrfflowdoms
    integer(kind=intType) :: isize3ofdrfflowdoms
    integer(kind=intType) :: isize1ofdrfflowdoms_bcdata
 
    ! These are the diff sizes reqruied for the reverse mode AD
    integer(kind=intType) :: isize3ofdrfrlv, isize2ofdrfrlv, isize1ofdrfrlv
    integer(kind=intType) :: isize4ofdrfw, isize3ofdrfw, isize2ofdrfw, isize1ofdrfw
    integer(kind=intType) :: isize4ofdrffw, isize3ofdrffw, isize2ofdrffw, isize1ofdrffw
    integer(kind=intType) :: isize4ofdrfdw, isize3ofdrfdw, isize2ofdrfdw, isize1ofdrfdw
    integer(kind=intType) :: isize3ofdrfgamma, isize2ofdrfgamma, isize1ofdrfgamma
    integer(kind=intType) :: isize3ofdrfp, isize2ofdrfp, isize1ofdrfp
    integer(kind=intType) :: isize3ofdrfrev, isize2ofdrfrev, isize1ofdrfrev
    integer(kind=intType) :: isize3ofdrfsfacei, isize2ofdrfsfacei, isize1ofdrfsfacei
    integer(kind=intType) :: isize3ofdrfsfacej, isize2ofdrfsfacej, isize1ofdrfsfacej
    integer(kind=intType) :: isize3ofdrfsfacek, isize2ofdrfsfacek, isize1ofdrfsfacek
    integer(kind=intType) :: isize3ofdrfradi, isize2ofdrfradi, isize1ofdrfradi
    integer(kind=intType) :: isize3ofdrfradj, isize2ofdrfradj, isize1ofdrfradj
    integer(kind=intType) :: isize3ofdrfradk, isize2ofdrfradk, isize1ofdrfradk
 
    integer(kind=intType) :: isize4ofdrfsi, isize3ofdrfsi, isize2ofdrfsi, isize1ofdrfsi
    integer(kind=intType) :: isize4ofdrfsj, isize3ofdrfsj, isize2ofdrfsj, isize1ofdrfsj
    integer(kind=intType) :: isize4ofdrfsk, isize3ofdrfsk, isize2ofdrfsk, isize1ofdrfsk
 
    integer(kind=intType) :: isize4ofdrfflowdoms_x, isize3ofdrfflowdoms_x
    integer(kind=intType) :: isize2ofdrfflowdoms_x, isize1ofdrfflowdoms_x
 
    integer(kind=intType) :: isize4ofdrfflowdoms_w, isize3ofdrfflowdoms_w
    integer(kind=intType) :: isize2ofdrfflowdoms_w, isize1ofdrfflowdoms_w
 
    integer(kind=intType) :: isize4ofdrfbmtj2
    integer(kind=intType) :: isize3ofdrfbmtj2, isize3ofdrfbvtj2
    integer(kind=intType) :: isize2ofdrfbmtj2, isize2ofdrfbvtj2
    integer(kind=intType) :: isize1ofdrfbmtj2, isize1ofdrfbvtj2
 
    integer(kind=intType) :: isize4ofdrfbmtj1
    integer(kind=intType) :: isize3ofdrfbmtj1, isize3ofdrfbvtj1
    integer(kind=intType) :: isize2ofdrfbmtj1, isize2ofdrfbvtj1
    integer(kind=intType) :: isize1ofdrfbmtj1, isize1ofdrfbvtj1
 
    integer(kind=intType) :: isize4ofdrfbmti2
    integer(kind=intType) :: isize3ofdrfbmti2, isize3ofdrfbvti2
    integer(kind=intType) :: isize2ofdrfbmti2, isize2ofdrfbvti2
    integer(kind=intType) :: isize1ofdrfbmti2, isize1ofdrfbvti2
 
    integer(kind=intType) :: isize4ofdrfbmti1
    integer(kind=intType) :: isize3ofdrfbmti1, isize3ofdrfbvti1
    integer(kind=intType) :: isize2ofdrfbmti1, isize2ofdrfbvti1
    integer(kind=intType) :: isize1ofdrfbmti1, isize1ofdrfbvti1
 
    integer(kind=intType) :: isize4ofdrfbmtk2
    integer(kind=intType) :: isize3ofdrfbmtk2, isize3ofdrfbvtk2
    integer(kind=intType) :: isize2ofdrfbmtk2, isize2ofdrfbvtk2
    integer(kind=intType) :: isize1ofdrfbmtk2, isize1ofdrfbvtk2
 
    integer(kind=intType) :: isize4ofdrfbmtk1
    integer(kind=intType) :: isize3ofdrfbmtk1, isize3ofdrfbvtk1
    integer(kind=intType) :: isize2ofdrfbmtk1, isize2ofdrfbvtk1
    integer(kind=intType) :: isize1ofdrfbmtk1, isize1ofdrfbvtk1
 
    ! These are the diff sizes reqruied for the forward mode debug
    integer(kind=intType) :: isize1ofdrfdrfbcdata_m, isize2ofdrfdrfbcdata_m, isize3ofdrfdrfbcdata_m
    integer(kind=intType) :: isize1ofdrfdrfbcdata_fp, isize2ofdrfdrfbcdata_fp, isize3ofdrfdrfbcdata_fp
    integer(kind=intType) :: isize1ofdrfdrfbcdata_fv, isize2ofdrfdrfbcdata_fv, isize3ofdrfdrfbcdata_fv
    integer(kind=intType) :: isize1ofdrfdrfbcdata_norm, isize2ofdrfdrfbcdata_norm, isize3ofdrfdrfbcdata_norm
    integer(kind=intType) :: isize1ofdrfdrfbcdata_oarea, isize2ofdrfdrfbcdata_oarea, isize3ofdrfdrfbcdata_oarea
    integer(kind=intType) :: isize1ofdrfdrfbcdata_sepsensor, isize2ofdrfdrfbcdata_sepsensor
    integer(kind=intType) :: isize1ofdrfdrfbcdata_sepsensorks, isize2ofdrfdrfbcdata_sepsensorks
    integer(kind=intType) :: isize1ofdrfdrfbcdata_sepsensorksarea, isize2ofdrfdrfbcdata_sepsensorksarea
    integer(kind=intType) :: isize1ofdrfdrfbcdata_cavitation, isize2ofdrfdrfbcdata_cavitation
    integer(kind=intType) :: isize1ofdrfdrfbcdata_axismoment, isize2ofdrfdrfbcdata_axismoment
    integer(kind=intType) :: isize1ofdrfdrfbcdata_rface, isize2ofdrfdrfbcdata_rface, isize3ofdrfdrfbcdata_rface
    integer(kind=intType) :: isize1ofdrfdrfbcdata_uslip, isize2ofdrfdrfbcdata_uslip, isize3ofdrfdrfbcdata_uslip
    integer(kind=intType) :: isize1ofdrfprod, isize2ofdrfprod, isize3ofdrfprod
    integer(kind=intType) :: isize1ofdrfdvt, isize2ofdrfdvt, isize3ofdrfdvt, isize4ofdrfdvt
    integer(kind=intType) :: isize1ofdrfvort, isize2ofdrfvort, isize3ofdrfvort
    integer(kind=intType) :: isize1ofdrfvol, isize2ofdrfvol, isize3ofdrfvol
 
    integer(kind=intType) :: isize1ofdrfdrfviscsubface_tau, isize2ofdrfdrfviscsubface_tau
    integer(kind=intType) :: isize3ofdrfdrfviscsubface_tau
 
    integer(kind=intType) :: isize1ofdrfflowdoms_dw, isize2ofdrfflowdoms_dw
    integer(kind=intType) :: isize3ofdrfflowdoms_dw, isize4ofdrfflowdoms_dw
 
    integer(kind=intType) :: isize1ofdrfflowdoms_vol, isize2ofdrfflowdoms_vol
    integer(kind=intType) :: isize3ofdrfflowdoms_vol, isize4ofdrfflowdoms_vol
 
    integer(kind=intType) :: isize4ofdrfx, isize3ofdrfx
    integer(kind=intType) :: isize2ofdrfx, isize1ofdrfx
 
    integer(kind=intType) :: isize4ofdrfs, isize3ofdrfs
    integer(kind=intType) :: isize2ofdrfs, isize1ofdrfs
 
    integer(kind=intType) :: isize1ofrho, isize1ofetot, isize1ofu, isize1ofv
    integer(kind=intType) :: isize1ofw, isize1ofp, isize1ofk
 
    integer(kind=intType) :: isize1ofdu1, isize1ofdu2, isize1ofdu3
    integer(kind=intType) :: isize1ofleft, isize1ofright, isize1offlux
 
    ! These are the diff sizes reqruied for the reverse mode
    integer(kind=intType) :: isize1ofdrfcoeftime
    integer(kind=intType) :: isize1ofdrfdtl, isize2ofdrfdtl, isize3ofdrfdtl
    integer(kind=intType) :: isize1ofdrfdrfviscsubface_utau, isize2ofdrfdrfviscsubface_utau
 
end module diffsizes