ad_uv3dmix.F

Go to the documentation of this file.

#include "cppdefs.h"
 
#if defined ADJOINT && defined SOLVE3D && \
   (defined uv_vis2 || defined uv_vis4)
!!
!!git $Id$
!!================================================= Hernan G. Arango ===
!! Copyright (c) 2002-2025 The ROMS Group                              !
!!   Licensed under a MIT/X style license                              !
!!   See License_ROMS.md                                               !
!!======================================================================
!!                                                                     !
!! This routine computes adjoint horizontal viscosity of momentum.     !
!!                                                                     !
!!======================================================================
!!
# 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
#else
      MODULE ad_uv3dmix2_mod
      END MODULE ad_uv3dmix2_mod
 
      MODULE ad_uv3dmix4_mod
      END MODULE ad_uv3dmix4_mod
#endif