copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
#include "lcldim.cdk"
*
      real ppm, uum, vvm, wwm, bbm, hum, trm
      pointer
     $        (pappm, ppm(minx:maxx,miny:maxy,0:gnk)),
     $        (pauum, uum(minx:maxx,miny:maxy,1:gnk)),
     $        (pavvm, vvm(minx:maxx,miny:maxy,1:gnk)), 
     $        (pawwm, wwm(minx:maxx,miny:maxy,1:gnk)),
     $        (pabbm, bbm(minx:maxx,miny:maxy,1:gnk)),
     $        (pahum, hum(minx:maxx,miny:maxy,1:gnk)),
     $        (patrm, trm(minx:maxx,miny:maxy,1:gnk,1:ntr))
      real pp0, uu0, vv0, ww0, bb0, hu0, tr0
      pointer
     $        (papp0, pp0(minx:maxx,miny:maxy,0:gnk)),
     $        (pauu0, uu0(minx:maxx,miny:maxy,1:gnk)),
     $        (pavv0, vv0(minx:maxx,miny:maxy,1:gnk)),
     $        (paww0, ww0(minx:maxx,miny:maxy,1:gnk)), 
     $        (pabb0, bb0(minx:maxx,miny:maxy,1:gnk)),
     $        (pahu0, hu0(minx:maxx,miny:maxy,1:gnk)),
     $        (patr0, tr0(minx:maxx,miny:maxy,1:gnk,1:ntr))
      real ppp, uup, vvp, wwp, bbp, hup, trp
      pointer
     $        (pappp, ppp(minx:maxx,miny:maxy,0:gnk)),
     $        (pauup, uup(minx:maxx,miny:maxy,1:gnk)),
     $        (pavvp, vvp(minx:maxx,miny:maxy,1:gnk)),
     $        (pawwp, wwp(minx:maxx,miny:maxy,1:gnk)),
     $        (pabbp, bbp(minx:maxx,miny:maxy,1:gnk)),
     $        (pahup, hup(minx:maxx,miny:maxy,1:gnk)),
     $        (patrp, trp(minx:maxx,miny:maxy,1:gnk,1:ntr))
      common /dynmem1/ pappm, pauum, pavvm, pawwm, pabbm,
     $                 pahum, patrm,
     $                 papp0, pauu0, pavv0, paww0, pabb0,
     $                 pahu0, patr0,
     $                 pappp, pauup, pavvp, pawwp, pabbp,
     $                 pahup, patrp
*
      real ppntt, uuntt, vvntt, wwntt, bbntt, huntt, trntt
      pointer
     $        (papnt, ppntt(minx:maxx,miny:maxy,0:gnk)),
     $        (paunt, uuntt(minx:maxx,miny:maxy,1:gnk)),
     $        (pavnt, vvntt(minx:maxx,miny:maxy,1:gnk)),
     $        (pawnt, wwntt(minx:maxx,miny:maxy,1:gnk)),
     $        (pabnt, bbntt(minx:maxx,miny:maxy,1:gnk)),
     $        (pahnt, huntt(minx:maxx,miny:maxy,1:gnk)),
     $        (patnt, trntt(minx:maxx,miny:maxy,1:gnk,1:ntr))
      real ppnta, uunta, vvnta, wwnta, bbnta, hunta, trnta
      pointer
     $        (papna, ppnta(minx:maxx,miny:maxy,0:gnk)),
     $        (pauna, uunta(minx:maxx,miny:maxy,1:gnk)),
     $        (pavna, vvnta(minx:maxx,miny:maxy,1:gnk)),
     $        (pawna, wwnta(minx:maxx,miny:maxy,1:gnk)),
     $        (pabna, bbnta(minx:maxx,miny:maxy,1:gnk)),
     $        (pahna, hunta(minx:maxx,miny:maxy,1:gnk)),
     $        (patna, trnta(minx:maxx,miny:maxy,1:gnk,1:ntr))
      common /dynmem2/ papnt, paunt, pavnt, pawnt,
     $                 pabnt, pahnt, patnt,
     $                 papna, pauna, pavna, pawna,
     $                 pabna, pahna, patna
*
      real fcor, smap, sbxy, sbx , sby
      pointer (pafcor , fcor(minx:maxx,miny:maxy)),
     $        (pasmap , smap(minx:maxx,miny:maxy)),
     $        (pasbxy , sbxy(minx:maxx,miny:maxy)),
     $        (pasbx  , sbx (minx:maxx,miny:maxy)),
     $        (pasby  , sby (minx:maxx,miny:maxy))
      common /dynmem3/ pafcor, pasmap, pasbxy,  pasbx, pasby
*
      real gg1, gg2, gg0r, g0wr, g0ur, g0vr, dhdt
      pointer (pagg1  , gg1 (minx:maxx,miny:maxy,1:gnk)),
     $        (pagg2  , gg2 (minx:maxx,miny:maxy,1:gnk)),
     $        (pagg0r , gg0r(minx:maxx,miny:maxy,1:gnk)),
     $        (pag0wr , g0wr(minx:maxx,miny:maxy,1:gnk)),
     $        (pag0ur , g0ur(minx:maxx,miny:maxy,1:gnk)),
     $        (pag0vr , g0vr(minx:maxx,miny:maxy,1:gnk)),
     $        (padhdt , dhdt(minx:maxx,miny:maxy,1:gnk))
      common /dynmem4/ pagg1 , pagg2 , pagg0r, pag0wr, pag0ur,
     $                 pag0vr, padhdt
*
      real gots, orts, qstr, nssq
      pointer (pagots , gots(minx:maxx,miny:maxy,1:gnk)),
     $        (paorts , orts(minx:maxx,miny:maxy,0:gnk)),
     $        (paqstr , qstr(minx:maxx,miny:maxy,0:gnk)),
     $        (panssq , nssq(minx:maxx,miny:maxy,1:gnk))
      common /dynmem5/ pagots, paorts, paqstr, panssq
*
      real*8 odx, odxu, ody, odyv, laty, latyv
      pointer (paodx , odx  (1))        , (paodxu , odxu(1)),
     $        (paody , ody  (miny:maxy)), (paodyv , odyv (miny:maxy)),
     $        (palaty, laty (miny:maxy)), (palatyv, latyv(miny:maxy))
      common /dynmem6/ paodx, paodxu, paody, paodyv, palaty, palatyv
*
      real hw,ht,hm
      pointer
     $        (pahw, hw(minx:maxx,miny:maxy,1:gnk)),
     $        (paht, ht(minx:maxx,miny:maxy,1:gnk)),
     $        (pahm, hm(minx:maxx,miny:maxy,0:gnk))
      common /dynmem7/ pahw,paht,pahm