Commit 913e91e7 authored by gotm's avatar gotm
Browse files

removed dead print statement

parent 5532a539
!$Id: internal_pressure.F90,v 1.1 2002-05-02 14:00:59 gotm Exp $ !$Id: internal_pressure.F90,v 1.2 2003-04-01 15:50:13 gotm Exp $
#include "cppdefs.h" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -30,8 +30,11 @@ ...@@ -30,8 +30,11 @@
! Original author(s): Hans Burchard & Karsten Bolding ! Original author(s): Hans Burchard & Karsten Bolding
! !
! $Log: internal_pressure.F90,v $ ! $Log: internal_pressure.F90,v $
! Revision 1.1 2002-05-02 14:00:59 gotm ! Revision 1.2 2003-04-01 15:50:13 gotm
! Initial revision ! removed dead print statement
!
! Revision 1.1.1.1 2002/05/02 14:00:59 gotm
! recovering after CVS crash
! !
! Revision 1.15 2001/10/22 08:23:53 bbh ! Revision 1.15 2001/10/22 08:23:53 bbh
! Removed reference to kplus and kminus when not -DPRESS_GRAD_Z ! Removed reference to kplus and kminus when not -DPRESS_GRAD_Z
...@@ -152,7 +155,6 @@ ...@@ -152,7 +155,6 @@
do i=iimin,iimax do i=iimin,iimax
if (au(i,j) .ge. 1) then if (au(i,j) .ge. 1) then
#if defined(SPHERICAL) || defined(CURVILINEAR) #if defined(SPHERICAL) || defined(CURVILINEAR)
!STDERR i,j,DXU
dxm1=_ONE_/DXU dxm1=_ONE_/DXU
#endif #endif
#ifdef PRESS_GRAD_Z #ifdef PRESS_GRAD_Z
......
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