#include "cppdefs.h" MODULE ad_uv3dmix_mod #if defined ADJOINT && defined SOLVE3D && \ (defined UV_VIS2 || defined UV_VIS4) ! !svn $Id: ad_uv3dmix.F 889 2018-02-10 03:32:52Z arango $ !================================================== Hernan G. Arango === ! Copyright (c) 2002-2019 The ROMS/TOMS Group ! ! Licensed under a MIT/X style license ! ! See License_ROMS.txt ! !======================================================================= ! ! ! This routine computes adjoint horizontal viscosity of momentum. ! ! ! !======================================================================= ! implicit none PRIVATE # ifdef UV_VIS2 PUBLIC ad_uv3dmix2 # endif # ifdef UV_VIS4 PUBLIC ad_uv3dmix4 # endif CONTAINS # ifdef UV_VIS2 # if defined MIX_S_UV # include "ad_uv3dmix2_s.h" # elif defined MIX_GEO_UV # include "ad_uv3dmix2_geo.h" # endif # endif # ifdef UV_VIS4 # if defined MIX_S_UV # include "ad_uv3dmix4_s.h" # elif defined MIX_GEO_UV # include "ad_uv3dmix4_geo.h" # endif # endif #endif END MODULE ad_uv3dmix_mod