From 3dfda7aa009ef200dbf2db3e4fc40cc6f0c4cc88 Mon Sep 17 00:00:00 2001 From: kbk Date: Wed, 1 Mar 2006 15:54:07 +0000 Subject: [PATCH] maintain REVISION HISTOTY tag --- src/2d/bottom_friction.F90 | 5 ++++- src/2d/cfl_check.F90 | 5 ++++- src/2d/depth_update.F90 | 5 ++++- src/2d/have_bdy.F90 | 5 ++++- src/2d/m2d.F90 | 5 ++++- src/2d/momentum.F90 | 5 ++++- src/2d/residual.F90 | 5 ++++- src/2d/sealevel.F90 | 5 ++++- src/2d/update_2d_bdy.F90 | 5 ++++- src/2d/uv_advect.F90 | 5 ++++- src/2d/uv_depths.F90 | 5 ++++- src/2d/uv_diffusion.F90 | 5 ++++- src/2d/variables_2d.F90 | 5 ++++- src/3d/advection_3d.F90 | 3 +++ src/3d/bdy_3d.F90 | 5 ++++- src/3d/bottom_friction_3d.F90 | 5 ++++- src/3d/coordinates.F90 | 5 ++++- src/3d/eqstate.F90 | 6 ++++-- src/3d/fct_2dh_adv.F90 | 9 ++++++++- src/3d/gotm.F90 | 5 ++++- src/3d/hcc_check.F90 | 5 ++++- src/3d/internal_pressure.F90 | 5 ++++- src/3d/ip_blumberg_mellor.F90 | 5 ++++- src/3d/ip_blumberg_mellor_lin.F90 | 5 ++++- src/3d/ip_chu_fan.F90 | 5 ++++- src/3d/ip_song_wright.F90 | 5 ++++- src/3d/ip_z_interpol.F90 | 5 ++++- src/3d/m3d.F90 | 5 ++++- src/3d/rivers.F90 | 5 ++++- src/3d/salinity.F90 | 5 ++++- src/3d/slow_advection.F90 | 5 ++++- src/3d/slow_bottom_friction.F90 | 5 ++++- src/3d/slow_terms.F90 | 5 ++++- src/3d/spm.F90 | 5 ++++- src/3d/ss_nn.F90 | 5 ++++- src/3d/start_macro.F90 | 5 ++++- src/3d/stop_macro.F90 | 6 ++++-- src/3d/stresses_3d.F90 | 5 ++++- src/3d/temperature.F90 | 5 ++++- src/3d/u_split_adv.F90 | 9 ++++++++- src/3d/upstream_2dh_adv.F90 | 5 ++++- src/3d/upstream_adv.F90 | 5 ++++- src/3d/uu_momentum_3d.F90 | 5 ++++- src/3d/uv_advect_3d.F90 | 5 ++++- src/3d/uv_diffusion_3d.F90 | 5 ++++- src/3d/v_split_adv.F90 | 5 ++++- src/3d/variables_3d.F90 | 5 ++++- src/3d/vv_momentum_3d.F90 | 5 ++++- src/3d/w_split_adv.F90 | 5 ++++- src/3d/w_split_it_adv.F90 | 5 ++++- src/3d/ww_momentum_3d.F90 | 5 ++++- 51 files changed, 211 insertions(+), 52 deletions(-) diff --git a/src/2d/bottom_friction.F90 b/src/2d/bottom_friction.F90 index 3b35a0c4..3f9d454a 100644 --- a/src/2d/bottom_friction.F90 +++ b/src/2d/bottom_friction.F90 @@ -1,4 +1,4 @@ -!$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) diff --git a/src/2d/cfl_check.F90 b/src/2d/cfl_check.F90 index a923ecaa..30077949 100644 --- a/src/2d/cfl_check.F90 +++ b/src/2d/cfl_check.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/depth_update.F90 b/src/2d/depth_update.F90 index a3267ce2..cc06ac37 100644 --- a/src/2d/depth_update.F90 +++ b/src/2d/depth_update.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/have_bdy.F90 b/src/2d/have_bdy.F90 index 27ce6a8a..efa1fa29 100644 --- a/src/2d/have_bdy.F90 +++ b/src/2d/have_bdy.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/m2d.F90 b/src/2d/m2d.F90 index d3971e2d..75ecc041 100644 --- a/src/2d/m2d.F90 +++ b/src/2d/m2d.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/momentum.F90 b/src/2d/momentum.F90 index a5d888d8..f02a7442 100644 --- a/src/2d/momentum.F90 +++ b/src/2d/momentum.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/residual.F90 b/src/2d/residual.F90 index adb42920..37c0dd71 100644 --- a/src/2d/residual.F90 +++ b/src/2d/residual.F90 @@ -1,4 +1,4 @@ -!$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 !----------------------------------------------------------------------- diff --git a/src/2d/sealevel.F90 b/src/2d/sealevel.F90 index 9fcbff0b..25b1c9aa 100644 --- a/src/2d/sealevel.F90 +++ b/src/2d/sealevel.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/update_2d_bdy.F90 b/src/2d/update_2d_bdy.F90 index 997367f0..b8767455 100644 --- a/src/2d/update_2d_bdy.F90 +++ b/src/2d/update_2d_bdy.F90 @@ -1,4 +1,4 @@ -!$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) diff --git a/src/2d/uv_advect.F90 b/src/2d/uv_advect.F90 index 07f94f48..b809190f 100644 --- a/src/2d/uv_advect.F90 +++ b/src/2d/uv_advect.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/uv_depths.F90 b/src/2d/uv_depths.F90 index 78d0a51f..28df411c 100644 --- a/src/2d/uv_depths.F90 +++ b/src/2d/uv_depths.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/uv_diffusion.F90 b/src/2d/uv_diffusion.F90 index 2f0561e8..3a6b0474 100644 --- a/src/2d/uv_diffusion.F90 +++ b/src/2d/uv_diffusion.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/2d/variables_2d.F90 b/src/2d/variables_2d.F90 index e4fa20db..7d240f07 100644 --- a/src/2d/variables_2d.F90 +++ b/src/2d/variables_2d.F90 @@ -1,4 +1,4 @@ -!$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 ! diff --git a/src/3d/advection_3d.F90 b/src/3d/advection_3d.F90 index 4a0de794..b0ab2af7 100644 --- a/src/3d/advection_3d.F90 +++ b/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 diff --git a/src/3d/bdy_3d.F90 b/src/3d/bdy_3d.F90 index 390ed93a..b95e2b5e 100644 --- a/src/3d/bdy_3d.F90 +++ b/src/3d/bdy_3d.F90 @@ -1,4 +1,4 @@ -!$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 !----------------------------------------------------------------------- diff --git a/src/3d/bottom_friction_3d.F90 b/src/3d/bottom_friction_3d.F90 index 073d7aac..ab709c37 100644 --- a/src/3d/bottom_friction_3d.F90 +++ b/src/3d/bottom_friction_3d.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/coordinates.F90 b/src/3d/coordinates.F90 index db265a9a..f6d5c988 100644 --- a/src/3d/coordinates.F90 +++ b/src/3d/coordinates.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/eqstate.F90 b/src/3d/eqstate.F90 index 941ab4b7..cf2582fc 100644 --- a/src/3d/eqstate.F90 +++ b/src/3d/eqstate.F90 @@ -1,4 +1,4 @@ -!$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 !----------------------------------------------------------------------- diff --git a/src/3d/fct_2dh_adv.F90 b/src/3d/fct_2dh_adv.F90 index 287048cc..1ba87456 100644 --- a/src/3d/fct_2dh_adv.F90 +++ b/src/3d/fct_2dh_adv.F90 @@ -1,4 +1,8 @@ -!$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 diff --git a/src/3d/gotm.F90 b/src/3d/gotm.F90 index 086c3120..7cdd81c1 100644 --- a/src/3d/gotm.F90 +++ b/src/3d/gotm.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/hcc_check.F90 b/src/3d/hcc_check.F90 index 0fd3743c..37f23d90 100644 --- a/src/3d/hcc_check.F90 +++ b/src/3d/hcc_check.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/internal_pressure.F90 b/src/3d/internal_pressure.F90 index fd04d161..d82ed690 100644 --- a/src/3d/internal_pressure.F90 +++ b/src/3d/internal_pressure.F90 @@ -1,4 +1,4 @@ -!$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 !----------------------------------------------------------------------- diff --git a/src/3d/ip_blumberg_mellor.F90 b/src/3d/ip_blumberg_mellor.F90 index bdbd9c6a..d1b115db 100644 --- a/src/3d/ip_blumberg_mellor.F90 +++ b/src/3d/ip_blumberg_mellor.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/ip_blumberg_mellor_lin.F90 b/src/3d/ip_blumberg_mellor_lin.F90 index 1e2fce45..a16b3dd9 100644 --- a/src/3d/ip_blumberg_mellor_lin.F90 +++ b/src/3d/ip_blumberg_mellor_lin.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/ip_chu_fan.F90 b/src/3d/ip_chu_fan.F90 index de8e79e2..b4ed7dd3 100644 --- a/src/3d/ip_chu_fan.F90 +++ b/src/3d/ip_chu_fan.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/ip_song_wright.F90 b/src/3d/ip_song_wright.F90 index 3ec48090..d88531c3 100644 --- a/src/3d/ip_song_wright.F90 +++ b/src/3d/ip_song_wright.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/ip_z_interpol.F90 b/src/3d/ip_z_interpol.F90 index 9b2c2616..caf4850e 100644 --- a/src/3d/ip_z_interpol.F90 +++ b/src/3d/ip_z_interpol.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/m3d.F90 b/src/3d/m3d.F90 index a57bf93c..2f167571 100644 --- a/src/3d/m3d.F90 +++ b/src/3d/m3d.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/rivers.F90 b/src/3d/rivers.F90 index befb7334..b60a3d21 100644 --- a/src/3d/rivers.F90 +++ b/src/3d/rivers.F90 @@ -1,4 +1,4 @@ -!$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 !----------------------------------------------------------------------- diff --git a/src/3d/salinity.F90 b/src/3d/salinity.F90 index 79974f67..6931f1a1 100644 --- a/src/3d/salinity.F90 +++ b/src/3d/salinity.F90 @@ -1,4 +1,4 @@ -!$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 !----------------------------------------------------------------------- diff --git a/src/3d/slow_advection.F90 b/src/3d/slow_advection.F90 index 9ea17037..2520c82d 100644 --- a/src/3d/slow_advection.F90 +++ b/src/3d/slow_advection.F90 @@ -1,4 +1,4 @@ -!$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) diff --git a/src/3d/slow_bottom_friction.F90 b/src/3d/slow_bottom_friction.F90 index 39b05521..ff0fc8f7 100644 --- a/src/3d/slow_bottom_friction.F90 +++ b/src/3d/slow_bottom_friction.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/slow_terms.F90 b/src/3d/slow_terms.F90 index 603cbbbb..c7f26469 100644 --- a/src/3d/slow_terms.F90 +++ b/src/3d/slow_terms.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/spm.F90 b/src/3d/spm.F90 index 85159926..faa61f15 100644 --- a/src/3d/spm.F90 +++ b/src/3d/spm.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/ss_nn.F90 b/src/3d/ss_nn.F90 index 8397168d..141164b7 100644 --- a/src/3d/ss_nn.F90 +++ b/src/3d/ss_nn.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/start_macro.F90 b/src/3d/start_macro.F90 index af86d7e3..759e3e86 100644 --- a/src/3d/start_macro.F90 +++ b/src/3d/start_macro.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/stop_macro.F90 b/src/3d/stop_macro.F90 index 955702b7..696fd5dc 100644 --- a/src/3d/stop_macro.F90 +++ b/src/3d/stop_macro.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/stresses_3d.F90 b/src/3d/stresses_3d.F90 index dcc673eb..8a4999d6 100644 --- a/src/3d/stresses_3d.F90 +++ b/src/3d/stresses_3d.F90 @@ -1,4 +1,4 @@ -!$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 diff --git a/src/3d/temperature.F90 b/src/3d/temperature.F90 index 416cf6c1..55baa6ea 100644 --- a/src/3d/temperature.F90 +++ b/src/3d/temperature.F90 @@ -1,4 +1,4 @@ -!$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. ! +! !REVISION HISTORY: +! Original author(s): Karsten Bolding & Hans Burchard +! ! !LOCAL VARIABLES: !EOP !----------------------------------------------------------------------- diff --git a/src/3d/u_split_adv.F90 b/src/3d/u_split_adv.F90 index ad06feb7..08bd4ce2 100644 --- a/src/3d/u_split_adv.F90 +++ b/src/3d/u_split_adv.F90 @@ -1,4 +1,8 @@ -!$Id: u_split_adv.F90,v 1.2 2006-03-01 14:45:12 hb Exp $ +<<<<<<< u_split_adv.F90 +!$Id: u_split_adv.F90,v 1.3 2006-03-01 15:54:08 kbk Exp $ +======= +!$Id: u_split_adv.F90,v 1.3 2006-03-01 15:54:08 kbk Exp $ +>>>>>>> 1.2 #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -170,6 +174,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,ii,j,jj,k,kk REALTYPE :: c,alpha,beta,x,r,Phi,limit,fu,fc,fd diff --git a/src/3d/upstream_2dh_adv.F90 b/src/3d/upstream_2dh_adv.F90 index 0c780353..090b6e0b 100644 --- a/src/3d/upstream_2dh_adv.F90 +++ b/src/3d/upstream_2dh_adv.F90 @@ -1,4 +1,4 @@ -!$Id: upstream_2dh_adv.F90,v 1.3 2006-03-01 14:45:12 hb Exp $ +!$Id: upstream_2dh_adv.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -97,6 +97,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: rc,i,j,k,ii,jj #ifdef USE_ALLOCATED_ARRAYS diff --git a/src/3d/upstream_adv.F90 b/src/3d/upstream_adv.F90 index bb9446ec..10fbb3dd 100644 --- a/src/3d/upstream_adv.F90 +++ b/src/3d/upstream_adv.F90 @@ -1,4 +1,4 @@ -!$Id: upstream_adv.F90,v 1.3 2006-03-01 14:45:12 hb Exp $ +!$Id: upstream_adv.F90,v 1.4 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -98,6 +98,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 diff --git a/src/3d/uu_momentum_3d.F90 b/src/3d/uu_momentum_3d.F90 index 683c8812..debf898f 100644 --- a/src/3d/uu_momentum_3d.F90 +++ b/src/3d/uu_momentum_3d.F90 @@ -1,4 +1,4 @@ -!$Id: uu_momentum_3d.F90,v 1.9 2006-03-01 14:45:12 hb Exp $ +!$Id: uu_momentum_3d.F90,v 1.10 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -71,6 +71,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,j,k,rc REALTYPE :: dif(1:kmax-1) diff --git a/src/3d/uv_advect_3d.F90 b/src/3d/uv_advect_3d.F90 index b402aa27..6aa5f489 100644 --- a/src/3d/uv_advect_3d.F90 +++ b/src/3d/uv_advect_3d.F90 @@ -1,4 +1,4 @@ -!$Id: uv_advect_3d.F90,v 1.12 2006-03-01 14:45:12 hb Exp $ +!$Id: uv_advect_3d.F90,v 1.13 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -273,6 +273,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,j,k,rc REALTYPE :: PP(iimin-1:iimax+1,jjmin-1:jjmax+1,1:kmax) diff --git a/src/3d/uv_diffusion_3d.F90 b/src/3d/uv_diffusion_3d.F90 index 358fbc33..92875c55 100644 --- a/src/3d/uv_diffusion_3d.F90 +++ b/src/3d/uv_diffusion_3d.F90 @@ -1,4 +1,4 @@ -!$Id: uv_diffusion_3d.F90,v 1.7 2006-03-01 14:45:12 hb Exp $ +!$Id: uv_diffusion_3d.F90,v 1.8 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -128,6 +128,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,j,k,ii,jj,kk REALTYPE :: PP(iimin-1:iimax+1,jjmin-1:jjmax+1,1:kmax) diff --git a/src/3d/v_split_adv.F90 b/src/3d/v_split_adv.F90 index 4619841e..e56348e2 100644 --- a/src/3d/v_split_adv.F90 +++ b/src/3d/v_split_adv.F90 @@ -1,4 +1,4 @@ -!$Id: v_split_adv.F90,v 1.2 2006-03-01 14:45:12 hb Exp $ +!$Id: v_split_adv.F90,v 1.3 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -78,6 +78,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,ii,j,jj,k,kk REALTYPE :: c,alpha,beta,x,r,Phi,limit,fu,fc,fd diff --git a/src/3d/variables_3d.F90 b/src/3d/variables_3d.F90 index 6fa2cccc..bc82117b 100644 --- a/src/3d/variables_3d.F90 +++ b/src/3d/variables_3d.F90 @@ -1,4 +1,4 @@ -!$Id: variables_3d.F90,v 1.9 2006-03-01 14:45:12 hb Exp $ +!$Id: variables_3d.F90,v 1.10 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -131,6 +131,9 @@ integer :: size3d_field integer :: mem3d ! +! !REVISION HISTORY: +! Original author(s): Karsten Bolding & Hans Burchard +! ! !LOCAL VARIABLES: ! !EOP diff --git a/src/3d/vv_momentum_3d.F90 b/src/3d/vv_momentum_3d.F90 index b2635cbb..c5e7b10d 100644 --- a/src/3d/vv_momentum_3d.F90 +++ b/src/3d/vv_momentum_3d.F90 @@ -1,4 +1,4 @@ -!$Id: vv_momentum_3d.F90,v 1.12 2006-03-01 14:45:12 hb Exp $ +!$Id: vv_momentum_3d.F90,v 1.13 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -77,6 +77,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,j,k,rc REALTYPE :: dif(1:kmax-1) diff --git a/src/3d/w_split_adv.F90 b/src/3d/w_split_adv.F90 index 9f0b7862..ee6eca06 100644 --- a/src/3d/w_split_adv.F90 +++ b/src/3d/w_split_adv.F90 @@ -1,4 +1,4 @@ -!$Id: w_split_adv.F90,v 1.2 2006-03-01 14:45:12 hb Exp $ +!$Id: w_split_adv.F90,v 1.3 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -59,6 +59,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,ii,j,jj,k,kk REALTYPE :: c,alpha,beta,x,r,Phi,limit,fu,fc,fd diff --git a/src/3d/w_split_it_adv.F90 b/src/3d/w_split_it_adv.F90 index a0ccdbf4..d17b4a7b 100644 --- a/src/3d/w_split_it_adv.F90 +++ b/src/3d/w_split_it_adv.F90 @@ -1,4 +1,4 @@ -!$Id: w_split_it_adv.F90,v 1.2 2006-03-01 14:45:12 hb Exp $ +!$Id: w_split_it_adv.F90,v 1.3 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -64,6 +64,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: integer :: i,ii,j,jj,k,kk,it REALTYPE :: c,alpha,beta,x,r,Phi,limit,fu,fc,fd,cmax diff --git a/src/3d/ww_momentum_3d.F90 b/src/3d/ww_momentum_3d.F90 index c0d0ef38..22968f75 100644 --- a/src/3d/ww_momentum_3d.F90 +++ b/src/3d/ww_momentum_3d.F90 @@ -1,4 +1,4 @@ -!$Id: ww_momentum_3d.F90,v 1.7 2006-03-01 14:45:12 hb Exp $ +!$Id: ww_momentum_3d.F90,v 1.8 2006-03-01 15:54:08 kbk Exp $ #include "cppdefs.h" !----------------------------------------------------------------------- !BOP @@ -49,6 +49,9 @@ ! ! !OUTPUT PARAMETERS: ! +! !REVISION HISTORY: +! Original author(s): Hans Burchard & Karsten Bolding +! ! !LOCAL VARIABLES: REALTYPE :: dtm1 integer :: i,j,k -- GitLab