Commit 427f4e98 authored by Karsten Bolding's avatar Karsten Bolding
Browse files

removed CVS specific Id and Log info

parent 86d85bf3
$Id: README,v 1.1 2002-05-02 14:00:28 gotm Exp $
!$Id: bottom_friction.F90,v 1.10 2009-09-30 11:28:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -43,10 +42,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: runtype
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......
!$Id: cfl_check.F90,v 1.7 2006-03-01 15:54:07 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -43,12 +42,6 @@
use m2d, only: dtm
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......
!$Id: depth_update.F90,v 1.12 2009-09-30 11:28:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -29,12 +28,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: have_bdy.F90,v 1.9 2008-12-09 00:31:57 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -19,12 +18,6 @@
use m2d, only: have_boundaries
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......
!$Id: m2d.F90,v 1.35 2009-12-11 13:19:04 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: momentum.F90,v 1.16 2010-03-25 11:48:55 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -27,10 +26,6 @@
REALTYPE, intent(in) :: tausy(E2DFIELD)
REALTYPE, intent(in) :: airp(E2DFIELD)
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -139,10 +134,6 @@
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: tausx(E2DFIELD),airp(E2DFIELD)
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: zx(E2DFIELD)
......@@ -319,10 +310,6 @@
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: tausy(E2DFIELD),airp(E2DFIELD)
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: zy(E2DFIELD)
......
!$Id: residual.F90,v 1.7 2006-03-01 15:54:07 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -34,14 +33,9 @@
! !INPUT PARAMETERS:
integer, intent(in) :: finish
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: sealevel.F90,v 1.20 2009-10-02 11:29:11 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -39,12 +38,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -219,12 +212,6 @@
use exceptions, only: getm_error
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Bjarne B\"uchmann
!
......@@ -235,7 +222,6 @@
integer :: num_nan
integer :: i,j,inan,jnan, idum
REALTYPE :: ahuge,zdum
!
!EOP
!-----------------------------------------------------------------------
!BOC
......@@ -359,8 +345,6 @@
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: a,b
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
integer, intent(out) :: idum
!
......@@ -373,7 +357,6 @@
! also if a is NaN. If b=HUGE(b), then this provides a means to detect
! if a is a denormal number.
!
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: update_2d_bdy.F90,v 1.10 2009-01-30 15:33:03 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -31,16 +30,11 @@
#else
use domain, only: dx,dy
#endif
IMPLICIT NONE
!
! !INPUT PARAMETERS:
integer, intent(in) :: loop,bdyramp
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......@@ -73,73 +67,8 @@
#ifdef COAST_TEST
amp = 1.5
bdy_data = amp*sin(OMEGA*t)
#endif
#ifdef WADDEN_SEA_TEST
amp = 1.5
bdy_data = amp*sin(OMEGA*t)
#endif
#ifdef FRESHWATER_LENSE_TEST
bdy_data=_ZERO_
#endif
#undef OMEGA
#ifdef CHANNEL_TEST
stop 'CHANNEL_TEST - update2dbdy'
z(1,:) = 0.01
z(51,:) = -0.01
#endif
#undef KBK_TESTING
#ifdef CURVI_TEST
k = 0
do n=1,NWB
i = wi(n)
if (n .eq. 1) then
a = 0.05
else
a = -0.05
end if
do j=wfj(1),wlj(1)
k = k+1
bdy_data(k) = a
end do
end do
do n=1,NEB
i = ei(n)
do j=efj(1),elj(1)
k = k+1
bdy_data(k) = -0.05
end do
end do
#endif
case (ASCII)
#ifdef SYLT_TEST
if (first) then
first = .false.
if (bdyfmt_2d .eq. 1) then
open(BDYDATA,file='bdy_data.dat')
t1 = 0.
do i=1,nsbv
read(BDYDATA,*) zbo(i)
end do
t2 = 44714./80
do i=1,nsbv
read(BDYDATA,*) zbn(i)
end do
end if
end if
! Read in new boundary values
if (t .ge. t2) then
t1 = t2
t2 = t2+44714./80
zbo = zbn
STDERR 'Reading new boundary values.... '
do i=1,nsbv
read(BDYDATA,*) zbn(i)
end do
end if
#endif
case (NETCDF)
! Read in get_2d_bdy() via get_2d_bdy_ncdf()
case default
......@@ -153,13 +82,6 @@
fac = _ONE_
if(bdyramp .gt. 1) fac=min( _ONE_ ,FOUR*loop/float(bdyramp))
! implicit Sommerfeldt
#if 0
eta = 1/(1+Cx)(eta_old + Cx*eta_new)
Cx=dtm/dx*srt(g*D)
z(i,j) = _ONE_/(_ONE_+Cx)*(z(i,j)+Cx*z(i,j-1))
#endif
l = 0
do n = 1,NWB
l = l+1
......@@ -253,27 +175,6 @@ eta = 1/(1+Cx)(eta_old + Cx*eta_new)
end do
end do
#ifdef WADDEN_SEA_TEST
i=imin
do j=1,90
if (az(i+2,j).eq.2) then
a=z(i+1,j)+z(i+1,j)-z(i+2,j)
else
a=z(i+1,j)
end if
if (az(i,j).eq.2) z(i,j)= max(a,-H(i,j)+min_depth)
end do
i=imax
do j=1,127
if (az(i-2,j).eq.2) then
a=z(i-1,j)+z(i-1,j)-z(i-2,j)
else
a=z(i-1,j)
end if
if (az(i,j).eq.2) z(i,j)= max(a,-H(i,j)+min_depth)
end do
#endif
#ifdef DEBUG
write(debug,*) 'Leaving update_2d_bdy()'
write(debug,*)
......
!$Id: uv_advect.F90,v 1.12 2009-09-30 11:28:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -156,12 +155,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: uv_depths.F90,v 1.13 2009-08-18 10:24:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -53,17 +52,12 @@
! !INPUT PARAMETERS:
integer, intent(in) :: vel_depth_method
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: d_crit=2.0
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: uv_diffusion.F90,v 1.13 2009-09-30 11:28:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -172,10 +171,6 @@
integer, intent(in) :: An_method
REALTYPE, intent(in) :: An(E2DFIELD),AnX(E2DFIELD)
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard
!
......
!$Id: variables_2d.F90,v 1.10 2009-09-30 11:28:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -35,7 +34,6 @@
!
! !LOCAL VARIABLES:
integer :: rc
!
!EOP
!-----------------------------------------------------------------------
......@@ -96,12 +94,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: runtype
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
!
!EOP
!-------------------------------------------------------------------------
!BOC
......@@ -167,12 +159,6 @@
subroutine clean_variables_2d()
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !DESCRIPTION:
! This routine is currently empty.
!
......
!$id: advection_3d.F90,v 1.18 2001/09/19 13:53:08 bbh Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -51,8 +50,6 @@
REALTYPE, public, parameter :: one6th=1./6.
REALTYPE, public, parameter :: ONE=_ONE_,TWO=2.*_ONE_
!
! !PRIVATE DATA MEMBERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......@@ -82,10 +79,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: method
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: rc
!EOP
......@@ -246,12 +239,9 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
REALTYPE, parameter :: a1=0.5*ONE,a2=ONE
integer :: k
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: bdy_3d.F90,v 1.14 2009-09-04 11:50:34 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -38,7 +37,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......@@ -61,12 +59,6 @@
! !USES:
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: rc,i,j,k,n
!EOP
......@@ -135,8 +127,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: field(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,k,l,n,ii,jj,kk
REALTYPE :: sp(1:4),rat
......@@ -449,7 +439,6 @@
end if
#endif
#endif
#ifdef DEBUG
......
!$Id: bottom_friction_3d.F90,v 1.13 2009-09-30 11:28:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -53,12 +52,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: coordinates.F90,v 1.18 2010-03-30 11:48:37 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: divergence.F90,v 1.1 2010-03-24 14:58:15 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -21,23 +20,11 @@
use variables_3d, only: hun,hvn,uu,vv
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: divergence.F90,v $
! Revision 1.1 2010-03-24 14:58:15 kb
! cleaned divergence calculations
!
!
! !LOCAL VARIABLES:
integer :: i,j
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: eqstate.F90,v 1.13 2009-09-30 11:28:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -28,7 +27,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......@@ -43,19 +41,12 @@
subroutine init_eqstate()
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !DESCRIPTION:
! Reads the namelist and makes calls to the init functions of the
! various model components.
!
! !LOCAL VARIABLES:
namelist /eqstate/ eqstate_method,T0,S0,p0,dtr0,dsr0
!
!EOP
!-------------------------------------------------------------------------
!BOC
......@@ -109,12 +100,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,k
REALTYPE :: x
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment