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