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

removed CVS specific Id and Log info

parent 86d85bf3
!$Id: halo_zones.F90,v 1.7 2009-08-21 08:56:34 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -31,31 +30,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: halo_zones.F90,v $
! Revision 1.7 2009-08-21 08:56:34 bjb
! Fix name clash on PARALLEL with OpenMP key word
!
! Revision 1.6 2008-09-16 10:03:24 kb
! added Holtermanns emergency break algorithm
!
! Revision 1.5 2007-06-07 10:25:19 kbk
! iimin,iimax,jjmin,jjmax -> imin,imax,jmin,jmax
!
! Revision 1.4 2003-08-03 08:49:51 kbk
! cleaned code
!
! Revision 1.3 2003/05/09 11:52:08 kbk
! do not mirror coordinate info + use mask for inverse area calculation
!
! Revision 1.2 2003/04/23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1 2003/04/07 12:05:42 kbk
! new parallel related files
!
! Revision 1.1.1.1 2002/05/02 14:01:29 gotm
! recovering after CVS crash
!
! !LOCAL VARIABLES:
#ifndef GETM_PARALLEL
integer, parameter :: nprocs=1
......@@ -78,17 +52,9 @@
! !DESCRIPTION:
! Initialize Parallel environment
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!
!EOP
!-------------------------------------------------------------------------
!BOC
......@@ -127,8 +93,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout) :: f1(E2DFIELD),f2(E2DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......@@ -188,8 +152,6 @@
! !INPUT/OUTPUT PARAMETERS:
REALTYPE, intent(inout):: f1(I3DFIELD),f2(I3DFIELD)
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
......@@ -230,14 +192,9 @@
! !INPUT PARAMETERS:
integer, intent(in) :: tag
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!EOP
!-------------------------------------------------------------------------
!BOC
......@@ -272,7 +229,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding
!
! !LOCAL VARIABLES:
!EOP
!-------------------------------------------------------------------------
!BOC
......
!$Id: kbk_interpol.F90,v 1.3 2007-06-07 10:25:19 kbk Exp $
#include"cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -32,21 +31,10 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: kbk_interpol.F90,v $
! Revision 1.3 2007-06-07 10:25:19 kbk
! iimin,iimax,jjmin,jjmax -> imin,imax,jmin,jmax
!
! Revision 1.2 2003-04-23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:21 gotm
! recovering after CVS crash
!
! !LOCAL VARIABLES:
integer :: i,j,k,nn,kl
REALTYPE :: rat
REALTYPE :: zmodel(kmax),prof(nlev)
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: parallel.F90,v 1.5 2009-08-21 08:56:34 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -24,42 +23,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: parallel.F90,v $
! Revision 1.5 2009-08-21 08:56:34 bjb
! Fix name clash on PARALLEL with OpenMP key word
!
! Revision 1.4 2008-06-26 06:19:30 kb
! barrier() + verbose when finishing parallel run - Bchmann
!
! Revision 1.3 2006-11-21 15:10:47 frv-bjb
! Parallel independence of INPUT_DIR for getm.inp read. Unset INPUT_DIR to use MPI working dir.
!
! Revision 1.2 2003-04-23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1 2003/04/07 12:05:42 kbk
! new parallel related files
!
! Revision 1.1.1.1 2002/05/02 14:01:29 gotm
! recovering after CVS crash
!
! 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:53:08 bbh
! Prepared for mask in update_2d_halo - but not used yet
!
! Revision 1.2 2001/05/18 10:03:44 bbh
! Added mask in parameter list to update_3d_halo()
!
! Revision 1.1.1.1 2001/04/17 08:43:08 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......@@ -77,10 +40,6 @@
! !INPUT PARAMETERS:
character(len=*) :: runid,input_dir
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !DESCRIPTION:
! Initialize Parallel environment
!
......@@ -95,7 +54,6 @@
character(len=16) :: pid,ext
character(len=PATH_MAX) :: fname
#endif
!
!EOP
!-------------------------------------------------------------------------
!BOC
......@@ -143,12 +101,6 @@
subroutine clean_parallel()
IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !DESCRIPTION:
! Initialize Parallel environment
!
......
!$Id: parameters.F90,v 1.3 2003-12-16 16:00:46 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -32,39 +31,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: parameters.F90,v $
! Revision 1.3 2003-12-16 16:00:46 kbk
! molecular diffusion for salt and temp (manuel)
!
! Revision 1.2 2003/04/23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:19 gotm
! recovering after CVS crash
!
! Revision 1.6 2001/10/22 08:48:30 bbh
! Am moved from paramters.F90 to m2d.F90
!
! Revision 1.5 2001/10/12 09:00:23 bbh
! AM in here - should be moved sometime
!
! Revision 1.4 2001/07/26 13:52:02 bbh
! Cleaning
!
! 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/18 08:41:49 bbh
! Added rho_0
!
! Revision 1.1.1.1 2001/04/17 08:43:09 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......
!$Id: pos.F90,v 1.2 2003-04-23 12:02:43 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -15,23 +14,9 @@
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: a
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: pos.F90,v $
! Revision 1.2 2003-04-23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:19 gotm
! recovering after CVS crash
!
! Revision 1.1.1.1 2001/04/17 08:43:09 bbh
! initial import into CVS
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: read_par_setup.F90,v 1.4 2009-12-11 11:43:20 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: time.F90,v 1.5 2007-08-24 10:43:45 frv-bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -47,48 +46,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: time.F90,v $
! Revision 1.5 2007-08-24 10:43:45 frv-bjb
! Allow negative seconds in meteo nc-files input
!
! Revision 1.4 2004-04-06 16:32:28 kbk
! TimeDiff --> time_diff
!
! Revision 1.3 2003/12/15 16:03:59 kbk
! new correct algorithm in in_interval()
!
! Revision 1.2 2003/04/23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:19 gotm
! recovering after CVS crash
!
! Revision 1.8 2001/10/17 08:19:42 bbh
! jul0 and jul1 now public
!
! Revision 1.7 2001/09/28 12:29:22 bbh
! Added add_secs() and in_interval()
!
! Revision 1.6 2001/07/26 13:52:41 bbh
! Cleaning + description
!
! Revision 1.5 2001/05/14 12:40:23 bbh
! Removed test output in string_to_time()
!
! Revision 1.4 2001/05/07 19:52:56 bbh
! Included - as valid delimiter in string_to_julsecs
!
! Revision 1.3 2001/05/07 14:37:45 bbh
! Added string_to_julsecs() - reads time imbedded in a string
!
! Revision 1.2 2001/05/06 18:51:55 bbh
! Towards proper implementation of specified 2D bdy.
!
! Revision 1.1.1.1 2001/04/17 08:43:09 bbh
! initial import into CVS
!
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
......@@ -233,8 +190,6 @@
! !INPUT PARAMETERS:
integer julian
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
integer yyyy,mm,dd
!
......@@ -287,8 +242,6 @@
! !INPUT PARAMETERS:
integer yyyy,mm,dd
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
integer julian
!
......@@ -336,10 +289,6 @@
! !INPUT PARAMETERS:
integer, intent(in) :: n
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
......@@ -388,8 +337,6 @@
! !INPUT PARAMETERS:
character(len=*) :: str
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
integer, intent(out) :: jul,secs
!
......@@ -435,8 +382,6 @@
! !INPUT PARAMETERS:
character(len=19) :: timestr
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
integer, intent(out) :: jul,secs
!
......@@ -457,7 +402,6 @@
return
end subroutine String2JulSecs
!EOC
!-----------------------------------------------------------------------
......@@ -533,14 +477,9 @@
! !INPUT PARAMETERS:
integer, intent(in) :: jul1,secs1,jul2,secs2
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
!BOC
......@@ -564,15 +503,12 @@
! !INPUT PARAMETERS:
integer, intent(in) :: j1,s1,secs
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
integer, intent(out) :: j2,s2
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
!EOP
!-----------------------------------------------------------------------
!BOC
......@@ -604,16 +540,11 @@
! !INPUT PARAMETERS:
integer, intent(in) :: j1,s1,j,s,j2,s2
!
! !INPUT/OUTPUT PARAMETERS:
!
! !OUTPUT PARAMETERS:
!
! !REVISION HISTORY:
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
logical :: before,after
!
!EOP
!-----------------------------------------------------------------------
!BOC
......
!$Id: to_2d_u.F90,v 1.2 2006-01-11 14:02:42 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -33,13 +32,6 @@
! !REVISION HISTORY:
! Original author(s): Lars Umlauf
!
! $Log: to_2d_u.F90,v $
! Revision 1.2 2006-01-11 14:02:42 lars
! documentation + cosmetics
!
! Revision 1.1 2005-04-25 09:32:34 kbk
! added NetCDF IO rewrite + de-stag of velocities - Umlauf
!
! !LOCAL VARIABLES:
integer :: i,j
!EOP
......
!$Id: to_2d_v.F90,v 1.2 2006-01-11 14:02:42 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -33,14 +32,6 @@
! !REVISION HISTORY:
! Original author(s): Lars Umlauf
!
! $Log: to_2d_v.F90,v $
! Revision 1.2 2006-01-11 14:02:42 lars
! documentation + cosmetics
!
! Revision 1.1 2005-04-25 09:32:34 kbk
! added NetCDF IO rewrite + de-stag of velocities - Umlauf
!
!
! !LOCAL VARIABLES:
integer :: i,j
!EOP
......
!$Id: to_2d_vel.F90,v 1.4 2006-01-11 14:07:02 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -32,25 +31,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: to_2d_vel.F90,v $
! Revision 1.4 2006-01-11 14:07:02 lars
! documentation + cosmetics
!
! Revision 1.3 2003-05-09 11:38:26 kbk
! added proper undef support - based on Adolf Stips patch
!
! Revision 1.2 2003/04/23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:19 gotm
! recovering after CVS crash
!
! Revision 1.2 2001/04/21 09:41:33 bbh
! Partial fixed problem with workspace (ws) variables in ncdf_save_?d.F90 and various conversion programs
!
! Revision 1.1.1.1 2001/04/17 08:43:09 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
integer :: i,j
!EOP
......
......@@ -32,22 +32,6 @@
! !REVISION HISTORY:
! Original author(s): Lars Umlauf
!
! $Log: to_3d_uu.F90,v $
! Revision 1.5 2007-06-07 10:25:19 kbk
! iimin,iimax,jjmin,jjmax -> imin,imax,jmin,jmax
!
! Revision 1.4 2006-01-19 10:07:55 lars
! bugfix (allocation of az-array)
!
! Revision 1.3 2006-01-11 14:57:33 lars
! added support for kmin
!
! Revision 1.2 2006-01-11 14:03:28 lars
! grave bug - partial re-write
!
! Revision 1.1 2005-04-25 09:32:34 kbk
! added NetCDF IO rewrite + de-stag of velocities - Umlauf
!
! !LOCAL VARIABLES:
integer :: i,j,k
REALTYPE :: ul,ur
......
!$Id: to_3d_vel.F90,v 1.5 2007-06-07 10:25:19 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -8,11 +7,11 @@
! !INTERFACE:
subroutine to_3d_vel(imin,jmin,imax,jmax,kmin,kmax,mask, &
h,trans,missing,vel)
IMPLICIT NONE
!
! !DESCRIPTION:
!
! !USES:
IMPLICIT NONE
!
! !INPUT PARAMETERS:
integer, intent(in) :: imin,jmin,imax,jmax
......@@ -29,28 +28,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: to_3d_vel.F90,v $
! Revision 1.5 2007-06-07 10:25:19 kbk
! iimin,iimax,jjmin,jjmax -> imin,imax,jmin,jmax
!
! Revision 1.4 2006-01-11 14:02:42 lars
! documentation + cosmetics
!
! Revision 1.3 2003-05-09 11:38:26 kbk
! added proper undef support - based on Adolf Stips patch
!
! Revision 1.2 2003/04/23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:20 gotm
! recovering after CVS crash
!
! Revision 1.2 2001/04/21 09:41:33 bbh
! Partial fixed problem with workspace (ws) variables in ncdf_save_?d.F90 and various conversion programs
!
! Revision 1.1.1.1 2001/04/17 08:43:09 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
integer :: i,j,k
!EOP
......
......@@ -32,22 +32,6 @@
! !REVISION HISTORY:
! Original author(s): Lars Umlauf
!
! $Log: to_3d_vv.F90,v $
! Revision 1.5 2007-06-07 10:25:19 kbk
! iimin,iimax,jjmin,jjmax -> imin,imax,jmin,jmax
!
! Revision 1.4 2006-01-19 10:07:55 lars
! bugfix (allocation of az-array)
!
! Revision 1.3 2006-01-11 14:57:33 lars
! added support for kmin
!
! Revision 1.2 2006-01-11 14:03:28 lars
! grave bug - partial re-write
!
! Revision 1.1 2005-04-25 09:32:34 kbk
! added NetCDF IO rewrite + de-stag of velocities - Umlauf
!
! !LOCAL VARIABLES:
integer :: i,j,k
REALTYPE :: vt,vb
......
!$Id: tow.F90,v 1.8 2009-05-25 19:00:18 hb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -50,37 +49,6 @@
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: tow.F90,v $
! Revision 1.8 2009-05-25 19:00:18 hb
! correction for compiler option SLICE_MODEL
!
! Revision 1.7 2007-06-07 10:25:19 kbk
! iimin,iimax,jjmin,jjmax -> imin,imax,jmin,jmax
!
! Revision 1.6 2007-05-26 12:19:30 kbk
! destag of vertical velocities
!
! Revision 1.5 2007-05-22 14:47:41 kbk
! fixed indx for z-coordinates
!
! Revision 1.4 2007-05-22 09:59:55 kbk
! fixed HV index error + z-coordinate indices
!
! Revision 1.3 2007-05-22 09:37:22 kbk
! saving physical vertical velocities
!
! Revision 1.2 2003-04-23 12:02:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:20 gotm
! recovering after CVS crash
!
! Revision 1.2 2001/04/21 09:41:33 bbh
! Partial fixed problem with workspace (ws) variables in ncdf_save_?d.F90 and various conversion programs
!
! Revision 1.1.1.1 2001/04/17 08:43:09 bbh
! initial import into CVS
!
! !LOCAL VARIABLES:
integer :: i,j,k
REALTYPE :: dtz,dxz,dyz
......
!$Id: tridiagonal.F90,v 1.3 2009-09-30 11:28:47 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -19,27 +18,12 @@
REALTYPE, intent(in) :: au(0:kmax),bu(0:kmax)
REALTYPE, intent(in) :: cu(0:kmax),du(0:kmax)