#include "cppdefs.h" MODULE prsgrd_mod #if defined NONLINEAR && defined SOLVE3D ! !svn $Id: prsgrd.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 the baroclinic hydrostatic pressure gradient ! ! term. ! ! ! !======================================================================= ! implicit none PRIVATE PUBLIC :: prsgrd CONTAINS # if defined PJ_GRADPQ4 # include "prsgrd44.h" # elif defined PJ_GRADPQ2 # include "prsgrd42.h" # elif defined PJ_GRADP # include "prsgrd40.h" # elif defined DJ_GRADPS # include "prsgrd32.h" # else # include "prsgrd31.h" # endif #endif END MODULE prsgrd_mod