SURFEX v8.1
General documentation of Surfex
Functions/Subroutines
facade.F90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine facade_fort (FA, CDNOMC, KTYPTR, PSLAPO, PCLOPO, PSLOPO, PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA, KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR, PBHYBR, LDGARD)
 
subroutine facade64 (CDNOMC, KTYPTR, PSLAPO, PCLOPO, PSLOPO, PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA, KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR, PBHYBR, LDGARD)
 
subroutine facade (CDNOMC, KTYPTR, PSLAPO, PCLOPO, PSLOPO, PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA, KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR, PBHYBR, LDGARD)
 
subroutine facade_mt (FA, CDNOMC, KTYPTR, PSLAPO, PCLOPO, PSLOPO, PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA, KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR, PBHYBR, LDGARD)
 

Function/Subroutine Documentation

◆ facade()

subroutine facade ( character (len=*)  CDNOMC,
integer (kind=jplikm)  KTYPTR,
real (kind=jpdblr)  PSLAPO,
real (kind=jpdblr)  PCLOPO,
real (kind=jpdblr)  PSLOPO,
real (kind=jpdblr)  PCODIL,
integer (kind=jplikm)  KTRONC,
integer (kind=jplikm)  KNLATI,
integer (kind=jplikm)  KNXLON,
integer (kind=jplikm), dimension (*)  KNLOPA,
integer (kind=jplikm), dimension (*)  KNOZPA,
real (kind=jpdblr), dimension ((1+knlati)/2)  PSINLA,
integer (kind=jplikm)  KNIVER,
real (kind=jpdblr)  PREFER,
real (kind=jpdblr), dimension (0:kniver)  PAHYBR,
real (kind=jpdblr), dimension (0:kniver)  PBHYBR,
logical  LDGARD 
)

Definition at line 244 of file facade.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ facade64()

subroutine facade64 ( character (len=*)  CDNOMC,
integer (kind=jplikb)  KTYPTR,
real (kind=jpdblr)  PSLAPO,
real (kind=jpdblr)  PCLOPO,
real (kind=jpdblr)  PSLOPO,
real (kind=jpdblr)  PCODIL,
integer (kind=jplikb)  KTRONC,
integer (kind=jplikb)  KNLATI,
integer (kind=jplikb)  KNXLON,
integer (kind=jplikb), dimension (*)  KNLOPA,
integer (kind=jplikb), dimension (*)  KNOZPA,
real (kind=jpdblr), dimension ((1+knlati)/2)  PSINLA,
integer (kind=jplikb)  KNIVER,
real (kind=jpdblr)  PREFER,
real (kind=jpdblr), dimension (0:kniver)  PAHYBR,
real (kind=jpdblr), dimension (0:kniver)  PBHYBR,
logical  LDGARD 
)

Definition at line 207 of file facade.F90.

Here is the call graph for this function:

◆ facade_fort()

subroutine facade_fort ( type(fa_com)  FA,
character, dimension(*)  CDNOMC,
integer (kind=jplikb)  KTYPTR,
real (kind=jpdblr)  PSLAPO,
real (kind=jpdblr)  PCLOPO,
real (kind=jpdblr)  PSLOPO,
real (kind=jpdblr)  PCODIL,
integer (kind=jplikb)  KTRONC,
integer (kind=jplikb)  KNLATI,
integer (kind=jplikb)  KNXLON,
integer (kind=jplikb), dimension (fa%jpxpah)  KNLOPA,
integer (kind=jplikb), dimension (fa%jpxind)  KNOZPA,
real (kind=jpdblr), dimension ((1+knlati)/2)  PSINLA,
integer (kind=jplikb)  KNIVER,
real (kind=jpdblr)  PREFER,
real (kind=jpdblr), dimension (0:kniver)  PAHYBR,
real (kind=jpdblr), dimension (0:kniver)  PBHYBR,
logical  LDGARD 
)

Definition at line 8 of file facade.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ facade_mt()

subroutine facade_mt ( type (fa_com)  FA,
character (len=*)  CDNOMC,
integer (kind=jplikm)  KTYPTR,
real (kind=jpdblr)  PSLAPO,
real (kind=jpdblr)  PCLOPO,
real (kind=jpdblr)  PSLOPO,
real (kind=jpdblr)  PCODIL,
integer (kind=jplikm)  KTRONC,
integer (kind=jplikm)  KNLATI,
integer (kind=jplikm)  KNXLON,
integer (kind=jplikm), dimension (fa%jpxpah)  KNLOPA,
integer (kind=jplikm), dimension (fa%jpxind)  KNOZPA,
real (kind=jpdblr), dimension ((1+knlati)/2)  PSINLA,
integer (kind=jplikm)  KNIVER,
real (kind=jpdblr)  PREFER,
real (kind=jpdblr), dimension (0:kniver)  PAHYBR,
real (kind=jpdblr), dimension (0:kniver)  PBHYBR,
logical  LDGARD 
)

Definition at line 281 of file facade.F90.

Here is the call graph for this function:
Here is the caller graph for this function: