Commit 3dfda7aa authored by kbk's avatar kbk
Browse files

maintain REVISION HISTOTY tag

parent 1800160c
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -45,6 +45,9 @@ ...@@ -45,6 +45,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j integer :: i,j
REALTYPE :: uloc(E2DFIELD),vloc(E2DFIELD) REALTYPE :: uloc(E2DFIELD),vloc(E2DFIELD)
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -49,6 +49,9 @@ ...@@ -49,6 +49,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: pos(2),max_pos(2),rc,i,j integer :: pos(2),max_pos(2),rc,i,j
REALTYPE :: h_max=-99.,c,max_dt,dtt REALTYPE :: h_max=-99.,c,max_dt,dtt
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -33,6 +33,9 @@ ...@@ -33,6 +33,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j integer :: i,j
REALTYPE :: d1,d2,x REALTYPE :: d1,d2,x
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -25,6 +25,9 @@ ...@@ -25,6 +25,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k,n integer :: i,j,k,n
integer :: nbdy integer :: nbdy
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -38,6 +38,9 @@ ...@@ -38,6 +38,9 @@
REAL_4B, allocatable :: bdy_times(:) REAL_4B, allocatable :: bdy_times(:)
integer, parameter :: comm_method=-1 integer, parameter :: comm_method=-1
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
! !
!EOP !EOP
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -29,6 +29,9 @@ ...@@ -29,6 +29,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
logical :: ufirst=.false. logical :: ufirst=.false.
!EOP !EOP
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -38,6 +38,9 @@ ...@@ -38,6 +38,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
!EOP !EOP
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -35,6 +35,9 @@ ...@@ -35,6 +35,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j integer :: i,j
REALTYPE :: kk REALTYPE :: kk
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -34,6 +34,9 @@ ...@@ -34,6 +34,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
logical, save :: first=.true. logical, save :: first=.true.
REALTYPE, save :: time_array(1000),zbo(1000),zbn(1000) REALTYPE, save :: time_array(1000),zbo(1000),zbn(1000)
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -160,6 +160,9 @@ ...@@ -160,6 +160,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,ii,jj integer :: i,j,ii,jj
!EOP !EOP
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -56,6 +56,9 @@ ...@@ -56,6 +56,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j integer :: i,j
REALTYPE :: d_crit=2.0 REALTYPE :: d_crit=2.0
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -172,6 +172,9 @@ ...@@ -172,6 +172,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j integer :: i,j
!EOP !EOP
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -30,6 +30,9 @@ ...@@ -30,6 +30,9 @@
integer :: size2d_field integer :: size2d_field
integer :: mem2d integer :: mem2d
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: rc integer :: rc
! !
......
...@@ -54,6 +54,9 @@ ...@@ -54,6 +54,9 @@
! !
! !PRIVATE DATA MEMBERS: ! !PRIVATE DATA MEMBERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: advection_method integer :: advection_method
!EOP !EOP
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -30,6 +30,9 @@ ...@@ -30,6 +30,9 @@
! !
! !PRIVATE DATA MEMBERS: ! !PRIVATE DATA MEMBERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
!EOP !EOP
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -57,6 +57,9 @@ ...@@ -57,6 +57,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,kk integer :: i,j,kk
REALTYPE :: r,hh,fricvel REALTYPE :: r,hh,fricvel
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -86,6 +86,9 @@ ...@@ -86,6 +86,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k,rc,kk integer :: i,j,k,rc,kk
REALTYPE :: tmp,kmaxm1,alpha REALTYPE :: tmp,kmaxm1,alpha
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -25,8 +25,10 @@ ...@@ -25,8 +25,10 @@
REALTYPE :: T0 = 10., S0 = 33.75, p0 = 0. REALTYPE :: T0 = 10., S0 = 33.75, p0 = 0.
REALTYPE :: dtr0 = -0.17, dsr0 = 0.78 REALTYPE :: dtr0 = -0.17, dsr0 = 0.78
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
!EOP !EOP
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -44,6 +48,9 @@ ...@@ -44,6 +48,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: rc,i,ii,j,jj,k,kk integer :: rc,i,ii,j,jj,k,kk
#ifdef USE_ALLOCATED_ARRAYS #ifdef USE_ALLOCATED_ARRAYS
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -56,6 +56,9 @@ ...@@ -56,6 +56,9 @@
! !
! !OUTPUT PARAMETERS: ! !OUTPUT PARAMETERS:
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k integer :: i,j,k
REALTYPE :: u_taus,u_taub,z0s,z0b REALTYPE :: u_taus,u_taub,z0s,z0b
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -35,6 +35,9 @@ ...@@ -35,6 +35,9 @@
use variables_3d, only: hn,hun,hvn,hcc use variables_3d, only: hn,hun,hvn,hcc
IMPLICIT NONE IMPLICIT NONE
! !
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k integer :: i,j,k
REALTYPE :: du1,du2,dv1,dv2 REALTYPE :: du1,du2,dv1,dv2
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -89,6 +89,9 @@ ...@@ -89,6 +89,9 @@
integer, private, parameter :: SONG_WRIGHT=4 integer, private, parameter :: SONG_WRIGHT=4
integer, private, parameter :: CHU_FAN=5 integer, private, parameter :: CHU_FAN=5
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
!EOP !EOP
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -53,6 +53,9 @@ ...@@ -53,6 +53,9 @@
use internal_pressure use internal_pressure
IMPLICIT NONE IMPLICIT NONE
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard, Adolf Stips, Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k integer :: i,j,k
REALTYPE :: dxm1,dym1 REALTYPE :: dxm1,dym1
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -54,6 +54,9 @@ ...@@ -54,6 +54,9 @@
use variables_3d, only: kumin_pmz,kvmin_pmz use variables_3d, only: kumin_pmz,kvmin_pmz
IMPLICIT NONE IMPLICIT NONE
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k integer :: i,j,k
REALTYPE :: dxm1,dym1 REALTYPE :: dxm1,dym1
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -18,6 +18,9 @@ ...@@ -18,6 +18,9 @@
use internal_pressure use internal_pressure
IMPLICIT NONE IMPLICIT NONE
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding & Adolf Stips
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k integer :: i,j,k
REALTYPE :: dxm1,dym1,x,y,x1,y1,hc REALTYPE :: dxm1,dym1,x,y,x1,y1,hc
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -46,6 +46,9 @@ ...@@ -46,6 +46,9 @@
use internal_pressure use internal_pressure
IMPLICIT NONE IMPLICIT NONE
! !
! !REVISION HISTORY:
! Original author(s): Hans Burchard & Karsten Bolding
!
! !LOCAL VARIABLES: ! !LOCAL VARIABLES:
integer :: i,j,k integer :: i,j,k
REALTYPE :: dxm1,dym1 REALTYPE :: dxm1,dym1
......
!$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" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -23,6 +23,9 @@ ...@@ -23,6 +23,9 @@
use internal_pressure use internal_pressure
IMPLICIT NONE IMPLICIT NONE