cv3p2_closure Subroutine

public subroutine cv3p2_closure(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, tv, tvp, buoy, supmax, ok_inhib, ale, alp, omega, sig, w0, ptop2, cape, cin, m, iflag, coef, plim1, plim2, asupmax, supmax0, asupmaxmin, cbmflast, plfc, wbeff)

Uses

  • proc~~cv3p2_closure~~UsesGraph proc~cv3p2_closure cv3p2_closure module~yomcst_mod_h yomcst_mod_h proc~cv3p2_closure->module~yomcst_mod_h module~cvflag_mod_h~2 cvflag_mod_h proc~cv3p2_closure->module~cvflag_mod_h~2 module~cv3_buoy_mod cv3_buoy_mod proc~cv3p2_closure->module~cv3_buoy_mod module~conema3_mod_h conema3_mod_h proc~cv3p2_closure->module~conema3_mod_h module~lmdz_cv_ini~2 lmdz_cv_ini proc~cv3p2_closure->module~lmdz_cv_ini~2 module~cv3_cine_mod cv3_cine_mod proc~cv3p2_closure->module~cv3_cine_mod module~print_control_mod print_control_mod proc~cv3p2_closure->module~print_control_mod module~yomcst2_mod_h yomcst2_mod_h proc~cv3p2_closure->module~yomcst2_mod_h

PARAMETER (sigmax=10.)

jyg

jyg rhodp(il,k) = 0.007p(il, k)(ph(il,k)-ph(il,k+1))/tv(il, k) !cor jyg : computed earlier jyg jyg

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nloc
integer, intent(in) :: ncum
integer, intent(in) :: nd
integer, intent(in), DIMENSION (nloc) :: icb
integer, intent(in), DIMENSION (nloc) :: inb
real, intent(in), DIMENSION (nloc) :: pbase
real, intent(in), DIMENSION (nloc) :: plcl
real, intent(in), DIMENSION (nloc, nd) :: p
real, intent(in), DIMENSION (nloc, nd+1) :: ph
real, intent(in), DIMENSION (nloc, nd) :: tv
real, intent(in), DIMENSION (nloc, nd) :: tvp
real, intent(in), DIMENSION (nloc, nd) :: buoy
real, intent(in), DIMENSION (nloc, nd) :: supmax
logical, intent(in) :: ok_inhib
real, intent(in), DIMENSION (nloc) :: ale
real, intent(in), DIMENSION (nloc) :: alp
real, intent(in), DIMENSION (nloc, nd) :: omega
real, intent(inout), DIMENSION (nloc, nd) :: sig
real, intent(inout), DIMENSION (nloc, nd) :: w0
real, intent(inout), DIMENSION (nloc) :: ptop2
real, intent(out), DIMENSION (nloc) :: cape
real, intent(out), DIMENSION (nloc) :: cin
real, intent(out), DIMENSION (nloc, nd) :: m
integer, intent(inout), DIMENSION (nloc) :: iflag
real, DIMENSION (nloc) :: coef
real, intent(out), DIMENSION (nloc) :: plim1
real, intent(out), DIMENSION (nloc) :: plim2
real, intent(out), DIMENSION (nloc, nd) :: asupmax
real, intent(out), DIMENSION (nloc) :: supmax0
real, intent(out), DIMENSION (nloc) :: asupmaxmin
real, intent(out), DIMENSION (nloc) :: cbmflast
real, intent(out), DIMENSION (nloc) :: plfc
real, intent(out), DIMENSION (nloc) :: wbeff

Calls

proc~~cv3p2_closure~~CallsGraph proc~cv3p2_closure cv3p2_closure proc~abort_physic abort_physic proc~cv3p2_closure->proc~abort_physic amin1 amin1 proc~cv3p2_closure->amin1 proc~cv3_buoy cv3_buoy proc~cv3p2_closure->proc~cv3_buoy amax1 amax1 proc~cv3p2_closure->amax1 proc~cv3_cine cv3_cine proc~cv3p2_closure->proc~cv3_cine histclo histclo proc~abort_physic->histclo proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort restclo restclo proc~abort_physic->restclo getin_dump getin_dump proc~abort_physic->getin_dump proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort

Called by

proc~~cv3p2_closure~~CalledByGraph proc~cv3p2_closure cv3p2_closure proc~cva_driver cva_driver proc~cva_driver->proc~cv3p2_closure proc~cva_driver~2 cva_driver proc~cva_driver~2->proc~cv3p2_closure proc~concvl concvl proc~concvl->proc~cva_driver proc~concvl~2 concvl proc~concvl~2->proc~cva_driver~2 proc~physiq physiq proc~physiq->proc~concvl proc~physiq~2 physiq proc~physiq~2->proc~concvl proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents