copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
*

      subroutine statdyn2 ( tmdt, t, tpdt ) 2,21
      implicit none
*
      logical tmdt,t,tpdt
*
#include "dynmem.cdk"
#include "partopo.cdk"
#include "rec.cdk"
#include "yomdyn.cdk"
*
      integer n,no
*--------------------------------------------------------------------
*
      no = gnstepno
*
      if (tmdt) then
         if (myproc.eq.0) print*
         call statf_dm (uum, 'uum', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (vvm, 'vvm', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (wwm, 'wwm', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (ppm(minx,miny,1), 'ppm', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (bbm, 'bbm', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (hum, 'hum', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         do n=1,ntr
         call statf_dm (trm(1-hx,1-hy,1,n), 'trm', n, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         end do
      endif
      if (t) then
         if (myproc.eq.0) print*
         call statf_dm (uu0, 'uu0', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (vv0, 'vv0', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (ww0, 'ww0', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (pp0(minx,miny,1), 'pp0', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (bb0, 'bb0', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (hu0, 'hu0', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         do n=1,ntr
         call statf_dm (tr0(1-hx,1-hy,1,n), 'tr0', n, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         end do
      endif
      if (tpdt) then
         if (myproc.eq.0) print*
         call statf_dm (uup, 'uup', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (vvp, 'vvp', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (wwp, 'wwp', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (ppp(minx,miny,1), 'ppp', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (bbp, 'bbp', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         call statf_dm (hup, 'hup', no, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         do n=1,ntr
         call statf_dm (trp(1-hx,1-hy,1,n), 'trp', n, "mc2", gnstatdp,
     $                  minx,maxx,miny,maxy,gnk-1,1,1,1,gni,gnj,gnk-1)
         end do
      endif
*
*------------------------------------------------------------------
      return
      end