ROMS_r215: /home/cholod/wd/peps/ROMS/romsagrif_r215/Roms_tools/Roms

00001 !
00002 ! $Id: ocean3d.h,v 1.3 2004/03/26 15:26:07 pmarches Exp $
00003 !
00004 /* This is include file "ocean3.h". 
00005   --------------------------------------------
00006 */
00007 #ifdef SOLVE3D
00008       real u(GLOBAL_2D_ARRAY,N,3)
00009       real v(GLOBAL_2D_ARRAY,N,3)
00010       real t(GLOBAL_2D_ARRAY,N,3,NT)
00011       common /ocean_u/u /ocean_v/v /ocean_t/t
00012 
00013       real Hz(GLOBAL_2D_ARRAY,N)
00014       real Hz_bak(GLOBAL_2D_ARRAY,N)
00015       real z_r(GLOBAL_2D_ARRAY,N)
00016       real z_w(GLOBAL_2D_ARRAY,0:N)
00017       real Huon(GLOBAL_2D_ARRAY,N)
00018       real Hvom(GLOBAL_2D_ARRAY,N)
00019       real W(GLOBAL_2D_ARRAY,0:N)
00020       common /grid_Hz/Hz    /grid_zr/z_r  /grid_W/W
00021      &  /grid_Hz_bak/Hz_bak /grid_zw/z_w  /grid_Huon/Huon
00022      &                                    /grid_Hvom/Hvom
00023 
00024 # if defined UV_VIS4 && defined MIX_GP_UV
00025       real z_u(GLOBAL_2D_ARRAY,N)
00026       real z_v(GLOBAL_2D_ARRAY,N)
00027       real dz_u(GLOBAL_2D_ARRAY,N)
00028       real dz_v(GLOBAL_2D_ARRAY,N)
00029       common /grid_zu/z_u /grid_zv/z_v
00030      &       /grid_dz_u/dz_u /grid_dz_v/dz_v
00031 # endif
00032 
00033       real rho1(GLOBAL_2D_ARRAY,N)
00034       real rho(GLOBAL_2D_ARRAY,N)
00035       common /ocean_rho1/rho1 /ocean_rho/rho
00036 # ifdef BIOLOGY
00037 #  ifdef BIO_NPZD
00038       real theta(GLOBAL_2D_ARRAY,N)
00039       common /ocean_theta/theta
00040 #  elif defined BIO_N2P2Z2D2 && defined AVG_CHL_C
00041       real theta1(GLOBAL_2D_ARRAY,N)
00042      &   , theta2(GLOBAL_2D_ARRAY,N)
00043       common /ocean_theta1/theta1 /ocean_theta2/theta2
00044 #  endif
00045 # endif
00046 # if defined NONLIN_EOS && defined SPLIT_EOS
00047        real qp1(GLOBAL_2D_ARRAY,N)
00048       common /ocean_qp1/qp1
00049 # endif
00050 #endif  /* SOLVE3D */
00051
/home/cholod/wd/peps/ROMS/romsagrif_r215/Roms_tools/Roms_Agrif/ocean3d.h
