ACAMA_GWD_rando_m Module


Uses

  • module~~acama_gwd_rando_m~~UsesGraph module~acama_gwd_rando_m ACAMA_GWD_rando_m module~clesphys_mod_h~2 clesphys_mod_h module~acama_gwd_rando_m->module~clesphys_mod_h~2

Used by

  • module~~acama_gwd_rando_m~~UsedByGraph module~acama_gwd_rando_m ACAMA_GWD_rando_m proc~physiq physiq proc~physiq->module~acama_gwd_rando_m proc~physiq~2 physiq proc~physiq~2->module~acama_gwd_rando_m

Contents


Variables

Type Visibility Attributes Name Initial
logical, public, SAVE :: gwd_reproductibilite_mpiomp = .true.
logical, public, SAVE :: firstcall = .TRUE.
integer, public, parameter :: NK = 2
integer, public, parameter :: NP = 2
integer, public, parameter :: NO = 2
integer, public, parameter :: NW = NK*NP*NO
integer, public, parameter :: NA = 5

Subroutines

public subroutine ACAMA_GWD_rando_first()

Arguments

None

public subroutine ACAMA_GWD_rando(DTIME, PP, PLAT, TT, UU, VV, ROT, zustr, zvstr, d_u, d_v, east_gwstress, west_gwstress)

CORIO(:)2*TANH(ROTBA(:)/CORIO(:)2) &

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: DTIME
real, intent(in) :: PP(KLON,KLEV)
real, intent(in) :: PLAT(KLON)
real, intent(in) :: TT(KLON,KLEV)
real, intent(in) :: UU(KLON,KLEV)
real, intent(in) :: VV(KLON,KLEV)
real, intent(in) :: ROT(KLON,KLEV)
real, intent(out) :: zustr(KLON)
real, intent(out) :: zvstr(KLON)
real, intent(inout) :: d_u(KLON,KLEV)
real, intent(inout) :: d_v(KLON,KLEV)
real, intent(inout) :: east_gwstress(KLON,KLEV)
real, intent(inout) :: west_gwstress(KLON,KLEV)