maintain REVISION HISTOTY tag

src/2d/bottom_friction.F90

-!$Id: bottom_friction.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: bottom_friction.F90,v 1.7 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -45,6 +45,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 !  !LOCAL VARIABLES:
    integer                   :: i,j
    REALTYPE                  :: uloc(E2DFIELD),vloc(E2DFIELD)

src/2d/cfl_check.F90

-!$Id: cfl_check.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: cfl_check.F90,v 1.7 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -49,6 +49,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer                   :: pos(2),max_pos(2),rc,i,j
    REALTYPE                  :: h_max=-99.,c,max_dt,dtt

src/2d/depth_update.F90

-!$Id: depth_update.F90,v 1.8 2006-03-01 14:45:12 hb Exp $
+!$Id: depth_update.F90,v 1.9 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -33,6 +33,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j
    REALTYPE                  :: d1,d2,x

src/2d/have_bdy.F90

-!$Id: have_bdy.F90,v 1.7 2006-03-01 14:45:12 hb Exp $
+!$Id: have_bdy.F90,v 1.8 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -25,6 +25,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k,n
    integer                   :: nbdy

src/2d/m2d.F90

-!$Id: m2d.F90,v 1.14 2006-03-01 14:45:12 hb Exp $
+!$Id: m2d.F90,v 1.15 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -38,6 +38,9 @@
    REAL_4B, allocatable      :: bdy_times(:)
    integer, parameter        :: comm_method=-1
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
 !
 !EOP

src/2d/momentum.F90

-!$Id: momentum.F90,v 1.11 2006-03-01 14:45:12 hb Exp $
+!$Id: momentum.F90,v 1.12 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -29,6 +29,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
   logical                    :: ufirst=.false.
 !EOP

src/2d/residual.F90

-!$Id: residual.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: residual.F90,v 1.7 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -38,6 +38,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
 !EOP
 !-----------------------------------------------------------------------

src/2d/sealevel.F90

-!$Id: sealevel.F90,v 1.10 2006-03-01 14:45:12 hb Exp $
+!$Id: sealevel.F90,v 1.11 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -35,6 +35,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j
    REALTYPE                  :: kk

src/2d/update_2d_bdy.F90

-!$Id: update_2d_bdy.F90,v 1.7 2006-03-01 14:45:12 hb Exp $
+!$Id: update_2d_bdy.F90,v 1.8 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -34,6 +34,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    logical, save             :: first=.true.
    REALTYPE, save            :: time_array(1000),zbo(1000),zbn(1000)

src/2d/uv_advect.F90

-!$Id: uv_advect.F90,v 1.9 2006-03-01 14:45:12 hb Exp $
+!$Id: uv_advect.F90,v 1.10 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -160,6 +160,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,ii,jj
 !EOP

src/2d/uv_depths.F90

-!$Id: uv_depths.F90,v 1.11 2006-03-01 14:45:12 hb Exp $
+!$Id: uv_depths.F90,v 1.12 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -56,6 +56,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j
    REALTYPE                  :: d_crit=2.0 

src/2d/uv_diffusion.F90

-!$Id: uv_diffusion.F90,v 1.7 2006-03-01 14:45:12 hb Exp $
+!$Id: uv_diffusion.F90,v 1.8 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -172,6 +172,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j
 !EOP

src/2d/variables_2d.F90

-!$Id: variables_2d.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: variables_2d.F90,v 1.7 2006-03-01 15:54:07 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -30,6 +30,9 @@
    integer                             :: size2d_field
    integer                             :: mem2d
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer                   :: rc
 !

src/3d/advection_3d.F90

@@ -54,6 +54,9 @@
 !
 ! !PRIVATE DATA MEMBERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer :: advection_method
 !EOP

src/3d/bdy_3d.F90

-!$Id: bdy_3d.F90,v 1.9 2006-03-01 14:45:12 hb Exp $
+!$Id: bdy_3d.F90,v 1.10 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -30,6 +30,9 @@
 !
 ! !PRIVATE DATA MEMBERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
 !EOP
 !-----------------------------------------------------------------------

src/3d/bottom_friction_3d.F90

-!$Id: bottom_friction_3d.F90,v 1.8 2006-03-01 14:45:12 hb Exp $
+!$Id: bottom_friction_3d.F90,v 1.9 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -57,6 +57,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,kk
    REALTYPE                  :: r,hh,fricvel

src/3d/coordinates.F90

-!$Id: coordinates.F90,v 1.10 2006-03-01 14:45:12 hb Exp $
+!$Id: coordinates.F90,v 1.11 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -86,6 +86,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer         :: i,j,k,rc,kk
    REALTYPE        :: tmp,kmaxm1,alpha

src/3d/eqstate.F90

-!$Id: eqstate.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: eqstate.F90,v 1.7 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -25,8 +25,10 @@
    REALTYPE                  :: T0 = 10., S0 = 33.75, p0 = 0.
    REALTYPE                  :: dtr0 = -0.17, dsr0 = 0.78
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
-
 !EOP
 !-----------------------------------------------------------------------
 

src/3d/fct_2dh_adv.F90

-!$Id: fct_2dh_adv.F90,v 1.3 2006-03-01 14:45:12 hb Exp $
+<<<<<<< fct_2dh_adv.F90
+!$Id: fct_2dh_adv.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $
+=======
+!$Id: fct_2dh_adv.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $
+>>>>>>> 1.3
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -44,6 +48,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer         :: rc,i,ii,j,jj,k,kk
 #ifdef USE_ALLOCATED_ARRAYS

src/3d/gotm.F90

-!$Id: gotm.F90,v 1.12 2006-03-01 14:45:12 hb Exp $
+!$Id: gotm.F90,v 1.13 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -56,6 +56,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: u_taus,u_taub,z0s,z0b

src/3d/hcc_check.F90

-!$Id: hcc_check.F90,v 1.3 2006-03-01 14:45:12 hb Exp $
+!$Id: hcc_check.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -35,6 +35,9 @@
    use variables_3d, only: hn,hun,hvn,hcc
    IMPLICIT NONE
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: du1,du2,dv1,dv2

src/3d/internal_pressure.F90

-!$Id: internal_pressure.F90,v 1.15 2006-03-01 14:45:12 hb Exp $
+!$Id: internal_pressure.F90,v 1.16 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -89,6 +89,9 @@
    integer, private, parameter         :: SONG_WRIGHT=4
    integer, private, parameter         :: CHU_FAN=5
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 !EOP
 !-----------------------------------------------------------------------
 

src/3d/ip_blumberg_mellor.F90

-!$Id: ip_blumberg_mellor.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: ip_blumberg_mellor.F90,v 1.7 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -53,6 +53,9 @@
    use internal_pressure
    IMPLICIT NONE
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard, Adolf Stips, Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: dxm1,dym1

src/3d/ip_blumberg_mellor_lin.F90

-!$Id: ip_blumberg_mellor_lin.F90,v 1.3 2006-03-01 14:45:12 hb Exp $
+!$Id: ip_blumberg_mellor_lin.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -54,6 +54,9 @@
    use variables_3d, only: kumin_pmz,kvmin_pmz
    IMPLICIT NONE
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: dxm1,dym1

src/3d/ip_chu_fan.F90

-!$Id: ip_chu_fan.F90,v 1.3 2006-03-01 14:45:12 hb Exp $
+!$Id: ip_chu_fan.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -18,6 +18,9 @@
    use internal_pressure
    IMPLICIT NONE
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding & Adolf Stips
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: dxm1,dym1,x,y,x1,y1,hc

src/3d/ip_song_wright.F90

-!$Id: ip_song_wright.F90,v 1.3 2006-03-01 14:45:12 hb Exp $
+!$Id: ip_song_wright.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -46,6 +46,9 @@
    use internal_pressure
    IMPLICIT NONE
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: dxm1,dym1

src/3d/ip_z_interpol.F90

-!$Id: ip_z_interpol.F90,v 1.3 2006-03-01 14:45:12 hb Exp $
+!$Id: ip_z_interpol.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -23,6 +23,9 @@
    use internal_pressure
    IMPLICIT NONE