Commit 35c22a25 authored by kbk's avatar kbk
Browse files

initialise variables

parent 0690708f
!$Id: variables_2d.F90,v 1.2 2002-05-29 13:37:49 gotm Exp $
!$Id: variables_2d.F90,v 1.3 2003-04-07 15:50:20 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -15,7 +15,7 @@
! The module contains public subroutines to initialise and cleanup.
!
! !USES:
use domain, only: imin,imax,jmin,jmax,H,HU,HV,min_depth
use domain, only: imin,imax,jmin,jmax,H,HU,HV,min_depth
IMPLICIT NONE
!
! !PUBLIC DATA MEMBERS:
......@@ -31,8 +31,8 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: variables_2d.F90,v $
! Revision 1.2 2002-05-29 13:37:49 gotm
! New naming of .h files
! Revision 1.3 2003-04-07 15:50:20 kbk
! initialise variables
!
! Revision 1.1.1.1 2002/05/02 14:00:47 gotm
! recovering after CVS crash
......@@ -40,7 +40,6 @@
! Revision 1.1 2001/05/03 19:30:41 bbh
! 2D variables seperated from m2d
!
!
! !LOCAL VARIABLES:
integer :: rc
!
......@@ -92,6 +91,16 @@
#include "dynamic_allocations_2d.h"
#endif
z = _ZERO_ ; zu = _ZERO_ ; zv = _ZERO_
U = _ZERO_ ; DU = _ZERO_ ; fU = _ZERO_ ; SlUx = _ZERO_ ; Slru = _ZERO_
V = _ZERO_ ; DV = _ZERO_ ; fV = _ZERO_ ; SlVx = _ZERO_ ; Slrv = _ZERO_
Uint = _ZERO_ ; Vint = _ZERO_
UEx = _ZERO_ ; VEx = _ZERO_
ru = _ZERO_ ; rv = _ZERO_
res_du = _ZERO_ ; res_u = _ZERO_ ; res_dv = _ZERO_ ; res_v = _ZERO_
surfdiv = _ZERO_
#ifdef DEBUG
write(debug,*) 'Leaving init_variables_2d()'
write(debug,*)
......
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