ad_prsgrd.F

Go to the documentation of this file.

#include "cppdefs.h"
#if defined ADJOINT && defined SOLVE3D
!!
!!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 the adjoint baroclinic hydrostatic pressure   !
!! gradient term.                                                      !
!!                                                                     !
!!======================================================================
!!
# if defined PJ_GRADPQ4
!!#  include "ad_prsgrd44.h"
# elif defined PJ_GRADPQ2
!!#  include "ad_prsgrd42.h"
# elif defined PJ_GRADP
#  include "ad_prsgrd40.h"
# elif defined DJ_GRADPS
#  include "ad_prsgrd32.h"
# else
#  include "ad_prsgrd31.h"
# endif
#else
      MODULE ad_prsgrd_mod
      END MODULE ad_prsgrd_mod
#endif