cv3_enthalpmix Subroutine

public subroutine cv3_enthalpmix(len, nd, iflag, plim1, plim2, p, ph, t, q, u, v, w, wi, nk, tmix, thmix, qmix, qsmix, umix, vmix, plcl)

Uses

  • proc~~cv3_enthalpmix~~UsesGraph proc~cv3_enthalpmix cv3_enthalpmix module~lmdz_cv_ini~2 lmdz_cv_ini proc~cv3_enthalpmix->module~lmdz_cv_ini~2 module~yoethf_mod_h yoethf_mod_h proc~cv3_enthalpmix->module~yoethf_mod_h module~yomcst_mod_h yomcst_mod_h proc~cv3_enthalpmix->module~yomcst_mod_h

! IF (plim2p(i)>=ph(i,j+1) .AND. plim2p(i)<ph(i,j)) j2(i) = j print *,'cv3_vertmix, j1,j2,coef ', j1,j2,coef !jyg

print *,'cv3_vertmix, j, wi(1,j),dpw ', j, wi(1,j),dpw !jyg

print *,'cv3_vertmix, rdcp ', rdcp !jyg

print *,' cv3_vertmix->' !jyg

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: len
integer, intent(in) :: nd
integer, intent(inout), DIMENSION (len) :: iflag
real, intent(in), DIMENSION (len) :: plim1
real, intent(in), DIMENSION (len) :: plim2
real, intent(in), DIMENSION (len,nd) :: p
real, intent(in), DIMENSION (len,nd+1) :: ph
real, intent(in), DIMENSION (len,nd) :: t
real, intent(in), DIMENSION (len,nd) :: q
real, intent(in), DIMENSION (len,nd) :: u
real, intent(in), DIMENSION (len,nd) :: v
real, intent(in), DIMENSION (nd) :: w
real, intent(out), DIMENSION (len,nd) :: wi
integer, intent(in), DIMENSION (len) :: nk
real, intent(out), DIMENSION (len) :: tmix
real, intent(out), DIMENSION (len) :: thmix
real, intent(out), DIMENSION (len) :: qmix
real, intent(out), DIMENSION (len) :: qsmix
real, intent(out), DIMENSION (len) :: umix
real, intent(out), DIMENSION (len) :: vmix
real, intent(out), DIMENSION (len) :: plcl

Contents