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

00001 !
00002 ! $Id: coupling.h,v 1.2 2003/12/17 13:56:00 pmarches Exp $
00003 !
00004 /* This is include file "coupling.h":
00005   ----------------------------------------------------
00006   Variables responsible for communication between two-
00007   and three-dimensional parts of the model.
00008 */
00009 #ifdef SOLVE3D
00010 # ifdef VAR_RHO_2D
00011       real rhoA(GLOBAL_2D_ARRAY)
00012       real rhoS(GLOBAL_2D_ARRAY)
00013       common /coup_rhoA/rhoA           /coup_rhoS/rhoS
00014 # endif
00015       real rufrc(GLOBAL_2D_ARRAY)
00016       real rvfrc(GLOBAL_2D_ARRAY)
00017       real rufrc_bak(GLOBAL_2D_ARRAY,2)
00018       real rvfrc_bak(GLOBAL_2D_ARRAY,2)
00019       common /coup_rufrc/rufrc         /coup_rvfrc/rvfrc
00020      &       /coup_rufrc_bak/rufrc_bak /coup_rvfrc_bak/rvfrc_bak
00021 
00022       real Zt_avg1(GLOBAL_2D_ARRAY)
00023       real DU_avg1(GLOBAL_2D_ARRAY,4)
00024       real DV_avg1(GLOBAL_2D_ARRAY,4)
00025       real DU_avg2(GLOBAL_2D_ARRAY)
00026       real DV_avg2(GLOBAL_2D_ARRAY)
00027       common /ocean_Zt_avg1/Zt_avg1
00028      &     /coup_DU_avg1/DU_avg1 /coup_DV_avg1/DV_avg1
00029      &     /coup_DU_avg2/DU_avg2 /coup_DV_avg2/DV_avg2
00030 #endif

/home/cholod/wd/peps/ROMS/romsagrif_r215/Roms_tools/Roms_Agrif/coupling.h