*IF DEF,C80_1A,OR,DEF,RECON,OR,DEF,MAKEBC UIE3F404.8
*IF -DEF,SCMA AJC0F405.272
C ******************************COPYRIGHT****************************** GTS2F400.2665
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.2666
C GTS2F400.2667
C Use, duplication or disclosure of this code is subject to the GTS2F400.2668
C restrictions as set forth in the contract. GTS2F400.2669
C GTS2F400.2670
C Meteorological Office GTS2F400.2671
C London Road GTS2F400.2672
C BRACKNELL GTS2F400.2673
C Berkshire UK GTS2F400.2674
C RG12 2SZ GTS2F400.2675
C GTS2F400.2676
C If no contract has been raised with this copy of the code, the use, GTS2F400.2677
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.2678
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.2679
C Modelling at the above address. GTS2F400.2680
C ******************************COPYRIGHT****************************** GTS2F400.2681
C GTS2F400.2682
CLL SUBROUTINE EXPAND32B-------------------------------------- EXP32B1A.3
CLL EXP32B1A.4
CLL Purpose: Expands from 32 to 64 bit for dump reading routines. EXP32B1A.5
CLL EXP32B1A.6
CLL MC <- programmer of some or all of previous code or changes EXP32B1A.7
CLL EXP32B1A.8
CLL Model Modification history from model version 3.0: EXP32B1A.9
CLL version Date EXP32B1A.10
CLL 3.3 08/04/94 Added to avoid problems in readdump. M.Carter EXP32B1A.11
CLL 4.5 28/10/98 Introduce Single Column Model. J-C Thil. AJC0F405.273
CLL EXP32B1A.12
CLL Programming standard: Unified Model Documentation Paper No 3 EXP32B1A.13
CLL Version No 1 15/1/90 EXP32B1A.14
CLL EXP32B1A.15
CLL Logical component: R30 EXP32B1A.16
CLL EXP32B1A.17
CLL System task: F3 EXP32B1A.18
CLL EXP32B1A.19
CLL Documentation: Unified Model Documentation Paper No F3 EXP32B1A.20
CLL Version No 5 9/2/90 EXP32B1A.21
CLLEND--------------------------------------------------------- EXP32B1A.22
C EXP32B1A.23
C*L Arguments:------------------------------------------------- EXP32B1A.24
SUBROUTINE EXPAND32B(LENGTH, ARRAY, VERSION) 5,2EXP32B1A.25
EXP32B1A.26
IMPLICIT NONE EXP32B1A.27
EXP32B1A.28
INTEGER EXP32B1A.29
* LENGTH, !IN length of the field to be expanded EXP32B1A.30
* VERSION !IN model version EXP32B1A.31
EXP32B1A.32
REAL EXP32B1A.33
* ARRAY(LENGTH) !IN/OUT array to be expanded in place EXP32B1A.34
EXP32B1A.35
C ------------------------------------------------------------- EXP32B1A.36
C Local variables: -------------------------------------------- EXP32B1A.37
REAL HOLD(LENGTH) ! space for expanded array EXP32B1A.38
INTEGER I ! Loop index EXP32B1A.39
C ------------------------------------------------------------- EXP32B1A.40
C*L External subroutines called:------------------------------- EXP32B1A.41
EXTERNAL EXPAND21,P21BITS EXP32B1A.42
INTEGER P21BITS EXP32B1A.43
EXP32B1A.44
EXP32B1A.45
CALL EXPAND21
(LENGTH,ARRAY,HOLD, EXP32B1A.46
& P21BITS(VERSION) ) EXP32B1A.47
DO I=1,LENGTH EXP32B1A.48
ARRAY(I)=HOLD(I) EXP32B1A.49
ENDDO EXP32B1A.50
EXP32B1A.51
RETURN EXP32B1A.52
END EXP32B1A.53
*ENDIF EXP32B1A.54
*ENDIF AJC0F405.274