Commit 55154157 authored by kbk's avatar kbk
Browse files

cleaned code + TABS to spaces

parent ea1c1cf2
!$Id: bottom_friction.F90,v 1.3 2003-04-07 15:41:09 kbk Exp $
!$Id: bottom_friction.F90,v 1.4 2003-04-23 12:09:43 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -27,7 +27,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: bottom_friction.F90,v $
! Revision 1.3 2003-04-07 15:41:09 kbk
! Revision 1.4 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/07 15:41:09 kbk
! adjusted use of mask
!
! Revision 1.1.1.1 2002/05/02 14:00:41 gotm
......
!$Id: cfl_check.F90,v 1.3 2003-04-03 07:01:49 gotm Exp $
!$Id: cfl_check.F90,v 1.4 2003-04-23 12:09:43 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -31,7 +31,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: cfl_check.F90,v $
! Revision 1.3 2003-04-03 07:01:49 gotm
! Revision 1.4 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/03 07:01:49 gotm
! fixed CFL calc. for non cartesian grid
!
! Revision 1.2 2002/10/04 13:56:58 gotm
......
!$Id: depth_update.F90,v 1.2 2003-04-07 15:27:00 kbk Exp $
!$Id: depth_update.F90,v 1.3 2003-04-23 12:09:43 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -27,7 +27,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: depth_update.F90,v $
! Revision 1.2 2003-04-07 15:27:00 kbk
! Revision 1.3 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:27:00 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:42 gotm
......
!$Id: divergence.F90,v 1.2 2003-04-07 13:08:37 kbk Exp $
!$Id: divergence.F90,v 1.3 2003-04-23 12:09:43 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -30,7 +30,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: divergence.F90,v $
! Revision 1.2 2003-04-07 13:08:37 kbk
! Revision 1.3 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 13:08:37 kbk
! cleaned code
!
! Revision 1.1.1.1 2002/05/02 14:00:43 gotm
......@@ -56,8 +59,9 @@
!BOC
do i=imin,imax
do j=jmin,jmax
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
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
end do
return
......
!$Id: have_bdy.F90,v 1.2 2003-04-07 15:42:05 kbk Exp $
!$Id: have_bdy.F90,v 1.3 2003-04-23 12:09:43 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -25,7 +25,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: have_bdy.F90,v $
! Revision 1.2 2003-04-07 15:42:05 kbk
! Revision 1.3 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:42:05 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:44 gotm
......
!$Id: m2d.F90,v 1.2 2003-04-07 12:17:08 kbk Exp $
!$Id: m2d.F90,v 1.3 2003-04-23 12:09:43 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -20,9 +20,9 @@
! !USES:
use time, only: julianday,secondsofday
use parameters, only: avmmol
use halo_zones, only : update_2d_halo,wait_halo,z_TAG,U_TAG,V_TAG
use domain, only: imin,imax,jmin,jmax,az,au,av,H,HU,HV,min_depth
use variables_2d
use halo_zones, only : update_2d_halo,wait_halo,z_TAG,U_TAG,V_TAG
IMPLICIT NONE
!
! !PUBLIC DATA MEMBERS:
......@@ -42,7 +42,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: m2d.F90,v $
! Revision 1.2 2003-04-07 12:17:08 kbk
! Revision 1.3 2003-04-23 12:09:43 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 12:17:08 kbk
! parallel version
!
! Revision 1.1.1.1 2002/05/02 14:00:41 gotm
......@@ -119,7 +122,8 @@
!
! !LOCAL VARIABLES:
integer :: rc
namelist /m2d/ MM,z0_const,Am,residual,bdy2d,bdyfmt_2d,bdyramp_2d,bdyfile_2d
namelist /m2d/ &
MM,z0_const,Am,residual,bdy2d,bdyfmt_2d,bdyramp_2d,bdyfile_2d
!EOP
!-------------------------------------------------------------------------
!BOC
......
!$Id: momentum.F90,v 1.5 2003-04-07 15:54:16 kbk Exp $
!$Id: momentum.F90,v 1.6 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -28,7 +28,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: momentum.F90,v $
! Revision 1.5 2003-04-07 15:54:16 kbk
! Revision 1.6 2003-04-23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.5 2003/04/07 15:54:16 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:44 gotm
......@@ -99,8 +102,8 @@
!
! !USES:
use parameters, only: g,rho_0
use domain, only: kmax,imin,imax,jmin,jmax,H,au,min_depth,Cori,dry_u
use domain, only: av,corv
use domain, only: imin,imax,jmin,jmax
use domain, only: H,au,av,min_depth,dry_u,Cori,corv
#if defined(SPHERICAL) || defined(CURVILINEAR)
use domain, only: dxu,arvd1,dxc,dyx
use variables_2d, only: V
......@@ -124,7 +127,8 @@
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: zx(E2DFIELD),Slr(E2DFIELD),tausu(E2DFIELD)
REALTYPE :: zx(E2DFIELD)
REALTYPE :: Slr(E2DFIELD),tausu(E2DFIELD)
REALTYPE :: zp,zm,Uloc,Uold
REALTYPE :: gamma=rho_0*g
REALTYPE :: cord_curv=_ZERO_
......@@ -177,7 +181,8 @@
Uloc=0.25*( U(i,j)+ U(i-1,j)+ U(i,j+1)+ U(i-1,j+1))
#endif
#if defined(SPHERICAL) || defined(CURVILINEAR)
cord_curv=(V(i,j)*(DYX-DYXIM1)-Uloc*(DXCJP1-DXC))/DV(i,j)*ARVD1
cord_curv=(V(i,j)*(DYX-DYXIM1)-Uloc*(DXCJP1-DXC)) &
/DV(i,j)*ARVD1
fU(i,j)=(cord_curv+corv(i,j))*Uloc
#else
fU(i,j)=corv(i,j)*Uloc
......@@ -208,8 +213,8 @@
!
! !USES:
use parameters, only: g,rho_0
use domain, only: imin,imax,jmin,jmax,H,av,min_depth,Cori
use domain, only: dry_v,au,coru
use domain, only: imin,imax,jmin,jmax
use domain, only: H,au,av,min_depth,dry_v,Cori,coru
#if defined(SPHERICAL) || defined(CURVILINEAR)
use domain, only: dyv,arud1,dxx,dyc
use m2d, only: U
......@@ -233,7 +238,8 @@
!
! !LOCAL VARIABLES:
integer :: i,j
REALTYPE :: zy(E2DFIELD),Slr(E2DFIELD),tausv(E2DFIELD)
REALTYPE :: zy(E2DFIELD)
REALTYPE :: Slr(E2DFIELD),tausv(E2DFIELD)
REALTYPE :: zp,zm,Vloc
REALTYPE :: gamma=rho_0*g
REALTYPE :: cord_curv=_ZERO_
......@@ -286,7 +292,8 @@
Vloc = 0.25*( V(i,j)+ V(i+1,j)+ V(i,j-1)+ V(i+1,j-1))
#endif
#if defined(SPHERICAL) || defined(CURVILINEAR)
cord_curv=(Vloc*(DYCIP1-DYC)-U(i,j)*(DXX-DXXJM1))/DU(i,j)*ARUD1
cord_curv=(Vloc*(DYCIP1-DYC)-U(i,j)*(DXX-DXXJM1)) &
/DU(i,j)*ARUD1
fV(i,j)=(cord_curv+coru(i,j))*Vloc
#else
fV(i,j)=coru(i,j)*Vloc
......
!$Id: residual.F90,v 1.2 2003-04-07 15:30:58 kbk Exp $
!$Id: residual.F90,v 1.3 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -12,7 +12,6 @@
!
! !USES:
use domain, only: HU,HV
! use variables_2d, only: zu,zuo,zv,zvo
use variables_2d, only: zu,zv
use variables_2d, only: u,v,res_du,res_u,res_dv,res_v
IMPLICIT NONE
......@@ -28,7 +27,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: residual.F90,v $
! Revision 1.2 2003-04-07 15:30:58 kbk
! Revision 1.3 2003-04-23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:30:58 kbk
! needs to be fixed
!
! Revision 1.1.1.1 2002/05/02 14:00:45 gotm
......
!$Id: sealevel.F90,v 1.3 2003-04-07 15:44:13 kbk Exp $
!$Id: sealevel.F90,v 1.4 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -32,7 +32,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: sealevel.F90,v $
! Revision 1.3 2003-04-07 15:44:13 kbk
! Revision 1.4 2003-04-23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/07 15:44:13 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:45 gotm
......@@ -115,7 +118,6 @@
call update_2d_halo(z,z,az,imin,jmin,imax,jmax,z_TAG)
call wait_halo(z_TAG)
!KBK call cp_outside_openbdy_2d(z)
#ifdef DEBUG
write(debug,*) 'Leaving sealevel()'
......
!$Id: update_2d_bdy.F90,v 1.2 2003-04-07 15:45:05 kbk Exp $
!$Id: update_2d_bdy.F90,v 1.3 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -29,7 +29,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: update_2d_bdy.F90,v $
! Revision 1.2 2003-04-07 15:45:05 kbk
! Revision 1.3 2003-04-23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 15:45:05 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:45 gotm
......@@ -181,6 +184,7 @@
k = k+1
end do
end do
do n = 1,NNB
l = l+1
k = bdy_index(l)
......@@ -211,31 +215,6 @@
end do
end do
#if 0
#ifdef NS_06NM_TEST
i=109
do j=1,jmax
if (az(i,j).eq.2) z(i,j)=0.4
end do
#endif
#ifdef NS_03NM_TEST
i=222
do j=1,jmax
if (az(i,j).eq.2) z(i,j)=0.4
end do
#endif
#ifdef SYLT_TEST
j=jmax
do i=1,imax
if (az(i,j-2).eq.2) then
a=z(i,j-1)+z(i,j-1)-z(i,j-2)
else
a=z(i,j-1)
end if
if (az(i,j).eq.2) z(i,j)= max(a,-H(i,j)+min_depth)
end do
#endif
#endif
#ifdef WADDEN_SEA_TEST
i=imin
do j=1,90
......
!$Id: uv_advect.F90,v 1.3 2003-04-07 15:58:18 kbk Exp $
!$Id: uv_advect.F90,v 1.4 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -31,7 +31,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: uv_advect.F90,v $
! Revision 1.3 2003-04-07 15:58:18 kbk
! Revision 1.4 2003-04-23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/07 15:58:18 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:46 gotm
......
!$Id: uv_depths.F90,v 1.4 2003-04-07 15:47:50 kbk Exp $
!$Id: uv_depths.F90,v 1.5 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -13,7 +13,7 @@
! !USES:
use domain, only: imin,imax,jmin,jmax,az,au,av,H,HU,HV
use variables_2d, only: DU,DV
use halo_zones, only : update_2d_halo,wait_halo,HU_TAG,HV_TAG
use halo_zones, only: update_2d_halo,wait_halo,HU_TAG,HV_TAG
IMPLICIT NONE
!
! !INPUT PARAMETERS:
......@@ -26,7 +26,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: uv_depths.F90,v $
! Revision 1.4 2003-04-07 15:47:50 kbk
! Revision 1.5 2003-04-23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.4 2003/04/07 15:47:50 kbk
! parallel support
!
! Revision 1.1.1.1 2002/05/02 14:00:46 gotm
......
!$Id: uv_diffusion.F90,v 1.1 2002-05-02 14:00:47 gotm Exp $
!$Id: uv_diffusion.F90,v 1.2 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......
!$Id: variables_2d.F90,v 1.3 2003-04-07 15:50:20 kbk Exp $
!$Id: variables_2d.F90,v 1.4 2003-04-23 12:09:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -31,7 +31,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: variables_2d.F90,v $
! Revision 1.3 2003-04-07 15:50:20 kbk
! Revision 1.4 2003-04-23 12:09:44 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/07 15:50:20 kbk
! initialise variables
!
! Revision 1.1.1.1 2002/05/02 14:00:47 gotm
......@@ -91,14 +94,14 @@
#include "dynamic_allocations_2d.h"
#endif
z = _ZERO_ ; zu = _ZERO_ ; zv = _ZERO_
U = _ZERO_ ; DU = _ZERO_ ; fU = _ZERO_ ; SlUx = _ZERO_ ; Slru = _ZERO_
V = _ZERO_ ; DV = _ZERO_ ; fV = _ZERO_ ; SlVx = _ZERO_ ; Slrv = _ZERO_
z = _ZERO_; zu = _ZERO_; zv = _ZERO_
U = _ZERO_; DU = _ZERO_; fU = _ZERO_; SlUx = _ZERO_; Slru = _ZERO_
V = _ZERO_; DV = _ZERO_; fV = _ZERO_; SlVx = _ZERO_; Slrv = _ZERO_
Uint = _ZERO_ ; Vint = _ZERO_
UEx = _ZERO_ ; VEx = _ZERO_
ru = _ZERO_ ; rv = _ZERO_
res_du = _ZERO_ ; res_u = _ZERO_ ; res_dv = _ZERO_ ; res_v = _ZERO_
Uint = _ZERO_; Vint = _ZERO_
UEx = _ZERO_; VEx = _ZERO_
ru = _ZERO_; rv = _ZERO_
res_du = _ZERO_; res_u = _ZERO_; res_dv = _ZERO_; res_v = _ZERO_
surfdiv = _ZERO_
#ifdef DEBUG
......
!$Id: exchange_coefficients.F90,v 1.2 2003-03-17 15:04:15 gotm Exp $
!$Id: exchange_coefficients.F90,v 1.3 2003-04-23 12:05:50 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -53,7 +53,10 @@
! Original author(s): Karsten Bolding
!
! $Log: exchange_coefficients.F90,v $
! Revision 1.2 2003-03-17 15:04:15 gotm
! Revision 1.3 2003-04-23 12:05:50 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/03/17 15:04:15 gotm
! Fixed Kondo coefficients - -DWRONG_KONDO can be used
!
! Revision 1.1.1.1 2002/05/02 14:01:38 gotm
......@@ -62,7 +65,6 @@
! Revision 1.1 2001/07/26 14:35:18 bbh
! initial import into CVS
!
!
! !DEFINED PARAMETERS:
REALTYPE, parameter :: a1=6.107799961
REALTYPE, parameter :: a2=4.436518521e-1
......
!$Id: fluxes.F90,v 1.2 2003-03-17 15:04:15 gotm Exp $
!$Id: fluxes.F90,v 1.3 2003-04-23 12:05:50 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -43,7 +43,10 @@
! Original author(s): Karsten Bolding and Hans Burchard
!
! $Log: fluxes.F90,v $
! Revision 1.2 2003-03-17 15:04:15 gotm
! Revision 1.3 2003-04-23 12:05:50 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/03/17 15:04:15 gotm
! Fixed Kondo coefficients - -DWRONG_KONDO can be used
!
! Revision 1.1.1.1 2002/05/02 14:01:39 gotm
......
!$Id: meteo.F90,v 1.4 2003-04-07 15:15:16 kbk Exp $
!$Id: meteo.F90,v 1.5 2003-04-23 12:05:50 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -55,11 +55,13 @@
!
! !PUBLIC DATA MEMBERS:
character(LEN = PATH_MAX), public :: meteo_file
logical, public :: metforcing=.false.,on_grid=.true.,calc_met=.false.
logical, public :: metforcing=.false.
logical, public :: on_grid=.true.
logical, public :: calc_met=.false.
integer, public :: method
REALTYPE, public :: w,L,rho_air,qs,qa,ea
REALTYPE, public, dimension(:,:), allocatable :: airp,tausx,tausy,swr,shf
REALTYPE, public, dimension(:,:), allocatable :: u10,v10,t2,hum,cc
REALTYPE, public :: w,L,rho_air,qs,qa,ea
#ifdef WRONG_KONDO
REALTYPE, public :: cd_mom,cd_heat
#else
......@@ -69,13 +71,19 @@
logical, public :: new_meteo=.false.
!
! !DEFINED PARAMETERS:
REALTYPE,public,parameter :: cpa=1008.,KELVIN=273.15,emiss=0.97,bolz=5.67e-8
REALTYPE,public,parameter :: cpa=1008.
REALTYPE,public,parameter :: KELVIN=273.15
REALTYPE,public,parameter :: emiss=0.97
REALTYPE,public,parameter :: bolz=5.67e-8
!
! !REVISION HISTORY:
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: meteo.F90,v $
! Revision 1.4 2003-04-07 15:15:16 kbk
! Revision 1.5 2003-04-23 12:05:50 kbk
! cleaned code + TABS to spaces
!
! Revision 1.4 2003/04/07 15:15:16 kbk
! merged stable and devel
!
! Revision 1.3 2003/03/17 15:04:14 gotm
......
!$Id: short_wave_radiation.F90,v 1.1 2002-05-02 14:01:39 gotm Exp $
!$Id: short_wave_radiation.F90,v 1.2 2003-04-23 12:05:50 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -35,13 +35,15 @@
! Original author(s): Karsten Bolding and Hans Burchard
!
! $Log: short_wave_radiation.F90,v $
! Revision 1.1 2002-05-02 14:01:39 gotm
! Initial revision
! Revision 1.2 2003-04-23 12:05:50 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:39 gotm
! recovering after CVS crash
!
! Revision 1.1 2001/07/26 14:35:18 bbh
! initial import into CVS
!
!
! !DEFINED PARAMETERS:
REALTYPE, parameter :: pi=3.1415926535897932384626433832795029
REALTYPE, parameter :: deg2rad=pi/180.,rad2deg=180./pi
......@@ -73,7 +75,6 @@
! !TO DO:
!
! !BUGS:
! yrdays should be set depending on leap year or not.
!
!EOP
!-----------------------------------------------------------------------
......
!$Id: ascii_out.F90,v 1.1 2002-05-02 14:01:52 gotm Exp $
!$Id: ascii_out.F90,v 1.2 2003-04-23 12:07:12 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -29,13 +29,15 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: ascii_out.F90,v $
! Revision 1.1 2002-05-02 14:01:52 gotm
! Initial revision
! Revision 1.2 2003-04-23 12:07:12 kbk
! cleaned code + TABS to spaces
!
! Revision 1.1.1.1 2002/05/02 14:01:52 gotm
! recovering after CVS crash
!
! Revision 1.1 2001/09/13 14:50:34 bbh
! Stubs for ascii output
!
!
!EOP
!-----------------------------------------------------------------------
......
......@@ -43,7 +43,10 @@
! Original author(s): Hans Burchard & Karsten Bolding
!
! $Log: diagnose.F90,v $
! Revision 1.2 2003-04-07 12:32:58 kbk
! Revision 1.3 2003-04-23 12:07:12 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 12:32:58 kbk
! parallel support + NO_3D, NO_BAROCLINIC
!
! Revision 1.1.1.1 2002/05/02 14:01:52 gotm
......@@ -60,27 +63,27 @@
integer, parameter :: MaxGauges=10
integer :: gauges=0
integer :: i,j,k,l
integer :: ii(MaxGauges),jj(MaxGauges)
REALTYPE :: zz,u1,v1,min_depth,uup,udn,vup,vdn,velup,veldn
REALTYPE :: DMIN,DMAX
integer:: ii(MaxGauges),jj(MaxGauges)
REALTYPE:: zz,u1,v1,min_depth,uup,udn,vup,vdn,velup,veldn
REALTYPE:: DMIN,DMAX
integer :: DMINI,DMINJ,DMAXI,DMAXJ
REALTYPE :: UMIN,UMAX
REALTYPE:: UMIN,UMAX
integer :: UMINI,UMINJ,UMAXI,UMAXJ
REALTYPE :: DUMIN,DUMAX
REALTYPE:: DUMIN,DUMAX
integer :: DUMINI,DUMINJ,DUMAXI,DUMAXJ
REALTYPE :: VMIN,VMAX
REALTYPE:: VMIN,VMAX
integer :: VMINI,VMINJ,VMAXI,VMAXJ
REALTYPE :: DVMIN,DVMAX
REALTYPE:: DVMIN,DVMAX
integer :: DVMINI,DVMINJ,DVMAXI,DVMAXJ
REALTYPE :: pi=3.141592654
REALTYPE :: Flux1,Flux2,Flux3
REALTYPE:: pi=3.141592654
REALTYPE:: Flux1,Flux2,Flux3
#ifdef NOMADS_TEST
REALTYPE :: MKE,APE,densi,zzz,zs,salmin,salmax,area
REALTYPE:: MKE,APE,densi,zzz,zs,salmin,salmax,area
INTEGER :: salimax,saljmax
#endif
#ifdef CONSTANCE_TEST
REALTYPE :: ZET,MKE,APE,POT,POTX,APE0,densi,zs,Tint,ccc,N0,b0,WIND=0.
LOGICAL,save :: FIRST=.true.
REALTYPE:: ZET,MKE,APE,POT,POTX,APE0,densi,zs,Tint,ccc,N0,b0,WIND=0.
LOGICAL,save:: FIRST=.true.
INTEGER :: out,count
integer :: rc
REALTYPE,save,dimension(:,:,:), allocatable:: dens0
......