Commit 5b612f2a authored by kbk's avatar kbk
Browse files

fixes to compile with gfortran

parent be017a11
......@@ -34,7 +34,8 @@
public init_advection_3d, do_advection_3d
#ifdef STATIC
REALTYPE, public :: cu(I3DFIELD)
REALTYPE, public :: hi(I3DFIELD),hio(I3DFIELD)
REALTYPE, public :: hi(I3DFIELD)
REALTYPE, public :: hio(I3DFIELD)
#else
REALTYPE, public, dimension(:,:,:), allocatable :: hi,hio,cu
#endif
......@@ -49,7 +50,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: advection_3d.F90,v $
! Revision 1.8 2005-10-06 09:54:01 hb
! Revision 1.9 2005-11-17 13:50:22 kbk
! fixes to compile with gfortran
!
! Revision 1.8 2005/10/06 09:54:01 hb
! added support for vertical slice model - via -DSLICE_MODEL
!
! Revision 1.7 2005/05/25 10:32:13 kbk
......@@ -213,13 +217,21 @@
IMPLICIT NONE
!
! !INPUT PARAMETERS:
REALTYPE, intent(in) :: uu(I3DFIELD),vv(I3DFIELD),ww(I3DFIELD)
REALTYPE, intent(in) :: ho(I3DFIELD),hn(I3DFIELD)
REALTYPE, intent(in) :: hun(I3DFIELD),hvn(I3DFIELD)
REALTYPE, intent(in) :: delxu(I2DFIELD),delxv(I2DFIELD)
REALTYPE, intent(in) :: delyu(I2DFIELD),delyv(I2DFIELD)
REALTYPE, intent(in) :: uu(I3DFIELD)
REALTYPE, intent(in) :: vv(I3DFIELD)
REALTYPE, intent(in) :: ww(I3DFIELD)
REALTYPE, intent(in) :: ho(I3DFIELD)
REALTYPE, intent(in) :: hn(I3DFIELD)
REALTYPE, intent(in) :: hun(I3DFIELD)
REALTYPE, intent(in) :: hvn(I3DFIELD)
REALTYPE, intent(in) :: delxu(I2DFIELD)
REALTYPE, intent(in) :: delxv(I2DFIELD)
REALTYPE, intent(in) :: delyu(I2DFIELD)
REALTYPE, intent(in) :: delyv(I2DFIELD)
REALTYPE, intent(in) :: area_inv(I2DFIELD),dt,AH
integer, intent(in) :: az(E2DFIELD),au(E2DFIELD),av(E2DFIELD)
integer, intent(in) :: az(E2DFIELD)
integer, intent(in) :: au(E2DFIELD)
integer, intent(in) :: av(E2DFIELD)
integer, intent(in) :: hor_adv,ver_adv,adv_split
!
! !INPUT/OUTPUT PARAMETERS:
......
!$Id: internal_pressure.F90,v 1.10 2005-04-25 07:55:50 kbk Exp $
!$Id: internal_pressure.F90,v 1.11 2005-11-17 13:50:22 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -52,7 +52,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: internal_pressure.F90,v $
! Revision 1.10 2005-04-25 07:55:50 kbk
! Revision 1.11 2005-11-17 13:50:22 kbk
! fixes to compile with gfortran
!
! Revision 1.10 2005/04/25 07:55:50 kbk
! use more general frame for error handling - Umlauf
!
! Revision 1.9 2004/06/18 13:43:50 kbk
......@@ -152,7 +155,7 @@
#ifndef STATIC
allocate(zz(I3DFIELD),stat=rc)
if (rc /= 0) stop 'init_internal_pressure: Error allocating memory (zz)'
#ifdef
#ifdef SUBSTR_INI_PRESS
allocate(idpdx0(I3DFIELD),stat=rc) ! Initial x - pressure gradient.
if (rc /= 0) stop &
'init_internal_pressure(): Error allocating memory (idpdx0)'
......
!$Id: ncdf_topo.F90,v 1.10 2005-06-17 07:57:46 frv-bjb Exp $
!$Id: ncdf_topo.F90,v 1.11 2005-11-17 13:50:22 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -89,7 +89,10 @@
! Karsten Bolding and Hans Burchard)
!
! $Log: ncdf_topo.F90,v $
! Revision 1.10 2005-06-17 07:57:46 frv-bjb
! Revision 1.11 2005-11-17 13:50:22 kbk
! fixes to compile with gfortran
!
! Revision 1.10 2005/06/17 07:57:46 frv-bjb
! Bug fix: fail on dlat/lat0 versions
!
! Revision 1.9 2005/06/14 13:36:01 frv-bjb
......@@ -604,7 +607,7 @@ contains
LEVEL3 'Using plane curvilinear grid.'
case(4)
#ifndef (CURVILINEAR && SPHERICAL)
#if ! ( defined(SPHERICAL) || defined(CURVILINEAR) )
call getm_error("ncdf_check_grid()", &
& "Cannot use spherical curvlinear grid with&
& CURVILINEAR and SPHERICAL not #defined")
......
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