Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
G
getm
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Test Cases
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Knut Klingbeil
getm
Commits
40823977
Commit
40823977
authored
Mar 01, 2006
by
hb
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Documentation updated and REVISION HISTORY deleted
parent
4f1a1d09
Changes
52
Hide whitespace changes
Inline
Side-by-side
Showing
52 changed files
with
994 additions
and
2375 deletions
+994
-2375
src/2d/bottom_friction.F90
src/2d/bottom_friction.F90
+2
-40
src/2d/cfl_check.F90
src/2d/cfl_check.F90
+2
-43
src/2d/depth_update.F90
src/2d/depth_update.F90
+1
-45
src/2d/have_bdy.F90
src/2d/have_bdy.F90
+2
-27
src/2d/m2d.F90
src/2d/m2d.F90
+1
-91
src/2d/momentum.F90
src/2d/momentum.F90
+4
-63
src/2d/residual.F90
src/2d/residual.F90
+2
-27
src/2d/sealevel.F90
src/2d/sealevel.F90
+2
-62
src/2d/update_2d_bdy.F90
src/2d/update_2d_bdy.F90
+2
-52
src/2d/uv_advect.F90
src/2d/uv_advect.F90
+2
-52
src/2d/uv_depths.F90
src/2d/uv_depths.F90
+1
-40
src/2d/uv_diffusion.F90
src/2d/uv_diffusion.F90
+2
-5
src/2d/variables_2d.F90
src/2d/variables_2d.F90
+1
-27
src/3d/advection_3d.F90
src/3d/advection_3d.F90
+122
-122
src/3d/bdy_3d.F90
src/3d/bdy_3d.F90
+12
-42
src/3d/bottom_friction_3d.F90
src/3d/bottom_friction_3d.F90
+1
-51
src/3d/coordinates.F90
src/3d/coordinates.F90
+1
-78
src/3d/eqstate.F90
src/3d/eqstate.F90
+7
-54
src/3d/fct_2dh_adv.F90
src/3d/fct_2dh_adv.F90
+8
-14
src/3d/gotm.F90
src/3d/gotm.F90
+28
-74
src/3d/hcc_check.F90
src/3d/hcc_check.F90
+1
-12
src/3d/internal_pressure.F90
src/3d/internal_pressure.F90
+3
-95
src/3d/ip_blumberg_mellor.F90
src/3d/ip_blumberg_mellor.F90
+1
-18
src/3d/ip_blumberg_mellor_lin.F90
src/3d/ip_blumberg_mellor_lin.F90
+2
-13
src/3d/ip_chu_fan.F90
src/3d/ip_chu_fan.F90
+3
-14
src/3d/ip_song_wright.F90
src/3d/ip_song_wright.F90
+2
-13
src/3d/ip_z_interpol.F90
src/3d/ip_z_interpol.F90
+1
-12
src/3d/m3d.F90
src/3d/m3d.F90
+1
-184
src/3d/rivers.F90
src/3d/rivers.F90
+40
-66
src/3d/salinity.F90
src/3d/salinity.F90
+36
-106
src/3d/slow_advection.F90
src/3d/slow_advection.F90
+11
-49
src/3d/slow_bottom_friction.F90
src/3d/slow_bottom_friction.F90
+17
-37
src/3d/slow_diffusion.F90
src/3d/slow_diffusion.F90
+14
-5
src/3d/slow_terms.F90
src/3d/slow_terms.F90
+12
-43
src/3d/spm.F90
src/3d/spm.F90
+48
-34
src/3d/ss_nn.F90
src/3d/ss_nn.F90
+118
-53
src/3d/start_macro.F90
src/3d/start_macro.F90
+20
-44
src/3d/stop_macro.F90
src/3d/stop_macro.F90
+8
-25
src/3d/stresses_3d.F90
src/3d/stresses_3d.F90
+12
-37
src/3d/temperature.F90
src/3d/temperature.F90
+42
-104
src/3d/u_split_adv.F90
src/3d/u_split_adv.F90
+141
-10
src/3d/upstream_2dh_adv.F90
src/3d/upstream_2dh_adv.F90
+61
-14
src/3d/upstream_adv.F90
src/3d/upstream_adv.F90
+71
-13
src/3d/uu_momentum_3d.F90
src/3d/uu_momentum_3d.F90
+1
-84
src/3d/uv_advect_3d.F90
src/3d/uv_advect_3d.F90
+1
-66
src/3d/uv_diffusion_3d.F90
src/3d/uv_diffusion_3d.F90
+1
-4
src/3d/v_split_adv.F90
src/3d/v_split_adv.F90
+48
-10
src/3d/variables_3d.F90
src/3d/variables_3d.F90
+2
-52
src/3d/vv_momentum_3d.F90
src/3d/vv_momentum_3d.F90
+1
-87
src/3d/w_split_adv.F90
src/3d/w_split_adv.F90
+33
-10
src/3d/w_split_it_adv.F90
src/3d/w_split_it_adv.F90
+38
-10
src/3d/ww_momentum_3d.F90
src/3d/ww_momentum_3d.F90
+1
-42
No files found.
src/2d/bottom_friction.F90
View file @
40823977
!$Id: bottom_friction.F90,v 1.
5 2006-02-04 11:21:5
2 hb Exp $
!$Id: bottom_friction.F90,v 1.
6 2006-03-01 14:45:1
2 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:5
2 hb Exp $
!$Id: cfl_check.F90,v 1.
6 2006-03-01 14:45:1
2 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:5
2 hb Exp $
!$Id: depth_update.F90,v 1.
8 2006-03-01 14:45:1
2 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:5
2 hb Exp $
!$Id: have_bdy.F90,v 1.
7 2006-03-01 14:45:1
2 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.1
3 2006-02-04 11:21:5
2 hb Exp $
!$Id: m2d.F90,v 1.1
4 2006-03-01 14:45:1
2 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.1
0 2006-02-04 11:21:5
2 hb Exp $
!$Id: momentum.F90,v 1.1
1 2006-03-01 14:45:1
2 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:5
2 hb Exp $
!$Id: residual.F90,v 1.
6 2006-03-01 14:45:1
2 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:5
2 hb Exp $
!$Id: sealevel.F90,v 1.
10 2006-03-01 14:45:1
2 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:5
2 hb Exp $
!$Id: update_2d_bdy.F90,v 1.
7 2006-03-01 14:45:1
2 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:5
2 hb Exp $
!$Id: uv_advect.F90,v 1.
9 2006-03-01 14:45:1
2 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