Skip to content

GitLab

G
getm
Commit 3dfda7aa authored by kbk's avatar kbk
Browse files
Options

maintain REVISION HISTOTY tag

parent 1800160c
Show whitespace changes
Inline Side-by-side
Showing with 211 additions and 52 deletions
src/2d/bottom_friction.F90
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
......@@ -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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
View file @ 3dfda7aa
!$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
!-----------------------------------------------------------------------
......