Commit 8ab6d284 authored by lars's avatar lars
Browse files

documentation + cosmetics

parent 0cc99b14
!$Id: to_2d_u.F90,v 1.1 2005-04-25 09:32:34 kbk Exp $
!$Id: to_2d_u.F90,v 1.2 2006-01-11 14:02:42 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -10,10 +10,11 @@
il,jl,ih,jh,vel)
!
! !DESCRIPTION:
! This routine interpolates the $U$-velocity component from the $U$-points
! to the $T$-points. If the mask for the $T$-points is zero, the positions
! are filled up with "missing values". The result is written in a single-precision
! vector four netCDF output.
! This routine linearly interpolates the vertically integrated velocity
! at $U$-points to the $T$-points, whenever the mask at the $T$-points is different
! from zero. Otherwise, the values are filled with a "missing value", {\tt missing}.
! The result is written to the output argument {\tt vel}, which is single precision
! vector for storage in netCDF.
!
! !USES:
IMPLICIT NONE
......@@ -33,6 +34,9 @@
! Original author(s): Lars Umlauf
!
! $Log: to_2d_u.F90,v $
! Revision 1.2 2006-01-11 14:02:42 lars
! documentation + cosmetics
!
! Revision 1.1 2005-04-25 09:32:34 kbk
! added NetCDF IO rewrite + de-stag of velocities - Umlauf
!
......
!$Id: to_2d_v.F90,v 1.1 2005-04-25 09:32:34 kbk Exp $
!$Id: to_2d_v.F90,v 1.2 2006-01-11 14:02:42 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -10,10 +10,11 @@
il,jl,ih,jh,vel)
!
! !DESCRIPTION:
! This routine interpolates the $V$-velocity component from the $V$-points
! to the $T$-points. If the mask for the $T$-points is zero, the positions
! are filled up with "missing values". The result is written in a single-precision
! vector four netCDF output.
! This routine linearly interpolates the vertically integrated velocity
! at $V$-points to the $T$-points, whenever the mask at the $T$-points is different
! from zero. Otherwise, the values are filled with a "missing value", {\tt missing}.
! The result is written to the output argument {\tt vel}, which is single precision
! vector for storage in netCDF.
!
! !USES:
IMPLICIT NONE
......@@ -33,6 +34,9 @@
! Original author(s): Lars Umlauf
!
! $Log: to_2d_v.F90,v $
! Revision 1.2 2006-01-11 14:02:42 lars
! documentation + cosmetics
!
! Revision 1.1 2005-04-25 09:32:34 kbk
! added NetCDF IO rewrite + de-stag of velocities - Umlauf
!
......
!$Id: to_2d_vel.F90,v 1.3 2003-05-09 11:38:26 kbk Exp $
!$Id: to_2d_vel.F90,v 1.4 2006-01-11 14:07:02 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -10,6 +10,10 @@
il,jl,ih,jh,vel)
!
! !DESCRIPTION:
! This routine linearly interpolates the velocity at $u$-points to the $T$-points,
! whenever the mask at the $T$-points is different from zero. Otherwise, the values
! are filled with the "missing value", {\tt missing}. The result is save in the
! output argument {\tt vel}, which is single precision vector for storage in netCDF.
!
! !USES:
IMPLICIT NONE
......@@ -31,6 +35,9 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: to_2d_vel.F90,v $
! Revision 1.4 2006-01-11 14:07:02 lars
! documentation + cosmetics
!
! Revision 1.3 2003-05-09 11:38:26 kbk
! added proper undef support - based on Adolf Stips patch
!
......
!$Id: to_3d_vel.F90,v 1.3 2003-05-09 11:38:26 kbk Exp $
!$Id: to_3d_vel.F90,v 1.4 2006-01-11 14:02:42 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -6,8 +6,8 @@
! !ROUTINE: to_3d_vel() - calculates 3D-velocities and store in real*4.
!
! !INTERFACE:
subroutine to_3d_vel(imin,jmin,imax,jmax,mask, &
iimin,jjmin,iimax,jjmax,kmax, &
subroutine to_3d_vel(imin,jmin,imax,jmax,mask, &
iimin,jjmin,iimax,jjmax,kmax, &
kmin,h,trans,missing,vel)
IMPLICIT NONE
!
......@@ -33,6 +33,9 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: to_3d_vel.F90,v $
! Revision 1.4 2006-01-11 14:02:42 lars
! documentation + cosmetics
!
! Revision 1.3 2003-05-09 11:38:26 kbk
! added proper undef support - based on Adolf Stips patch
!
......
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