cv3a_compress Subroutine

subroutine cv3a_compress(len, nloc, ncum, nd, ntra, compress, iflag1, nk1, icb1, icbs1, plcl1, tnk1, qnk1, gznk1, hnk1, unk1, vnk1, wghti1, pbase1, buoybase1, t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, u1, v1, gz1, th1, th1_wake, tra1, h1, lv1, lf1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, h1_wake, lv1_wake, lf1_wake, cpn1_wake, tv1_wake, sig1, w01, ptop21, Ale1, Alp1, omega1, iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, hnk, unk, vnk, wghti, pbase, buoybase, t, q, qs, t_wake, q_wake, qs_wake, s_wake, u, v, gz, th, th_wake, tra, h, lv, lf, cpn, p, ph, tv, tp, tvp, clw, h_wake, lv_wake, lf_wake, cpn_wake, tv_wake, sig, w0, ptop2, Ale, Alp, omega)

Uses

  • proc~~cv3a_compress~2~~UsesGraph proc~cv3a_compress~2 cv3a_compress module~cv3param_mod_h cv3param_mod_h proc~cv3a_compress~2->module~cv3param_mod_h

jyg jyg

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: len
integer, intent(in) :: nloc
integer, intent(inout) :: ncum
integer, intent(in) :: nd
integer, intent(in) :: ntra
logical, intent(in) :: compress
integer, intent(in), DIMENSION (len) :: iflag1

jyg

integer, intent(in), DIMENSION (len) :: nk1

jyg

integer, intent(in), DIMENSION (len) :: icb1

jyg

integer, intent(in), DIMENSION (len) :: icbs1

jyg

real, intent(in), DIMENSION (len) :: plcl1
real, intent(in), DIMENSION (len) :: tnk1
real, intent(in), DIMENSION (len) :: qnk1
real, intent(in), DIMENSION (len) :: gznk1
real, intent(in), DIMENSION (len) :: hnk1
real, intent(in), DIMENSION (len) :: unk1
real, intent(in), DIMENSION (len) :: vnk1
real, intent(in), DIMENSION (len, nd) :: wghti1(len,nd)
real, intent(in), DIMENSION (len) :: pbase1
real, intent(in), DIMENSION (len) :: buoybase1
real, intent(in), DIMENSION (len, nd) :: t1
real, intent(in), DIMENSION (len, nd) :: q1
real, intent(in), DIMENSION (len, nd) :: qs1
real, intent(in), DIMENSION (len, nd) :: t1_wake
real, intent(in), DIMENSION (len, nd) :: q1_wake
real, intent(in), DIMENSION (len, nd) :: qs1_wake
real, intent(in), DIMENSION (len) :: s1_wake
real, intent(in), DIMENSION (len, nd) :: u1
real, intent(in), DIMENSION (len, nd) :: v1
real, intent(in), DIMENSION (len, nd) :: gz1
real, intent(in), DIMENSION (len, nd) :: th1
real, intent(in), DIMENSION (len, nd) :: th1_wake
real, intent(in), DIMENSION (len, nd,ntra) :: tra1
real, intent(in), DIMENSION (len, nd) :: h1
real, intent(in), DIMENSION (len, nd) :: lv1
real, intent(in), DIMENSION (len, nd) :: lf1
real, intent(in), DIMENSION (len, nd) :: cpn1
real, intent(in), DIMENSION (len, nd) :: p1
real, intent(in), DIMENSION (len, nd+1) :: ph1(len,nd+1)
real, intent(in), DIMENSION (len, nd) :: tv1
real, intent(in), DIMENSION (len, nd) :: tp1
real, intent(in), DIMENSION (len, nd) :: tvp1
real, intent(in), DIMENSION (len, nd) :: clw1
real, intent(in), DIMENSION (len, nd) :: h1_wake
real, intent(in), DIMENSION (len, nd) :: lv1_wake
real, intent(in), DIMENSION (len, nd) :: lf1_wake
real, intent(in), DIMENSION (len, nd) :: cpn1_wake
real, intent(in), DIMENSION (len, nd) :: tv1_wake
real, intent(in), DIMENSION (len, nd) :: sig1
real, intent(in), DIMENSION (len, nd) :: w01
real, intent(in), DIMENSION (len) :: ptop21
real, intent(in), DIMENSION (len) :: Ale1
real, intent(in), DIMENSION (len) :: Alp1
real, intent(in), DIMENSION (len, nd) :: omega1
integer, intent(out), DIMENSION (nloc) :: iflag
integer, intent(out), DIMENSION (nloc) :: nk
integer, intent(out), DIMENSION (nloc) :: icb
integer, intent(out), DIMENSION (nloc) :: icbs
real, intent(out), DIMENSION (nloc) :: plcl
real, intent(out), DIMENSION (nloc) :: tnk
real, intent(out), DIMENSION (nloc) :: qnk
real, intent(out), DIMENSION (nloc) :: gznk
real, intent(out), DIMENSION (nloc) :: hnk
real, intent(out), DIMENSION (nloc) :: unk
real, intent(out), DIMENSION (nloc) :: vnk
real, intent(out), DIMENSION (nloc, nd) :: wghti
real, intent(out), DIMENSION (nloc) :: pbase
real, intent(out), DIMENSION (nloc) :: buoybase
real, intent(out), DIMENSION (nloc, nd) :: t
real, intent(out), DIMENSION (nloc, nd) :: q
real, intent(out), DIMENSION (nloc, nd) :: qs
real, intent(out), DIMENSION (nloc, nd) :: t_wake
real, intent(out), DIMENSION (nloc, nd) :: q_wake
real, intent(out), DIMENSION (nloc, nd) :: qs_wake
real, intent(out), DIMENSION (nloc) :: s_wake
real, intent(out), DIMENSION (nloc, nd) :: u
real, intent(out), DIMENSION (nloc, nd) :: v
real, intent(out), DIMENSION (nloc, nd) :: gz
real, intent(out), DIMENSION (nloc, nd) :: th
real, intent(out), DIMENSION (nloc, nd) :: th_wake
real, intent(out), DIMENSION (nloc, nd,ntra) :: tra
real, intent(out), DIMENSION (nloc, nd) :: h
real, intent(out), DIMENSION (nloc, nd) :: lv
real, intent(out), DIMENSION (nloc, nd) :: lf
real, intent(out), DIMENSION (nloc, nd) :: cpn
real, intent(out), DIMENSION (nloc, nd) :: p
real, intent(out), DIMENSION (nloc, nd+1) :: ph
real, intent(out), DIMENSION (nloc, nd) :: tv
real, intent(out), DIMENSION (nloc, nd) :: tp
real, intent(out), DIMENSION (nloc, nd) :: tvp
real, intent(out), DIMENSION (nloc, nd) :: clw
real, intent(out), DIMENSION (nloc, nd) :: h_wake
real, intent(out), DIMENSION (nloc, nd) :: lv_wake
real, intent(out), DIMENSION (nloc, nd) :: lf_wake
real, intent(out), DIMENSION (nloc, nd) :: cpn_wake
real, intent(out), DIMENSION (nloc, nd) :: tv_wake
real, intent(out), DIMENSION (nloc, nd) :: sig
real, intent(out), DIMENSION (nloc, nd) :: w0
real, intent(out), DIMENSION (nloc) :: ptop2
real, intent(out), DIMENSION (nloc) :: Ale
real, intent(out), DIMENSION (nloc) :: Alp
real, intent(out), DIMENSION (nloc, nd) :: omega

Calls

proc~~cv3a_compress~2~~CallsGraph proc~cv3a_compress~2 cv3a_compress proc~abort_physic abort_physic proc~cv3a_compress~2->proc~abort_physic 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~~cv3a_compress~2~~CalledByGraph proc~cv3a_compress~2 cv3a_compress proc~cva_driver~2 cva_driver proc~cva_driver~2->proc~cv3a_compress~2 proc~concvl~2 concvl proc~concvl~2->proc~cva_driver~2

Contents