*IF DEF,OCEAN @DYALLOC.4627
C ******************************COPYRIGHT****************************** GTS2F400.7291
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.7292
C GTS2F400.7293
C Use, duplication or disclosure of this code is subject to the GTS2F400.7294
C restrictions as set forth in the contract. GTS2F400.7295
C GTS2F400.7296
C Meteorological Office GTS2F400.7297
C London Road GTS2F400.7298
C BRACKNELL GTS2F400.7299
C Berkshire UK GTS2F400.7300
C RG12 2SZ GTS2F400.7301
C GTS2F400.7302
C If no contract has been raised with this copy of the code, the use, GTS2F400.7303
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.7304
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.7305
C Modelling at the above address. GTS2F400.7306
C ******************************COPYRIGHT****************************** GTS2F400.7307
C GTS2F400.7308
CLL Subroutine PNTRSWAP------------------------------------------------ PNTRSWAP.2
CLL PNTRSWAP.3
CLL Level 2 control routine PNTRSWAP.4
CLL PNTRSWAP.5
CLL version for CRAY YMP PNTRSWAP.6
CLL written by S. Ineson PNTRSWAP.7
CLL PNTRSWAP.8
CLL code reviewed by : PNTRSWAP.9
CLL PNTRSWAP.10
CLL version number 1. dated 00/00/00 PNTRSWAP.11
CLL programming standard : PNTRSWAP.12
CLL system components covered : PNTRSWAP.13
CLL system task : PNTRSWAP.14
CLL PNTRSWAP.15
CLL PNTRSWAP.16
CLL PNTRSWAP.17
CLL PNTRSWAP.18
CLL Documentation : PNTRSWAP.19
CLL PNTRSWAP.20
CLL PNTRSWAP.21
CLLEND ----------------------------------------------------------------- PNTRSWAP.22
C*L Arguments PNTRSWAP.23
PNTRSWAP.24
SUBROUTINE PNTRSWAP(NT,joc_tracer,joc_u,joc_v) 1PNTRSWAP.25
PNTRSWAP.26
IMPLICIT NONE PNTRSWAP.27
PNTRSWAP.28
INTEGER PNTRSWAP.29
& NT ! total number of tracers PNTRSWAP.30
&, joc_tracer(NT,2) !pointer to tracers at two time levels PNTRSWAP.31
&, joc_u(2) ! pointer to u current at two time levels PNTRSWAP.32
&, joc_v(2) ! pointer to v current at two time levels PNTRSWAP.33
PNTRSWAP.34
C* PNTRSWAP.35
CL Local variables PNTRSWAP.36
PNTRSWAP.37
INTEGER PNTRSWAP.38
& temp PNTRSWAP.39
&,m PNTRSWAP.40
PNTRSWAP.41
CL Swap pointers for tracers,u,v for next timestep PNTRSWAP.42
PNTRSWAP.43
DO m=1,NT PNTRSWAP.44
temp=joc_tracer(m,1) PNTRSWAP.45
joc_tracer(m,1)=joc_tracer(m,2) PNTRSWAP.46
joc_tracer(m,2)=temp PNTRSWAP.47
END DO PNTRSWAP.48
PNTRSWAP.49
temp=joc_u(1) PNTRSWAP.50
joc_u(1)=joc_u(2) PNTRSWAP.51
joc_u(2)=temp PNTRSWAP.52
temp=joc_v(1) PNTRSWAP.53
joc_v(1)=joc_v(2) PNTRSWAP.54
joc_v(2)=temp PNTRSWAP.55
PNTRSWAP.56
RETURN PNTRSWAP.57
END PNTRSWAP.58
*ENDIF @DYALLOC.4628