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
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: dxm1,dym1

src/3d/m3d.F90

-!$Id: m3d.F90,v 1.29 2006-03-01 14:45:12 hb Exp $
+!$Id: m3d.F90,v 1.30 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -60,6 +60,9 @@
    integer                             :: bdyfmt_3d,bdyramp_3d
    character(len=PATH_MAX)             :: bdyfile_3d
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
    integer         :: vel_hor_adv=1,vel_ver_adv=1,vel_adv_split=0
 #ifdef NO_BAROCLINIC

src/3d/rivers.F90

-!$Id: rivers.F90,v 1.10 2006-03-01 14:45:12 hb Exp $
+!$Id: rivers.F90,v 1.11 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -80,6 +80,9 @@
    REALTYPE, allocatable     :: macro_height(:)
    REALTYPE, allocatable     :: flow_fraction(:)
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
 !EOP
 !-----------------------------------------------------------------------

src/3d/salinity.F90

-!$Id: salinity.F90,v 1.19 2006-03-01 14:45:12 hb Exp $
+!$Id: salinity.F90,v 1.20 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -41,6 +41,9 @@
    integer                   :: salt_adv_split=0
    REALTYPE                  :: salt_AH=-_ONE_
 !
+! !REVISION HISTORY:
+!  Original author(s): Karsten Bolding & Hans Burchard
+!
 ! !LOCAL VARIABLES:
 !EOP
 !-----------------------------------------------------------------------

src/3d/slow_advection.F90

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

src/3d/slow_bottom_friction.F90

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

src/3d/slow_terms.F90

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

src/3d/spm.F90

-!$Id: spm.F90,v 1.8 2006-03-01 14:45:12 hb Exp $
+!$Id: spm.F90,v 1.9 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -110,6 +110,9 @@
    REALTYPE                :: spm_part_density=2650.   !(g/l or kg/m3)
    integer                 :: spm_mfloc=4
 !
+! !REVISION HISTORY:
+!  Original author(s): Manuel Ruiz Villarreal, Karsten Bolding and Hans Burchard
+!
 ! !LOCAL VARIABLES:
    REALTYPE, parameter       :: x=-rho_0/g
 !EOP

src/3d/ss_nn.F90

-!$Id: ss_nn.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: ss_nn.F90,v 1.7 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -141,6 +141,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k,nb
    REALTYPE                  :: dz,NNc,NNe,NNw,NNn,NNs

src/3d/start_macro.F90

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

src/3d/stop_macro.F90

-!$Id: stop_macro.F90,v 1.5 2006-03-01 14:45:12 hb Exp $
+!$Id: stop_macro.F90,v 1.6 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -26,8 +26,10 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
-!kbk   integer               :: i,j
 !EOP
 !-----------------------------------------------------------------------
 !BOC

src/3d/stresses_3d.F90

-!$Id: stresses_3d.F90,v 1.6 2006-03-01 14:45:12 hb Exp $
+!$Id: stresses_3d.F90,v 1.7 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -34,6 +34,9 @@
 !
 ! !OUTPUT PARAMETERS:
 !
+! !REVISION HISTORY:
+!  Original author(s): Hans Burchard & Karsten Bolding
+!
 ! !LOCAL VARIABLES:
    integer                   :: i,j,k1,k2,k3,k4
 !EOP

src/3d/temperature.F90

-!$Id: temperature.F90,v 1.16 2006-03-01 14:45:12 hb Exp $
+!$Id: temperature.F90,v 1.17 2006-03-01 15:54:08 kbk Exp $
 #include "cppdefs.h"
 !-----------------------------------------------------------------------
 !BOP
@@ -38,6 +38,9 @@
    integer                   :: temp_adv_split=0
    REALTYPE                  :: temp_AH=-1.
 !