Changeset 8a65cb0 in flexpart.git for src/interpol_wind_short.f90

Timestamp:

Mar 2, 2015, 3:11:55 PM (9 years ago)

Author:

Espen Sollum ATMOS <espen@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

1d207bb

Parents:

60403cd

Message:

Added code, makefile for dev branch

File:

• src/interpol_wind_short.f90 (modified) (2 diffs)

src/interpol_wind_short.f90

@@ -21 +21 @@
 
 subroutine interpol_wind_short(itime,xt,yt,zt)
-  !                                 i   i  i  i
-  !*****************************************************************************
-  !                                                                            *
-  !  This subroutine interpolates the wind data to current trajectory position.*
-  !                                                                            *
-  !    Author: A. Stohl                                                        *
-  !                                                                            *
-  !    16 December 1997                                                        *
-  !                                                                            *
-  !  Revision March 2005 by AST : all output variables in common block         *
-  !                                                                            *
-  !*****************************************************************************
-  !                                                                            *
-  ! Variables:                                                                 *
-  ! u,v,w              wind components                                         *
-  ! itime [s]          current temporal position                               *
-  ! memtime(3) [s]     times of the wind fields in memory                      *
-  ! xt,yt,zt           coordinates position for which wind data shall be       *
-  !                    calculated                                              *
-  !                                                                            *
-  ! Constants:                                                                 *
-  !                                                                            *
-  !*****************************************************************************
+!                                 i   i  i  i
+!*****************************************************************************
+!                                                                            *
+!  This subroutine interpolates the wind data to current trajectory position.*
+!                                                                            *
+!    Author: A. Stohl                                                        *
+!                                                                            *
+!    16 December 1997                                                        *
+!                                                                            *
+!  Revision March 2005 by AST : all output variables in common block         *
+!                                                                            *
+!*****************************************************************************
+!                                                                            *
+! Variables:                                                                 *
+! u,v,w              wind components                                         *
+! itime [s]          current temporal position                               *
+! memtime(3) [s]     times of the wind fields in memory                      *
+! xt,yt,zt           coordinates position for which wind data shall be       *
+!                    calculated                                              *
+!                                                                            *
+! Constants:                                                                 *
+!                                                                            *
+!*****************************************************************************
 
   use par_mod
@@ -51 +51 @@
   implicit none
 
-  integer :: itime
-  real :: xt,yt,zt
+  integer, intent(in) :: itime
+  real, intent(in) :: xt,yt,zt
 
   ! Auxiliary variables needed for interpolation