diff --git a/src/2d/bottom_friction.F90 b/src/2d/bottom_friction.F90 index 3b35a0c4f49b2f850532f9edfcb449cfa2afb685..3f9d454aeb3336bdd6a105951851d2d6226f17a9 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 a923ecaa46ecd553a4e6b0a027570cc46b3ac21a..300779490fd119a4207503c40b23d8946b747d00 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 a3267ce2d76d5e94826a90c99ca91190a10c2c43..cc06ac37db72aa3271bba47222e6f27b045425bc 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 27ce6a8ad08022b2888dfbc60a90406314ff513b..efa1fa2959c8c0252358e051a17ef77311957fd2 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 d3971e2d5d90364464a9e9f6563687e1c2f2545b..75ecc041c491f6ed6a99da2c5cd9cb1b91d664a9 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 a5d888d8aa7ed6cb12bcacaa264813525331c5fb..f02a7442427d192b51f098d842126bde9d11f822 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 adb429209cbdcb89451e7cdc30a01cccbde89678..37c0dd7165a6dc0a6b4c80781d49841701f712ab 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 9fcbff0b7992d2347d57853643b596481db8b788..25b1c9aacea00095677f13906cf5fb2f040a58dc 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 997367f0fa9a1c07d97bd616c6aa9c01d5d8a4ef..b87674557afc96a5b6eba915c5841aeab6ba9254 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 07f94f488c05d0c8885ecd4a3791e2a1d814c576..b809190f5f1c82548c43c0aaea95b2c14ffab3dc 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 78d0a51fb832bb674b0059ebd2a0490df16cf42c..28df411c91dc3afcc2f649cc58c7eb78b627c5eb 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 2f0561e85dc4ea55beb0cef61cd82bb0e3d8fce1..3a6b0474c5dae4a26bac178692b8da313ab022ba 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 e4fa20db9e50b0da2cbd09f88e8328923cc15be6..7d240f079706cd0e4f399c0cb7b625f33f83d847 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 4a0de79442a1d4d05dea3274c977c01d96a68916..b0ab2af7f15fbd3bebf0c2a2f9894be421c66c45 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 390ed93a4ec7fa8998df6620eef83fdaf20920f9..b95e2b5e9fb8b3452420479e2eb0d5ebc5c3e70e 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 073d7aac95d91677e6d3bec2deb2897d0850bdbd..ab709c370f137beda42ed9c74a6aacbc7b6c934c 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 db265a9a023ae04aa44874aa2ad9690ef9858007..f6d5c988075c295222af107e6fb26231838dabb0 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 941ab4b7426e79a703eb2860d51e6d3c3bd980e3..cf2582fc827d1439d3952fef5aa0c9241ee3b8f0 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 287048ccd38781c8e89096f5c0d2873ecd19d70c..1ba87456ddcfb527ad9f906faa8b5b0e8fe7d80d 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 086c3120a544a6679c1a1d189c6528265ea0b01a..7cdd81c1743af448133cda234058778217f533da 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 0fd3743cfd3c66ff9fd9215af758f817960e40d3..37f23d90d9037c81a70e0e93fc011b0f522e53b6 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 fd04d161ac72a58de1b45afc6cdc05cae347f442..d82ed6900a942a4291143185d01332b57df4ed26 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 bdbd9c6a50eb1481b046ae803ca5e21da9664b55..d1b115db791b1d67e1dd7a0408cb74599a9cd46f 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 1e2fce45b3b6bba128a0092f740f4d9276e6af34..a16b3dd913821f9b4eb3ede15afaeee947564a3b 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 de8e79e2cb6f45f144cd8a101ad5fe6733beebc8..b4ed7dd3ea3c75a739d797c1d019c0479f3fa427 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 3ec48090c49d7dab2b895df65e6bd60c752b6074..d88531c3629acc0a18b3feea7cf690e276940805 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 9b2c2616b83def4ea81f35a30c8fe8db0b7a3427..caf4850ebff3d1abae31b6caabdcacac956b8fe0 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 a57bf93cc38072589cd0e4fe02201db73d08e5b6..2f1675715bf81c76a289e8b303b1269cfa2d450b 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 befb733404759576345d3469f56d12dca1494636..b60a3d21f4812fa4ec176eb17950c0843d197134 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 79974f6779b17aefe9a123f3275d922229c02430..6931f1a1b12668f69d91e4c873035c5bd562f387 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 9ea170371ec4650b4a032dfc15c6bc4524cdc77c..2520c82d01ceb84cae6bd9cd6335ffc74ad2a95b 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 39b05521ea49b5cff7b4f9ab7711723fc63e7953..ff0fc8f72e6902adf431a507c5a8453a82daa79f 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 603cbbbb2ef5f8c21b934ecfb8f6dfe46d031176..c7f26469098a4d99d925afc43d0423378344f8bb 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 85159926cd08ffc784e1693e06d12b5e0c8d64cf..faa61f159bb2584d1281ef463b6a83a111f2dfde 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 8397168d6f6c947c9a668762a73fa3faab37a97c..141164b7a86ba078e5a53f8e0ade370a3b4bff3b 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 af86d7e33319f221d5d4b4a13e6d7c3bab76351c..759e3e860db922cc44f973f2db825c63b977038a 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 955702b731a64ffceb71adcb207020ff1905cd04..696fd5dc9ac18a86ea77e1f5cb5718ab3538cbbd 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 dcc673ebf61e6fc01dcb31688787676d8754bf75..8a4999d60eebcf30ed0e0da12e53a641eb89af69 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 416cf6c1d2773eda249010775987b85910fba27e..55baa6ead66efbeb534faeaf23ec69367ce4afb5 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 ad06feb7e16ce5b7583b4b0361e3c84eea44f6f2..08bd4ce20b9d87ca14e27502d20d12243ff7ad52 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 0c7803534c83f4254f1a04cf0ce9afe9e765c895..090b6e0b92c2ca651db41b2845b5163835c688d6 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 bb9446ec7267853d45ac2919babd82157d3af89c..10fbb3ddbc5e763f4496e6fedcfd328b2226c16f 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 683c881242d0fe744dc512789650c0f7bc644cf2..debf898fdf99372eddfe60053230187bc6dcfca3 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 b402aa27d250aefb899ddca677fbad6b34740403..6aa5f4894be470e844cab66a83f997c5ea1bb173 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 358fbc33afa320a5c787794edffeb843fe733fd1..92875c55c8a21ff779c1f65fd81026f4369ede4e 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 4619841edd3c64f131d1a31fd4d42a20fec2be24..e56348e24b3bad11abfd6b823415af5c8ce8a4c3 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 6fa2cccc65cd4ecbf22cf93c91cb1f42fdc5a144..bc82117bf347fb5199aefca8cc6aa1a927bbe49f 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 b2635cbbb6fbe249c9c3935a167018fe8d29eca5..c5e7b10d863074881d0a46fb82cfcd1c06d8ab2b 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 9f0b7862510490cd17cd63007630b96df25e4b4e..ee6eca0697f946e963ea4eae25f712056fb8982f 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 a0ccdbf46be0d029c928aa1952646a2ef3137e79..d17b4a7b9b72392da4ddf5da036257579851f73e 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 c0d0ef388f8c3467c8ddf2bb50fbe8c62ee65536..22968f7573d7d6d35403b95ee4f4fd620766e53e 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