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"
!-----------------------------------------------------------------------
!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)
......
!$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
......
!$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
......
!$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
......
!$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
......
!$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
......
!$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
!-----------------------------------------------------------------------
......
!$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
......
!$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)
......
!$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
......
!$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
......
!$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
......
!$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
!
......
......@@ -54,6 +54,9 @@
!
! !PRIVATE DATA MEMBERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
integer :: advection_method
!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"
!-----------------------------------------------------------------------
!BOP
......@@ -30,6 +30,9 @@
!
! !PRIVATE DATA MEMBERS:
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! !LOCAL VARIABLES:
!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"
!-----------------------------------------------------------------------
!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
......
!$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
......
!$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
!-----------------------------------------------------------------------
......
!$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
......
!$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
......
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