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

removed CVS specific Id and Log info

parent 86d85bf3
!$Id: fct_2dh_adv.F90,v 1.8 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -50,8 +49,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -72,7 +69,6 @@
#endif
REALTYPE :: CNW,CW,CSW,CSSW,CWW,CSWW,CC,CS
REALTYPE :: uuu,vvv,x,CExx,Cl,Cu,fac
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: general_coordinates.F90,v 1.4 2009-10-01 07:13:54 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -81,10 +80,6 @@
REALTYPE, intent(in) :: cord_relax
REALTYPE, intent(in) :: maxdepth
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: getm_bio.F90,v 1.4 2009-11-20 09:17:13 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -58,16 +57,6 @@
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: getm_bio.F90,v $
! Revision 1.4 2009-11-20 09:17:13 kb
! updated GOTM/BIO interface
!
! Revision 1.3 2007-06-07 10:25:19 kbk
! iimin,iimax,jjmin,jjmax -> imin,imax,jmin,jmax
!
! Revision 1.2 2007-05-14 12:16:22 kbk
! added support for biology - via GOTM
!
!EOP
!-----------------------------------------------------------------------
......@@ -212,10 +201,6 @@
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: dt
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! See the log for the module
!
......
!$Id: gotm.F90,v 1.22 2010-03-02 13:06:56 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -63,12 +62,6 @@
use getm_timers, only: tic, toc, TIM_GOTM, TIM_GOTMTURB, TIM_GOTMH
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......@@ -78,7 +71,6 @@
REALTYPE :: h(0:kmax),dry,zz
REALTYPE :: NN1d(0:kmax),SS1d(0:kmax)
REALTYPE :: xP(0:kmax)
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: hcc_check.F90,v 1.5 2007-06-07 10:25:19 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: hybrid_coordinates.F90,v 1.2 2007-06-07 10:25:19 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: internal_pressure.F90,v 1.23 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -191,12 +190,6 @@
use getm_timers, only: tic, toc, TIM_INTPRESS
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,k
logical, save :: first=.true.
......
!$Id: ip_blumberg_mellor.F90,v 1.11 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: ip_blumberg_mellor_lin.F90,v 1.8 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: ip_chu_fan.F90,v 1.8 2009-10-01 12:23:13 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
......@@ -292,4 +292,3 @@
!-----------------------------------------------------------------------
! Copyright (C) 2007 - Richard Hofmeister !
!-----------------------------------------------------------------------
!$Id: ip_song_wright.F90,v 1.7 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -41,7 +40,6 @@
! The discretisation of $(\partial_y^* b)_k$ for the $v$-equation is
! done accordingly.
!
!
! !USES:
use internal_pressure
!$ use omp_lib
......
!$Id: ip_stelling_vankester.F90,v 1.5 2009-12-18 08:11:10 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: ip_z_interpol.F90,v 1.7 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: m3d.F90,v 1.49 2010-03-30 11:48:37 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -86,9 +85,6 @@
REALTYPE, intent(in) :: timestep
logical, intent(in) :: hotstart
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !DESCRIPTION:
! Here, the {\tt m3d} namelist is read from {\tt getm.inp}, and the
......@@ -121,7 +117,6 @@
calc_temp,calc_salt, &
avmback,avhback,ip_method,ip_ramp, &
vel_check,min_vel,max_vel
!
!EOP
!-------------------------------------------------------------------------
!BOC
......
......@@ -56,4 +56,3 @@
!-----------------------------------------------------------------------
! Copyright (C) 2010 - Hannes Rennau, Richard Hofmeister !
!-----------------------------------------------------------------------
!$Id: rivers.F90,v 1.15 2008-02-21 12:04:42 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -84,7 +83,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......@@ -112,12 +110,6 @@
! !USES:
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,n,nn,ni,rc,m,iriver,jriver,numcells
integer :: unit = 25 ! kbk
......@@ -307,12 +299,6 @@
! !USES:
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: rc
!EOP
......@@ -364,17 +350,12 @@
! !INPUT PARAMETERS:
logical, intent(in) :: do_3d
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,k,m,n
integer, save :: nn=0
REALTYPE :: ramp=_ONE_
REALTYPE :: rvol,height
REALTYPE :: svol,tvol,vol
!
!EOP
!-----------------------------------------------------------------------
!BOC
......@@ -469,16 +450,9 @@
! This routine closes the river handling by writing the integrated
! river run-off for each river to standard output.
!
!
! !USES:
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,n
REALTYPE :: tot=_ZERO_
......
!$Id: salinity.F90,v 1.30 2010-03-15 13:04:51 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -43,7 +42,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......@@ -294,7 +292,6 @@ salt_field_no=1
end if
#ifdef DEBUG
write(debug,*) 'Leaving init_salinity()'
write(debug,*)
......@@ -348,10 +345,6 @@ salt_field_no=1
! !INPUT PARAMETERS:
integer, intent(in) :: n
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,k,rc
REALTYPE, POINTER :: Res(:)
......@@ -551,7 +544,6 @@ salt_field_no=1
end do
#endif
#ifdef SLOPE_TEST
do i=81,82
do j=42,43
......
!$Id: sigma_coordinates.F90,v 1.3 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: slow_advection.F90,v 1.13 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -33,12 +32,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
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