Skip to content

GitLab

G
getm
Commit 40823977 authored by hb's avatar hb
Browse files
Options

Documentation updated and REVISION HISTORY deleted

parent 4f1a1d09
Hide whitespace changes
Inline Side-by-side
Showing with 994 additions and 2375 deletions
src/2d/bottom_friction.F90
View file @ 40823977
!$Id: bottom_friction.F90,v 1.5 2006-02-04 11:21:52 hb Exp $
!$Id: bottom_friction.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: bottom_friction() - calculates the 2D bottom friction.
! !IROUTINE: bottom_friction - calculates the 2D bottom friction.
!
! !INTERFACE:
subroutine bottom_friction(runtype)
......@@ -45,44 +45,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: bottom_friction.F90,v $
! Revision 1.5 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.4 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/07 15:41:09 kbk
! adjusted use of mask
!
! Revision 1.1.1.1 2002/05/02 14:00:41 gotm
! recovering after CVS crash
!
! Revision 1.6 2001/06/22 08:19:10 bbh
! Compiler options such as USE_MASK and OLD_DRY deleted.
! Open and passive boundary for z created.
! Various inconsistencies removed.
! wait_halo added.
! Checked loop boundaries
!
! Revision 1.5 2001/05/20 07:46:38 bbh
! Fixed masks
!
! Revision 1.4 2001/05/18 13:03:34 bbh
! Optimize for speed + masks for update_2d_halo() - CHECK
!
! Revision 1.3 2001/05/03 19:35:01 bbh
! Use of variables_2d
!
! Revision 1.2 2001/04/24 08:24:58 bbh
! Use runtype instead of macro
!
! Revision 1.1.1.1 2001/04/17 08:43:08 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: uloc(E2DFIELD),vloc(E2DFIELD)
......
src/2d/cfl_check.F90
View file @ 40823977
!$Id: cfl_check.F90,v 1.5 2006-02-04 11:21:52 hb Exp $
!$Id: cfl_check.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: cfl_check() - check for explicit barotropic time step.
! !ROUTINE: cfl_check - check for explicit barotropic time step.
!
! !INTERFACE:
subroutine cfl_check()
......@@ -49,47 +49,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: cfl_check.F90,v $
! Revision 1.5 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.4 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/03 07:01:49 gotm
! fixed CFL calc. for non cartesian grid
!
! Revision 1.2 2002/10/04 13:56:58 gotm
! Uses Becker and Deleersnijder (1993) CFL criterion with Coriolis
!
! Revision 1.1.1.1 2002/05/02 14:00:41 gotm
! recovering after CVS crash
!
! Revision 1.7 2001/09/19 11:25:14 gotm
! Removed E2DFIELD when de-allocating lmask
!
! Revision 1.6 2001/09/19 11:20:32 bbh
! Explicit de-allocates memory when -DFORTRAN90
!
! Revision 1.5 2001/09/01 17:07:58 bbh
! Removed some print statements
!
! Revision 1.4 2001/08/01 08:25:52 bbh
! CURVILINEAR now implemented
!
! Revision 1.3 2001/04/20 14:03:39 bbh
! should not have deleted imin,imax,jmin,jmax :-)
!
! Revision 1.2 2001/04/20 13:47:33 bbh
! Fixed bug concerning optional argument
!
! Revision 1.1.1.1 2001/04/17 08:43:08 bbh
! initial import into CVS
!
!
! !LOCAL VARIABLES:
integer :: pos(2),max_pos(2),rc,i,j
REALTYPE :: h_max=-99.,c,max_dt,dtt
......
src/2d/depth_update.F90
View file @ 40823977
!$Id: depth_update.F90,v 1.7 2006-02-04 11:21:52 hb Exp $
!$Id: depth_update.F90,v 1.8 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -33,50 +33,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: depth_update.F90,v $
! Revision 1.7 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.6 2005-10-06 09:54:00 hb
! added support for vertical slice model - via -DSLICE_MODEL
!
! Revision 1.5 2003/06/18 08:27:41 kbk
! using HALO in loop boundaries
!
! Revision 1.4 2003/05/12 09:22:39 kbk
! no use of update_2d_halo, expand loop boundaries instead
!
! Revision 1.3 2003/04/23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:27:00 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:42 gotm
! recovering after CVS crash
!
! Revision 1.5 2001/08/27 11:53:13 bbh
! TVD-advection for momentum added, some bugs removed
!
! Revision 1.4 2001/06/22 08:19:10 bbh
! Compiler options such as USE_MASK and OLD_DRY deleted.
! Open and passive boundary for z created.
! Various inconsistencies removed.
! wait_halo added.
! Checked loop boundaries
!
! Revision 1.3 2001/05/18 13:03:34 bbh
! Optimize for speed + masks for update_2d_halo() - CHECK
!
! Revision 1.2 2001/05/03 19:35:01 bbh
! Use of variables_2d
!
! Revision 1.1.1.1 2001/04/17 08:43:07 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: d1,d2,x
......
src/2d/have_bdy.F90
View file @ 40823977
!$Id: have_bdy.F90,v 1.6 2006-02-04 11:21:52 hb Exp $
!$Id: have_bdy.F90,v 1.7 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: have_bdy() - checks whether this node has boundaries.
! !IROUTINE: have_bdy - checks whether this node has boundaries.
!
! !INTERFACE:
subroutine have_bdy
......@@ -25,31 +25,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: have_bdy.F90,v $
! Revision 1.6 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.5 2004-02-23 15:14:29 kbk
! correct mapping of eastern boundary - Staneva
!
! Revision 1.4 2003/05/06 16:02:53 kbk
! now works with several boundaries on each side in parallel mode
!
! Revision 1.3 2003/04/23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:42:05 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:44 gotm
! recovering after CVS crash
!
! Revision 1.1.1.1 2001/04/17 08:43:07 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
integer :: i,j,k,n
integer :: nbdy
......
src/2d/m2d.F90
View file @ 40823977
!$Id: m2d.F90,v 1.13 2006-02-04 11:21:52 hb Exp $
!$Id: m2d.F90,v 1.14 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -38,86 +38,6 @@
REAL_4B, allocatable :: bdy_times(:)
integer, parameter :: comm_method=-1
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: m2d.F90,v $
! Revision 1.13 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.12 2006-01-27 16:10:20 kbk
! only call do_residual() when specified
!
! Revision 1.11 2004/01/07 07:37:36 kbk
! to compile with IFORT - TABS, etc.
!
! Revision 1.10 2004/01/06 19:07:22 kbk
! vel_depth_method in namelist
!
! Revision 1.9 2004/01/05 08:59:38 kbk
! different velocity point depth calculations using vel_depth_method
!
! Revision 1.8 2003/09/13 10:00:51 kbk
! added numerical diffusion - An - to namelist - passed to uv_diffusion()
!
! Revision 1.7 2003/08/28 10:28:40 kbk
! explict setting UEx and VEx to 0 every micro time step
!
! Revision 1.6 2003/08/15 12:47:40 kbk
! also calling cfl_check() when parallel run
!
! Revision 1.5 2003/08/03 08:53:30 kbk
! not calling cfl_check when PARALLEL - should be fixed
!
! Revision 1.4 2003/05/12 09:22:28 kbk
! removed use halo_zones - not used
!
! Revision 1.3 2003/04/23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 12:17:08 kbk
! parallel version
!
! Revision 1.1.1.1 2002/05/02 14:00:41 gotm
! recovering after CVS crash
!
! Revision 1.11 2001/10/22 11:55:30 bbh
! Only call uv_diffusion() if Am > zero
!
! Revision 1.10 2001/10/22 08:48:30 bbh
! Am moved from paramters.F90 to m2d.F90
!
! Revision 1.9 2001/10/11 13:07:03 bbh
! Support for horizontal diffusion
!
! Revision 1.8 2001/09/01 17:07:10 bbh
! Ramping of surface elevation boundaries - via namelist
!
! Revision 1.7 2001/08/27 11:53:13 bbh
! TVD-advection for momentum added, some bugs removed
!
! Revision 1.6 2001/06/22 08:19:10 bbh
! Compiler options such as USE_MASK and OLD_DRY deleted.
! Open and passive boundary for z created.
! Various inconsistencies removed.
! wait_halo added.
! Checked loop boundaries
!
! Revision 1.5 2001/05/18 12:55:13 bbh
! Included masks in calls to update_2d_halo()
!
! Revision 1.4 2001/05/06 18:51:55 bbh
! Towards proper implementation of specified 2D bdy.
!
! Revision 1.3 2001/05/03 19:35:01 bbh
! Use of variables_2d
!
! Revision 1.2 2001/04/24 08:24:58 bbh
! Use runtype instead of macro
!
! Revision 1.1.1.1 2001/04/17 08:43:07 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
!
!EOP
......@@ -151,10 +71,6 @@
! elevations in $u$- and $v$-points, also by calls to the subroutines
! {\tt uv\_depths} and {\tt depth\_update}.
!
! !REVISION HISTORY:
!
! 22Apr99 Karsten Bolding & Hans Burchard Initial code.
!
! !LOCAL VARIABLES:
integer :: rc
integer :: vel_depth_method=0
......@@ -269,9 +185,6 @@
! It should be noted that some of these calls may be excluded for certain
! compiler options set in the {\tt Makefile} of the application.
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
!EOP
!-------------------------------------------------------------------------
......@@ -339,9 +252,6 @@
! This routine executes a final call to {\tt do\_residual} where the residual
! current calculations are finished.
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
!
!EOP
......
src/2d/momentum.F90
View file @ 40823977
!$Id: momentum.F90,v 1.10 2006-02-04 11:21:52 hb Exp $
!$Id: momentum.F90,v 1.11 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: momentum() - 2D-momentum for all interior points.
! !IROUTINE: momentum - 2D-momentum for all interior points.
!
! !INTERFACE:
subroutine momentum(n,tausx,tausy,airp)
......@@ -29,59 +29,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: momentum.F90,v $
! Revision 1.10 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.9 2006-01-28 20:07:52 hb
! Extensions to compiler option SLICE_MODEL for better representation of zero gradients in y-direction
!
! Revision 1.8 2005-10-06 09:54:00 hb
! added support for vertical slice model - via -DSLICE_MODEL
!
! Revision 1.7 2004/01/07 07:37:36 kbk
! to compile with IFORT - TABS, etc.
!
! Revision 1.6 2003/04/23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.5 2003/04/07 15:54:16 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:44 gotm
! recovering after CVS crash
!
! Revision 1.8 2001/10/26 09:11:28 bbh
! Stresses in meteo.F90 are in N/m2 - divide by rho_0 where necessary
!
! Revision 1.7 2001/10/12 09:19:14 bbh
! SALTWEDGE_TEST - should not be here
!
! Revision 1.6 2001/09/04 07:25:28 bbh
! Coriolis based on summing up transports
!
! Revision 1.5 2001/08/01 08:25:52 bbh
! CURVILINEAR now implemented
!
! Revision 1.4 2001/06/22 08:19:10 bbh
! Compiler options such as USE_MASK and OLD_DRY deleted.
! Open and passive boundary for z created.
! Various inconsistencies removed.
! wait_halo added.
! Checked loop boundaries
!
! Revision 1.3 2001/05/18 12:55:13 bbh
! Included masks in calls to update_2d_halo()
!
! Revision 1.2 2001/05/03 19:35:01 bbh
! Use of variables_2d
!
! Revision 1.1.1.1 2001/04/17 08:43:07 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
logical :: ufirst=.false.
!EOP
......@@ -110,7 +57,7 @@
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: umomentum() - 2D-momentum for all interior points.
! !IROUTINE: umomentum - 2D-momentum for all interior points.
!
! !INTERFACE:
subroutine umomentum(tausx,airp)
......@@ -183,9 +130,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: zx(E2DFIELD)
......@@ -271,7 +215,7 @@
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: vmomentum() - 2D-momentum for all interior points.
! !IROUTINE: vmomentum - 2D-momentum for all interior points.
!
! !INTERFACE:
subroutine vmomentum(tausy,airp)
......@@ -344,9 +288,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: zy(E2DFIELD)
......
src/2d/residual.F90
View file @ 40823977
!$Id: residual.F90,v 1.5 2006-02-04 11:21:52 hb Exp $
!$Id: residual.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: do_residual() - barotropic residual currents.
! !ROUTINE: do_residual - barotropic residual currents.
!
! !INTERFACE:
subroutine do_residual(finish)
......@@ -38,31 +38,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: residual.F90,v $
! Revision 1.5 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.4 2004-01-03 16:40:28 kbk
! bug fix
!
! Revision 1.3 2003/04/23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:30:58 kbk
! needs to be fixed
!
! Revision 1.1.1.1 2002/05/02 14:00:45 gotm
! recovering after CVS crash
!
! Revision 1.2 2001/05/03 19:35:01 bbh
! Use of variables_2d
!
! Revision 1.1.1.1 2001/04/17 08:43:08 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......
src/2d/sealevel.F90
View file @ 40823977
!$Id: sealevel.F90,v 1.9 2006-02-04 11:21:52 hb Exp $
!$Id: sealevel.F90,v 1.10 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: sealevel() - using the cont. eq. to get the sealevel.
! !IROUTINE: sealevel - using the cont. eq. to get the sealevel.
!
! !INTERFACE:
subroutine sealevel
......@@ -35,66 +35,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: sealevel.F90,v $
! Revision 1.9 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.8 2006-01-29 12:25:20 kbk
! NOMADS -> FRESHWATER_LENSE
!
! Revision 1.7 2005/10/06 09:54:00 hb
! added support for vertical slice model - via -DSLICE_MODEL
!
! Revision 1.6 2004/07/29 19:46:32 hb
! For compiler option NOMADS_TEST: some lines shortened
!
! Revision 1.5 2003/12/16 12:32:42 kbk
! removed #ifdef SALTWEDGE_TEST (manuel)
!
! Revision 1.4 2003/04/23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/07 15:44:13 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:45 gotm
! recovering after CVS crash
!
! Revision 1.9 2001/10/22 11:56:44 bbh
! NOMADS_TEST kk =1.0 included
!
! Revision 1.8 2001/09/01 17:15:13 bbh
! Forgot to remove a few print statements
!
! Revision 1.7 2001/09/01 16:49:27 bbh
! A nasty hard-coding of z = 0. if mask = 2
!
! Revision 1.6 2001/08/27 11:53:13 bbh
! TVD-advection for momentum added, some bugs removed
!
! Revision 1.5 2001/08/01 08:25:52 bbh
! CURVILINEAR now implemented
!
! Revision 1.4 2001/06/22 08:19:10 bbh
! Compiler options such as USE_MASK and OLD_DRY deleted.
! Open and passive boundary for z created.
! Various inconsistencies removed.
! wait_halo added.
! Checked loop boundaries
!
! Revision 1.3 2001/05/18 12:55:13 bbh
! Included masks in calls to update_2d_halo()
!
! Revision 1.2 2001/05/03 19:35:01 bbh
! Use of variables_2d
!
! Revision 1.1.1.1 2001/04/17 08:43:07 bbh
! initial import into CVS
!
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: kk
......
src/2d/update_2d_bdy.F90
View file @ 40823977
!$Id: update_2d_bdy.F90,v 1.6 2006-02-04 11:21:52 hb Exp $
!$Id: update_2d_bdy.F90,v 1.7 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: update_2d_bdy() - update 2D boundaries every time step.
! !IROUTINE: update_2d_bdy - update 2D boundaries every time step.
!
! !INTERFACE:
subroutine update_2d_bdy(loop,bdyramp)
......@@ -34,56 +34,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: update_2d_bdy.F90,v $
! Revision 1.6 2006-02-04 11:21:52 hb
! Source code documentation extended
!
! Revision 1.5 2006-01-29 12:25:20 kbk
! NOMADS -> FRESHWATER_LENSE
!
! Revision 1.4 2003/12/16 16:50:40 kbk
! added support for Intel/IFORT compiler - expanded TABS, same types in subroutine calls
!
! Revision 1.3 2003/04/23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:45:05 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:45 gotm
! recovering after CVS crash
!
! Revision 1.8 2001/10/17 13:15:35 bbh
! Cleaning
!
! Revision 1.7 2001/09/01 17:15:13 bbh
! Forgot to remove a few print statements
!
! Revision 1.6 2001/09/01 17:07:10 bbh
! Ramping of surface elevation boundaries - via namelist
!
! Revision 1.5 2001/08/27 11:53:13 bbh
! TVD-advection for momentum added, some bugs removed
!
! Revision 1.4 2001/08/01 08:26:50 bbh
! ANALYTICAL - to test CURVILINEAR
!
! Revision 1.3 2001/06/22 08:19:10 bbh
! Compiler options such as USE_MASK and OLD_DRY deleted.
! Open and passive boundary for z created.
! Various inconsistencies removed.
! wait_halo added.
! Checked loop boundaries
!
! Revision 1.2 2001/05/03 20:23:04 bbh
! Also uses variables_2d
!
! Revision 1.1.1.1 2001/04/17 08:43:08 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
logical, save :: first=.true.
REALTYPE, save :: time_array(1000),zbo(1000),zbn(1000)
......
src/2d/uv_advect.F90
View file @ 40823977
!$Id: uv_advect.F90,v 1.8 2006-02-04 11:21:52 hb Exp $
!$Id: uv_advect.F90,v 1.9 2006-03-01 14:45:12 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: uv_advect() - 2D advection of momentum \label{sec-uv-advect}
! !IROUTINE: uv_advect - 2D advection of momentum \label{sec-uv-advect}
!
! !INTERFACE:
subroutine uv_advect
......@@ -160,56 +160,6 @@
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding