Commit eecada21 authored by gotm's avatar gotm
Browse files

cleaned the code

parent d797f9fd
!$Id: gotm.F90,v 1.1 2002-05-02 14:00:54 gotm Exp $
!$Id: gotm.F90,v 1.2 2003-04-01 15:27:27 gotm Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -31,8 +31,11 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: gotm.F90,v $
! Revision 1.1 2002-05-02 14:00:54 gotm
! Initial revision
! Revision 1.2 2003-04-01 15:27:27 gotm
! cleaned the code
!
! Revision 1.1.1.1 2002/05/02 14:00:54 gotm
! recovering after CVS crash
!
! Revision 1.11 2001/10/23 07:06:43 bbh
! PARABOLIC VISCOSITY --> PARABOLIC_VISCOSITY
......@@ -87,8 +90,6 @@
write(debug,*) 'gotm() # ',Ncall
#endif
n = n+1
do i=iimin,iimax
do j=jjmin,jjmax
......@@ -146,25 +147,19 @@ n = n+1
end do
! Extrapolating eddy viscosity to open boundary points:
do k=1,kmax-1
do i=iimin,iimax
if (az(i,jjmin).eq.2) num(i,jjmin,k)=num(i,jjmin+1,k)
if (az(i,jjmax).eq.2) num(i,jjmax,k)=num(i,jjmax-1,k)
if (az(i,jjmin).eq.2) nuh(i,jjmin,k)=nuh(i,jjmin+1,k)
if (az(i,jjmax).eq.2) nuh(i,jjmax,k)=nuh(i,jjmax-1,k)
end do
if (az(i,jjmin).eq.2) num(i,jjmin,:)=num(i,jjmin+1,:)
if (az(i,jjmax).eq.2) num(i,jjmax,:)=num(i,jjmax-1,:)
if (az(i,jjmin).eq.2) nuh(i,jjmin,:)=nuh(i,jjmin+1,:)
if (az(i,jjmax).eq.2) nuh(i,jjmax,:)=nuh(i,jjmax-1,:)
end do
do k=1,kmax-1
do j=jjmin,jjmax
if (az(iimin,j).eq.2) num(iimin,j,k)=num(iimin+1,j,k)
if (az(iimax,j).eq.2) num(iimax,j,k)=num(iimax+1,j,k)
if (az(iimin,j).eq.2) nuh(iimin,j,k)=nuh(iimin+1,j,k)
if (az(iimax,j).eq.2) nuh(iimax,j,k)=nuh(iimax+1,j,k)
if (az(iimin,j).eq.2) num(iimin,j,:)=num(iimin+1,j,:)
if (az(iimax,j).eq.2) num(iimax,j,:)=num(iimax+1,j,:)
if (az(iimin,j).eq.2) nuh(iimin,j,:)=nuh(iimin+1,j,:)
if (az(iimax,j).eq.2) nuh(iimax,j,:)=nuh(iimax+1,j,:)
end do
end do
#ifdef DEBUG
write(debug,*) 'Leaving gotm()'
......
!$Id: m3d.F90,v 1.1 2002-05-02 14:00:51 gotm Exp $
!$Id: m3d.F90,v 1.2 2003-04-01 15:27:56 gotm Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -42,8 +42,11 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: m3d.F90,v $
! Revision 1.1 2002-05-02 14:00:51 gotm
! Initial revision
! Revision 1.2 2003-04-01 15:27:56 gotm
! cleaned the code
!
! Revision 1.1.1.1 2002/05/02 14:00:51 gotm
! recovering after CVS crash
!
! Revision 1.30 2001/10/26 09:13:24 bbh
! Only call slow_diffusion() if Am > 0.
......@@ -305,7 +308,6 @@
#ifndef NO_BOTTFRIC
if (kmax.gt.1) then
call bottom_friction_3d()
end if
#endif
SS = _ZERO_
......@@ -369,6 +371,7 @@
#endif
#endif
end if
call slow_terms()
call stop_macro()
......
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