*IF DEF,C80_1A,OR,DEF,PPTOANC,OR,DEF,MAKEBC UIE3F404.11
C ******************************COPYRIGHT****************************** GTS2F400.3313
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.3314
C GTS2F400.3315
C Use, duplication or disclosure of this code is subject to the GTS2F400.3316
C restrictions as set forth in the contract. GTS2F400.3317
C GTS2F400.3318
C Meteorological Office GTS2F400.3319
C London Road GTS2F400.3320
C BRACKNELL GTS2F400.3321
C Berkshire UK GTS2F400.3322
C RG12 2SZ GTS2F400.3323
C GTS2F400.3324
C If no contract has been raised with this copy of the code, the use, GTS2F400.3325
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.3326
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.3327
C Modelling at the above address. GTS2F400.3328
C ******************************COPYRIGHT****************************** GTS2F400.3329
C GTS2F400.3330
CLL Subroutine GET_DIM GETDIM1A.3
CLL GETDIM1A.4
CLL Written by D Robinson 28/7/92 GETDIM1A.5
CLL GETDIM1A.6
CLL Model Modification history from model version 3.0: GETDIM1A.7
CLL version date GETDIM1A.8
CLL GETDIM1A.9
CLL Programming Standard : UM Doc Paper No 4 ; Version 3 ; 7/9/90 GETDIM1A.10
CLL GETDIM1A.11
CLL Project Task : P3 GETDIM1A.12
CLL GETDIM1A.13
CLL Purpose : Get dimensions of data set components GETDIM1A.14
CLL from fixed length header. GETDIM1A.15
CLL GETDIM1A.16
CLLEND------------------------------------------------------------------ GETDIM1A.17
SUBROUTINE GET_DIM (FIXHD,LEN_FIXHD, 3GETDIM1A.18
+ LEN_INTHD,LEN_REALHD, GETDIM1A.19
+ LEN1_LEVDEPC,LEN2_LEVDEPC, GETDIM1A.20
+ LEN1_ROWDEPC,LEN2_ROWDEPC, GETDIM1A.21
+ LEN1_COLDEPC,LEN2_COLDEPC, GETDIM1A.22
+ LEN1_FLDDEPC,LEN2_FLDDEPC, GETDIM1A.23
+ LEN_EXTCNST,LEN_DUMPHIST, GETDIM1A.24
+ LEN_CFI1,LEN_CFI2,LEN_CFI3, GETDIM1A.25
+ LEN1_LOOKUP,LEN2_LOOKUP, GETDIM1A.26
+ LEN_DATA) GETDIM1A.27
GETDIM1A.28
CL---------------------------------------------------------------------- GETDIM1A.29
IMPLICIT NONE GETDIM1A.30
GETDIM1A.31
INTEGER ! Dimension of :- GETDIM1A.32
+ LEN_FIXHD ! Fixed length header GETDIM1A.33
+ ,LEN_INTHD ! Integer header GETDIM1A.34
+ ,LEN_REALHD ! Real header GETDIM1A.35
+ ,LEN1_LEVDEPC ! Level dependent constants (1st) GETDIM1A.36
+ ,LEN2_LEVDEPC ! Level dependent constants (2nd) GETDIM1A.37
+ ,LEN1_ROWDEPC ! Rows dependent constants (1st) GETDIM1A.38
+ ,LEN2_ROWDEPC ! Rows dependent constants (2nd) GETDIM1A.39
+ ,LEN1_COLDEPC ! Col dependent constants (1st) GETDIM1A.40
+ ,LEN2_COLDEPC ! Col dependent constants (2nd) GETDIM1A.41
+ ,LEN1_FLDDEPC ! Field dependent constants (1st) GETDIM1A.42
+ ,LEN2_FLDDEPC ! Field dependent constants (2nd) GETDIM1A.43
+ ,LEN_EXTCNST ! Extra constants GETDIM1A.44
+ ,LEN_DUMPHIST ! Dump history GETDIM1A.45
+ ,LEN_CFI1 ! Compressed field index 1 GETDIM1A.46
+ ,LEN_CFI2 ! Compressed field index 2 GETDIM1A.47
+ ,LEN_CFI3 ! Compressed field index 3 GETDIM1A.48
+ ,LEN1_LOOKUP ! Look up table (1st) GETDIM1A.49
+ ,LEN2_LOOKUP ! Look up table (2nd) GETDIM1A.50
+ ,LEN_DATA ! Data section GETDIM1A.51
GETDIM1A.52
INTEGER FIXHD(LEN_FIXHD) ! IN Fixed length header GETDIM1A.53
GETDIM1A.54
LEN_INTHD = FIXHD(101) GETDIM1A.55
LEN_REALHD = FIXHD(106) GETDIM1A.56
LEN1_LEVDEPC = FIXHD(111) GETDIM1A.57
LEN2_LEVDEPC = FIXHD(112) GETDIM1A.58
LEN1_ROWDEPC = FIXHD(116) GETDIM1A.59
LEN2_ROWDEPC = FIXHD(117) GETDIM1A.60
LEN1_COLDEPC = FIXHD(121) GETDIM1A.61
LEN2_COLDEPC = FIXHD(122) GETDIM1A.62
LEN1_FLDDEPC = FIXHD(126) GETDIM1A.63
LEN2_FLDDEPC = FIXHD(127) GETDIM1A.64
LEN_EXTCNST = FIXHD(131) GETDIM1A.65
LEN_DUMPHIST = FIXHD(136) GETDIM1A.66
LEN_CFI1 = FIXHD(141) GETDIM1A.67
LEN_CFI2 = FIXHD(143) GETDIM1A.68
LEN_CFI3 = FIXHD(145) GETDIM1A.69
LEN1_LOOKUP = FIXHD(151) GETDIM1A.70
LEN2_LOOKUP = FIXHD(152) GETDIM1A.71
LEN_DATA = FIXHD(161) GETDIM1A.72
GETDIM1A.73
RETURN GETDIM1A.74
END GETDIM1A.75
*ENDIF GETDIM1A.76