*IF DEF,C80_1A,OR,DEF,PPTOANC UIE3F404.25
C ******************************COPYRIGHT****************************** GTS2F400.4735
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.4736
C GTS2F400.4737
C Use, duplication or disclosure of this code is subject to the GTS2F400.4738
C restrictions as set forth in the contract. GTS2F400.4739
C GTS2F400.4740
C Meteorological Office GTS2F400.4741
C London Road GTS2F400.4742
C BRACKNELL GTS2F400.4743
C Berkshire UK GTS2F400.4744
C RG12 2SZ GTS2F400.4745
C GTS2F400.4746
C If no contract has been raised with this copy of the code, the use, GTS2F400.4747
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.4748
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.4749
C Modelling at the above address. GTS2F400.4750
C ******************************COPYRIGHT****************************** GTS2F400.4751
C GTS2F400.4752
CLL SUBROUTINE INIT_FLH -------------------------------------- INITFH1A.3
CLL INITFH1A.4
CLL Written by D. Robinson INITFH1A.5
CLL INITFH1A.6
CLL Model Date Modification history INITFH1A.7
CLL version INITFH1A.8
CLL 3.4 08/09/94 New routine. INITFH1A.9
CLL INITFH1A.10
CLL Programming standard: Unified Model Documentation Paper No 3 INITFH1A.11
CLL Version No 4 5/2/92 INITFH1A.12
CLL INITFH1A.13
CLL System component: R30 INITFH1A.14
CLL INITFH1A.15
CLL System task: F3 INITFH1A.16
CLL INITFH1A.17
CLL Purpose: INITFH1A.18
CLL Initialises the fixed length header to IMDI except INITFH1A.19
CLL for all array dimensions which are set to 1. INITFH1A.20
CLL INITFH1A.21
CLL Documentation: INITFH1A.22
CLL Unified Model Documentation Paper No F3 INITFH1A.23
CLL Version No 5 9/2/90 INITFH1A.24
CLL INITFH1A.25
CLL------------------------------------------------------------ INITFH1A.26
C*L Arguments:------------------------------------------------- INITFH1A.27
SUBROUTINE INIT_FLH (FIXHD,LEN_FIXHD) 1INITFH1A.28
INITFH1A.29
IMPLICIT NONE INITFH1A.30
INITFH1A.31
INTEGER INITFH1A.32
& LEN_FIXHD ! IN Length of fixed length header INITFH1A.33
&,FIXHD(LEN_FIXHD) ! INOUT Fixed length header INITFH1A.34
INITFH1A.35
C Local arrays:------------------------------------------------ INITFH1A.36
C None INITFH1A.37
C ------------------------------------------------------------- INITFH1A.38
*CALL C_MDI 
INITFH1A.39
C External subroutines called:--------------------------------- INITFH1A.40
C None INITFH1A.41
C Local variables:--------------------------------------------- INITFH1A.42
INTEGER J INITFH1A.43
C ------------------------------------------------------------- INITFH1A.44
INITFH1A.45
INITFH1A.46
! 1.0 Initialise to IMDI INITFH1A.47
DO J = 1,LEN_FIXHD INITFH1A.48
FIXHD(J) = IMDI INITFH1A.49
ENDDO INITFH1A.50
INITFH1A.51
! 2.0 Set all array dimensions to 1 INITFH1A.52
FIXHD(101) = 1 ! Integer Constants INITFH1A.53
FIXHD(106) = 1 ! Real Constants INITFH1A.54
FIXHD(111) = 1 ! 1st dim - Level dependent constants INITFH1A.55
FIXHD(112) = 1 ! 2nd dim - Level dependent constants INITFH1A.56
FIXHD(116) = 1 ! 1st dim - Row dependent constants INITFH1A.57
FIXHD(117) = 1 ! 2nd dim - Row dependent constants INITFH1A.58
FIXHD(121) = 1 ! 1st dim - Column dependent constants INITFH1A.59
FIXHD(122) = 1 ! 2nd dim - Column dependent constants INITFH1A.60
FIXHD(126) = 1 ! 1st dim - Field of constants INITFH1A.61
FIXHD(127) = 1 ! 2nd dim - Field of constants INITFH1A.62
FIXHD(131) = 1 ! Extra constants INITFH1A.63
FIXHD(136) = 1 ! Temp History file INITFH1A.64
FIXHD(141) = 1 ! Compressed field Index 1 INITFH1A.65
FIXHD(143) = 1 ! Compressed field Index 2 INITFH1A.66
FIXHD(145) = 1 ! Compressed field Index 3 INITFH1A.67
FIXHD(151) = 1 ! 1st dim - Lookup Table INITFH1A.68
FIXHD(152) = 1 ! 2nd dim - Lookup Table INITFH1A.69
FIXHD(161) = 1 ! Data INITFH1A.70
INITFH1A.71
RETURN INITFH1A.72
END INITFH1A.73
*ENDIF INITFH1A.74