cv3a_compress Subroutine

public subroutine cv3a_compress(len, nloc, ncum, nd, 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, 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, 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~~UsesGraph proc~cv3a_compress cv3a_compress module~lmdz_cv_ini~2 lmdz_cv_ini proc~cv3a_compress->module~lmdz_cv_ini~2 
                     tra1, &                                  !jyg: get rid of ntra
                     tra, &                                   !jyg: get rid of ntra

INTEGER, INTENT (IN) :: len, nloc, nd, ntra !jyg: get rid of ntra jyg jyg

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: len
integer, intent(in) :: nloc
integer, intent(inout) :: ncum
integer, intent(in) :: nd
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, DIMENSION (len, nd,ntra), INTENT (IN) :: tra1 !jyg: get rid of ntra
real, intent(in), DIMENSION (len, nd) :: th1

REAL, DIMENSION (len, nd,ntra), INTENT (IN) :: tra1 !jyg: get rid of ntra
real, intent(in), DIMENSION (len, nd) :: th1_wake

REAL, DIMENSION (len, nd,ntra), INTENT (IN) :: tra1 !jyg: get rid of ntra
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, DIMENSION (nloc, nd,ntra), INTENT (OUT) :: tra !jyg: get rid of ntra
real, intent(out), DIMENSION (nloc, nd) :: th

REAL, DIMENSION (nloc, nd,ntra), INTENT (OUT) :: tra !jyg: get rid of ntra
real, intent(out), DIMENSION (nloc, nd) :: th_wake

REAL, DIMENSION (nloc, nd,ntra), INTENT (OUT) :: tra !jyg: get rid of ntra
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~~CallsGraph proc~cv3a_compress cv3a_compress proc~abort_physic abort_physic proc~cv3a_compress->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~~CalledByGraph proc~cv3a_compress cv3a_compress proc~cva_driver cva_driver proc~cva_driver->proc~cv3a_compress proc~concvl concvl proc~concvl->proc~cva_driver 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