cv3_estatmix_mod Module


Used by

  • module~~cv3_estatmix_mod~~UsedByGraph module~cv3_estatmix_mod cv3_estatmix_mod proc~cva_driver cva_driver proc~cva_driver->module~cv3_estatmix_mod

Contents

Subroutines


Subroutines

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

! 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

Read more…

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 (len,nd) :: h
real, intent(in), DIMENSION (len,nd) :: gz
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