Commit 2f61b7b8 authored by kbk's avatar kbk
Browse files

cleaned code

parent c67fa1ad
!$Id: divergence.F90,v 1.1 2002-05-02 14:00:43 gotm Exp $
!$Id: divergence.F90,v 1.2 2003-04-07 13:08:37 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -12,12 +12,12 @@
!
! !USES:
use domain, only: imin,imax,jmin,jmax
use variables_2d, only: U,DU,V,DV,surfdiv
#if defined(SPHERICAL) || defined(CURVILINEAR)
use domain, only: arcd1,dxv,dyu
#else
use domain, only: ard1,dx,dy
#endif
use variables_2d, only: U,DU,V,DV,surfdiv
IMPLICIT NONE
!
! !INPUT PARAMETERS:
......@@ -30,8 +30,11 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: divergence.F90,v $
! Revision 1.1 2002-05-02 14:00:43 gotm
! Initial revision
! Revision 1.2 2003-04-07 13:08:37 kbk
! cleaned code
!
! Revision 1.1.1.1 2002/05/02 14:00:43 gotm
! recovering after CVS crash
!
! Revision 1.4 2001/08/01 08:25:52 bbh
! CURVILINEAR now implemented
......@@ -45,20 +48,14 @@
! Revision 1.1.1.1 2001/04/17 08:43:08 bbh
! initial import into CVS
!
!
! !LOCAL VARIABLES:
integer :: i,j
!HB REALTYPE :: dxm1,dym1
!
!EOP
!-----------------------------------------------------------------------
!BOC
!HB dxm1 = _ONE_/dx
!HB dym1 = _ONE_/dy
return
do i=imin,imax
do j=jmin,jmax
STDERR i,j,DU(i,j),DU(i-1,j),DV(i,j),DV(i,j-1)
surfdiv(i,j) = ((U(i,j)/DU(i,j)*DYU-U(i-1,j)/DU(i-1,j)*DYUIM1) &
- (V(i,j)/DV(i,j)*DXV-V(i,j-1)/DV(i,j-1)*DXVJM1))*ARCD1
end do
......
!$Id: ww_momentum_3d.F90,v 1.1 2002-05-02 14:00:57 gotm Exp $
!$Id: ww_momentum_3d.F90,v 1.2 2003-04-07 13:05:11 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -12,12 +12,12 @@
!
! !USES:
use domain, only: iimin,iimax,jjmin,jjmax,kmax
use variables_3d, only: dt,kmin,uu,vv,ww,ho,hn
#if defined(SPHERICAL) || defined(CURVILINEAR)
use domain, only: arcd1,dxv,dyu
#else
use domain, only: dx,dy,ard1
#endif
use variables_3d, only: dt,kmin,uu,vv,ww,ho,hn
IMPLICIT NONE
!
! !INPUT PARAMETERS:
......@@ -30,8 +30,11 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: ww_momentum_3d.F90,v $
! Revision 1.1 2002-05-02 14:00:57 gotm
! Initial revision
! Revision 1.2 2003-04-07 13:05:11 kbk
! cleaned code
!
! Revision 1.1.1.1 2002/05/02 14:00:57 gotm
! recovering after CVS crash
!
! Revision 1.6 2001/08/27 11:50:17 bbh
! TVD-advection for momentum added, some bugs removed
......
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