lmdz_wake_pkupper Module


Used by

  • module~~lmdz_wake_pkupper~~UsedByGraph module~lmdz_wake_pkupper lmdz_wake_pkupper proc~wake wake proc~wake->module~lmdz_wake_pkupper proc~wake2 wake2 proc~wake2->module~lmdz_wake_pkupper proc~wake3 wake3 proc~wake3->module~lmdz_wake_pkupper

Contents

Subroutines


Subroutines

public subroutine wake_pkupper(klon, klev, ptop, ph, p, pupper, kupper, dth, hw_, rho, delta_t_min_in, Ktop, wk_adv, h_zzz, Ptop1, ktop1)

! nrlmd ! nrlmd ! nrlmd print,'OMEGA ',omega(i) print, 'xxx'

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: klon
integer, intent(in) :: klev
real, intent(out), DIMENSION (klon) :: ptop
real, intent(in), DIMENSION (klon,klev+1) :: ph
real, intent(in), DIMENSION (klon,klev+1) :: p
real, intent(out), DIMENSION (klon) :: pupper
integer, intent(out), DIMENSION (klon) :: kupper
real, intent(in), DIMENSION (klon,klev+1) :: dth
real, intent(out), DIMENSION (klon) :: hw_
real, intent(in), DIMENSION (klon,klev+1) :: rho
real, intent(in) :: delta_t_min_in
integer, intent(out), DIMENSION (klon) :: Ktop
logical, intent(in), DIMENSION (klon) :: wk_adv
real, intent(out), DIMENSION (klon) :: h_zzz
real, intent(out), DIMENSION (klon) :: Ptop1
integer, intent(out), DIMENSION (klon) :: ktop1