*IF DEF,CONTROL,AND,DEF,ATMOS SETRUNI1.2
C ******************************COPYRIGHT****************************** GTS2F400.8695
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.8696
C GTS2F400.8697
C Use, duplication or disclosure of this code is subject to the GTS2F400.8698
C restrictions as set forth in the contract. GTS2F400.8699
C GTS2F400.8700
C Meteorological Office GTS2F400.8701
C London Road GTS2F400.8702
C BRACKNELL GTS2F400.8703
C Berkshire UK GTS2F400.8704
C RG12 2SZ GTS2F400.8705
C GTS2F400.8706
C If no contract has been raised with this copy of the code, the use, GTS2F400.8707
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.8708
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.8709
C Modelling at the above address. GTS2F400.8710
C ******************************COPYRIGHT****************************** GTS2F400.8711
C GTS2F400.8712
CLL Subroutine: SET_RUN_INDIC_OP----------------------------------- SETRUNI1.3
CLL SETRUNI1.4
CLL Purpose: Interface routine required to set RUN_INDIC_OP in dump SETRUNI1.5
CLL header. Called by INITIAL. SETRUNI1.6
CLL SETRUNI1.7
CLL Tested under compiler: cft77 SETRUNI1.8
CLL Tested under OS version: UNICOS 6.1.5A SETRUNI1.9
CLL SETRUNI1.10
CLL Model Modification history: SETRUNI1.11
CLL version date SETRUNI1.12
CLL 3.2 27/03/93 New routine required by dynamic allocation SETRUNI1.13
CLL to interface with dump header array. SETRUNI1.14
CLL SETRUNI1.15
CLL Programming standard: UM Doc Paper 3, version 2 (7/9/90) SETRUNI1.16
CLL SETRUNI1.17
CLL Logical components covered: C0 SETRUNI1.18
CLL SETRUNI1.19
CLL Project task: C0 SETRUNI1.20
CLL SETRUNI1.21
CLL External documentation: On-line UM document C1 - The top-level SETRUNI1.22
CLL dynamic allocation SETRUNI1.23
CLL SETRUNI1.24
CLL ------------------------------------------------------------------- SETRUNI1.25
C*L Interface and arguments: ------------------------------------------ SETRUNI1.26
C SETRUNI1.27
SUBROUTINE SET_RUN_INDIC_OP( 1SETRUNI1.28
*CALL ARGSIZE 
SETRUNI1.29
*CALL ARGDUMA SETRUNI1.30
& ICODE,CMESSAGE) SETRUNI1.31
C SETRUNI1.32
C*---------------------------------------------------------------------- SETRUNI1.33
IMPLICIT NONE SETRUNI1.34
C SETRUNI1.35
C Subroutines called: none SETRUNI1.36
C SETRUNI1.37
C Arguments SETRUNI1.38
C SETRUNI1.39
C Configuration-dependent sizes and arrays SETRUNI1.40
C SETRUNI1.41
*CALL TYPSIZE SETRUNI1.42
*CALL TYPDUMA SETRUNI1.43
C SETRUNI1.44
*CALL CHSUNITS SETRUNI1.45
*CALL IHISTO GDR3F305.182
C SETRUNI1.47
INTEGER ICODE ! Work - Internal return code SETRUNI1.48
CHARACTER*256 CMESSAGE ! Work - Internal error message SETRUNI1.49
C SETRUNI1.50
C Local variables: none SETRUNI1.51
C SETRUNI1.52
A_FIXHD(6) = RUN_INDIC_OP SETRUNI1.53
C SETRUNI1.54
RETURN SETRUNI1.55
END SETRUNI1.56
*ENDIF SETRUNI1.57