小弟对fortran不是很了解 想请教一下

SUBROUTINE TMMAN
       
!MS$Attributes Stdcall,Dllexport,Alias:'TMMAN'::TMMAN
!MS$Attributes Stdcall,Dllexport,Alias:'COF0'::COF0
!MS$Attributes Stdcall,Dllexport,Alias:'COF1'::COF1
!MS$Attributes Stdcall,Dllexport,Alias:'GRID'::GRID
!MS$Attributes Stdcall,Dllexport,Alias:'TIME'::TIME
!MS$Attributes Stdcall,Dllexport,Alias:'ARRY'::ARRY

       DOUBLE PRECISION AMT
       DOUBLE PRECISION DT,WX,WY,GR,F,DT2
       COMMON /COF0/A0,H0
       COMMON /COF1/DT,WX,WY,GR,F,DT2,RLATI,CMANI,CVISC                   
       COMMON /GRID/DXX,DYY,M,N
       COMMON /TIME/KYB,KMB,KDB,KHB,DTWRI,KE,KSTEP,NUM1,JGO,MD
       COMMON /ARRY/UVHD2,NDD,TIDLEV,IBH   
                                  
       DIMENSION NDD(4200,4200),IDN(2,4200),JDN(2,4200)
       DIMENSION IBH(2,200),TIDLEV(3000,30),DYY(4200),DXX(4200)
       DIMENSION UVHD1(4200, 4200), UVHD2(4200,4200),AMT(6,4200)
      

       
       RETURN
       END

如上述代码 我想将结构体COF0  COF1 GRID TIME ARRY等结构体中的数组定义成动态形式
即使用module 来定义全局结构体并动态分配数组  最然我想使用DEALLOCATE来释放
该如何写
跪求高手赐教！！！！！[em10]