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

removed CVS specific Id and Log info

parent 86d85bf3
!$Id: slow_bottom_friction.F90,v 1.11 2009-09-30 11:28:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -35,12 +34,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: slow_diffusion.F90,v 1.9 2009-08-18 10:24:44 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -37,10 +36,6 @@
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: AM
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,ii,jj
REALTYPE :: Di(imin-1:imax+1,jmin-1:jmax+1)
......
!$Id: slow_terms.F90,v 1.13 2010-03-22 05:02:58 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -18,7 +17,6 @@
! These calculations have been prepared in the routines
! {\tt slow\_bottom\_friction}, {\tt slow\_advection} and
! {\tt slow\_diffusion}.
!
! !USES:
use domain, only: imin,imax,jmin,jmax,kmax,HU,HV,au,av
......@@ -33,16 +31,9 @@
#ifdef STRUCTURE_FRICTION
use variables_3d, only: sf
#endif
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: spm.F90,v 1.16 2009-07-18 12:36:00 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: ss_nn.F90,v 1.13 2010-03-02 13:06:56 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -137,12 +136,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: start_macro.F90,v 1.12 2009-08-18 10:24:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -36,12 +35,6 @@
use getm_timers, only: tic, toc, TIM_STARTMCR
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: stop_macro.F90,v 1.9 2010-03-24 14:58:15 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -29,15 +28,8 @@
#else
use domain, only: dx,dy,ard1
#endif
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: stresses_3d.F90,v 1.11 2009-09-30 11:28:46 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -32,12 +31,6 @@
!$ use omp_lib
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: structure_friction_3d.F90,v 1.2 2009-08-18 10:24:45 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -30,12 +29,6 @@
use getm_timers, only: tic, toc, TIM_STRCTFRICT
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -45,7 +38,6 @@
#ifdef STRUCTURE_FRICTION
REALTYPE :: cds(I2DFIELD)
#endif
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: temperature.F90,v 1.27 2010-03-15 13:04:51 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -47,7 +46,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......@@ -81,10 +79,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: adv_method
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: k,i,j,n
integer, parameter :: nmax=10000
......@@ -348,10 +342,6 @@ temp_field_no=1
! !INPUT PARAMETERS:
integer, intent(in) :: n
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !LOCAL VARIABLES:
integer :: i,j,k,rc
REALTYPE :: T2(I3DFIELD)
......
......@@ -35,10 +35,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: hor_adv,ver_adv,adv_split
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -53,7 +49,6 @@
REALTYPE :: AH=_ZERO_
REALTYPE :: dxdyi
#endif
!EOP
!-----------------------------------------------------------------------
!BOC
......@@ -68,7 +63,6 @@
stop 'tke_eps_advect_3d()'
#else
#if defined(SPHERICAL) || defined(CURVILINEAR)
#else
dxdyi = _ONE_/(dx*dy)
......
!$Id: u_split_adv.F90,v 1.6 2009-09-30 11:28:46 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -168,8 +167,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: upstream_2dh_adv.F90,v 1.8 2009-09-30 11:28:46 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -95,8 +94,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -109,7 +106,6 @@
REALTYPE :: flx(I3DFIELD),fly(I3DFIELD)
REALTYPE :: cmin(I3DFIELD),cmax(I3DFIELD)
#endif
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: upstream_adv.F90,v 1.8 2009-09-30 11:28:46 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -96,8 +95,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: uu_momentum_3d.F90,v 1.19 2009-09-30 11:28:46 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -83,10 +82,6 @@
integer, intent(in) :: n
logical, intent(in) :: bdy3d
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: uv_advect_3d.F90,v 1.20 2010-03-25 08:22:03 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -270,10 +269,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: hor_adv,ver_adv,adv_split
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -293,7 +288,6 @@
REALTYPE :: AH=_ZERO_
REALTYPE :: dti,dxdyi
#endif
!EOP
!-----------------------------------------------------------------------
!BOC
......@@ -443,8 +437,6 @@
end do
end do
call tic(TIM_UVADV3DH)
call update_3d_halo(vvEx,vvEx,av,imin,jmin,imax,jmax,kmax,V_TAG)
call wait_halo(V_TAG)
......@@ -676,7 +668,6 @@
!$OMP END PARALLEL
#endif ! End of three-dimensional first-order upstream
call toc(TIM_UVADV3D)
#ifdef DEBUG
write(debug,*) 'Leaving uv_advect_3d()'
......
!$Id: uv_diffusion_3d.F90,v 1.11 2009-09-30 11:28:46 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -126,10 +125,6 @@
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: Am
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......
!$Id: v_split_adv.F90,v 1.6 2009-09-30 11:28:47 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -76,8 +75,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
......@@ -93,7 +90,6 @@
write(debug,*) 'v_split_adv() # ',Ncall
#endif
!$OMP PARALLEL DEFAULT(SHARED) PRIVATE(i,j,k,c,x,r,Phi,limit,fu,fc,fd)
! Calculating v-interface fluxes !
......
!$Id: variables_3d.F90,v 1.14 2009-04-27 07:34:58 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -137,8 +136,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!
!EOP
!-----------------------------------------------------------------------
......@@ -157,10 +154,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: runtype
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !DESCRIPTION:
! Dynamic allocation of memory for 3D related fields via
! {\tt dynamic\_allocations\_3d.h} (unless the compiler option
......@@ -237,17 +230,9 @@
subroutine clean_variables_3d()
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !DESCRIPTION:
! This routine cleans up after a 3D integrationby doing nothing so far.
!
! !LOCAL VARIABLES:
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: vv_momentum_3d.F90,v 1.22 2009-09-30 11:28:47 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -91,10 +90,6 @@
integer, intent(in) :: n
logical, intent(in) :: bdy3d
!
! !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