SLiMv2.1: SLiMv2.1/param.f90 Source File

00001 include 'mpif.h'
00002 integer max_procs
00003 parameter(max_procs=10000)
00004 integer nx,ny,nz,nvar,ierr,nz_global,nz_max,ncoeff,nz_ghostglobal
00005 integer my_rank,nz_start,nz_end,yc
00006 !parameter(nx=200,ny=1,nz_global=1094,nz_ghostglobal=1098,nz_max=1098) ! for wave and makeIC
00007 parameter(nx=200,ny=1,nz_global=1094,nz_ghostglobal=1098,nz_max=1100) ! for makecoeff)
00008 !parameter(nx=200,ny=1,nz_global=554,nz_ghostglobal=558,nz_max=280)
00009 !parameter(nx=200,ny=50,nz_global=554,nz_ghostglobal=558,nz_max=40)
00010 
00011 parameter(yc=1)
00012 parameter(nvar=6)
00013 parameter(ncoeff=48)
00014 real pi
00015 parameter(pi=3.1415926535)
00016 real g
00017 parameter(g=-2.74e4)
00018 real nu
00019 parameter(nu=2.5e8)
00020 
00021 real zz(nx,ny,nz_max)
00022 integer  nprocs,itemp,ends,start,kk(nz_max)
00023 integer  ghosts,dn
00024 integer  istatus(MPI_STATUS_SIZE)
00025 dimension ends(max_procs),start(max_procs)
00026 logical istop,isbottom
00027 common/mpi/nz,nz_start,nz_end,my_rank,nprocs,istop,isbottom,start,ends,kk,zz
00028 real dx,dy,dz
00029 parameter(dx=145.741E8/(nx), dy=2.*dx, dz=12.5e8/500,ghosts=4)
00030 !parameter(dx=144.828E8/(nx), dy=dx, dz=12.5e8/500,ghosts=4)