SURFEX v8.1
General documentation of Surfex
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | eggx_n (PI, PRA, KROTEQ, PLONR, PLATR, PBETA, PLON1, PLAT1, PLON2, PLAT2, PLON0, PLAT0, PRPK, KULOUT, KSOTRP, KGIVO, PGELAM, PGELAT, PGM, PGNORX, PGNORY, KDLSA, KDLSUR, KDGSA, KDGEN, KDLUN, KDLUX, KDGUN, KDGUX, PDELX, PDELY, PLONC, PLATC) |
subroutine eggx_n | ( | real(kind=jprb), intent(in) | PI, |
real(kind=jprb), intent(in) | PRA, | ||
integer(kind=jpim), intent(inout) | KROTEQ, | ||
real(kind=jprb), intent(inout) | PLONR, | ||
real(kind=jprb), intent(inout) | PLATR, | ||
real(kind=jprb), intent(inout) | PBETA, | ||
real(kind=jprb), intent(inout) | PLON1, | ||
real(kind=jprb), intent(inout) | PLAT1, | ||
real(kind=jprb), intent(inout) | PLON2, | ||
real(kind=jprb), intent(inout) | PLAT2, | ||
real(kind=jprb), intent(inout) | PLON0, | ||
real(kind=jprb), intent(inout) | PLAT0, | ||
real(kind=jprb), intent(inout) | PRPK, | ||
integer(kind=jpim), intent(in) | KULOUT, | ||
integer(kind=jpim), intent(inout) | KSOTRP, | ||
integer(kind=jpim), intent(inout) | KGIVO, | ||
real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out) | PGELAM, | ||
real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out) | PGELAT, | ||
real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out) | PGM, | ||
real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out) | PGNORX, | ||
real(kind=jprb), dimension(kdlsa:kdlsur,kdgsa:kdgen), intent(out) | PGNORY, | ||
integer(kind=jpim), intent(inout) | KDLSA, | ||
integer(kind=jpim), intent(inout) | KDLSUR, | ||
integer(kind=jpim), intent(inout) | KDGSA, | ||
integer(kind=jpim), intent(inout) | KDGEN, | ||
integer(kind=jpim), intent(in) | KDLUN, | ||
integer(kind=jpim), intent(in) | KDLUX, | ||
integer(kind=jpim), intent(in) | KDGUN, | ||
integer(kind=jpim), intent(in) | KDGUX, | ||
real(kind=jprb), intent(inout) | PDELX, | ||
real(kind=jprb), intent(inout) | PDELY, | ||
real(kind=jprb), intent(inout) | PLONC, | ||
real(kind=jprb), intent(inout) | PLATC | ||
) |
Definition at line 6 of file eggx_n.F90.