*IF DEF,C80_1A PRRHDA1A.2
C ******************************COPYRIGHT****************************** GTS2F400.7705
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.7706
C GTS2F400.7707
C Use, duplication or disclosure of this code is subject to the GTS2F400.7708
C restrictions as set forth in the contract. GTS2F400.7709
C GTS2F400.7710
C Meteorological Office GTS2F400.7711
C London Road GTS2F400.7712
C BRACKNELL GTS2F400.7713
C Berkshire UK GTS2F400.7714
C RG12 2SZ GTS2F400.7715
C GTS2F400.7716
C If no contract has been raised with this copy of the code, the use, GTS2F400.7717
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.7718
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.7719
C Modelling at the above address. GTS2F400.7720
C ******************************COPYRIGHT****************************** GTS2F400.7721
C GTS2F400.7722
CLL SUBROUTINE PR_REHDA--------------------------------------- PRRHDA1A.3
CLL PRRHDA1A.4
CLL Purpose: Prints out real constants record and checks PRRHDA1A.5
CLL validity of information. PRRHDA1A.6
CLL PRRHDA1A.7
CLL Written by A. Dickinson 28/12/89 PRRHDA1A.8
CLL PRRHDA1A.9
CLL Model Modification history from model version 3.0: PRRHDA1A.10
CLL version date PRRHDA1A.11
CLL PRRHDA1A.12
CLL Programming standard: Unified Model Documentation Paper No 3 PRRHDA1A.13
CLL Version No 1 15/1/90 PRRHDA1A.14
CLL PRRHDA1A.15
CLL System component: C25 PRRHDA1A.16
CLL PRRHDA1A.17
CLL System task: F3 PRRHDA1A.18
CLL PRRHDA1A.19
CLL Documentation: Unified Model Documentation Paper No F3 PRRHDA1A.20
CLL Version No 5 9/2/90 PRRHDA1A.21
CLL PRRHDA1A.22
CLL------------------------------------------------------------ PRRHDA1A.23
C*L Arguments:------------------------------------------------- PRRHDA1A.24
SUBROUTINE PR_REHDA(REALHD,LEN_REALHD) 1PRRHDA1A.25
PRRHDA1A.26
IMPLICIT NONE PRRHDA1A.27
PRRHDA1A.28
INTEGER PRRHDA1A.29
* LEN_REALHD !IN Length of real header PRRHDA1A.30
PRRHDA1A.31
REAL PRRHDA1A.32
* REALHD(LEN_REALHD) !IN Real header PRRHDA1A.33
PRRHDA1A.34
C ------------------------------------------------------------- PRRHDA1A.35
C Workspace usage:--------------------------------------------- PRRHDA1A.36
C None PRRHDA1A.37
C ------------------------------------------------------------- PRRHDA1A.38
C*L External subroutines called:------------------------------- PRRHDA1A.39
C None PRRHDA1A.40
C*------------------------------------------------------------- PRRHDA1A.41
C Local variables:--------------------------------------------- PRRHDA1A.42
INTEGER I PRRHDA1A.43
C-------------------------------------------------------------- PRRHDA1A.44
PRRHDA1A.45
CL Internal structure: None PRRHDA1A.46
PRRHDA1A.47
WRITE(6,'('' '')') PRRHDA1A.48
WRITE(6,'('' REAL CONSTANTS'')') PRRHDA1A.49
WRITE(6,'('' --------------'')') PRRHDA1A.50
WRITE(6,'('' E-W grid spacing in degrees -'',e12.4)') PRRHDA1A.51
*REALHD(1) PRRHDA1A.52
WRITE(6,'('' N-S grid spacing in degress -'',e12.4)') PRRHDA1A.53
*REALHD(2) PRRHDA1A.54
WRITE(6,'('' Latitude of first row in degrees -'',e12.4)') PRRHDA1A.55
*REALHD(3) PRRHDA1A.56
WRITE(6,'('' Longitude of first point in a row in degrees -'', PRRHDA1A.57
*e12.4)')REALHD(4) PRRHDA1A.58
WRITE(6,'('' Real latitude of pseudo North Pole in degrees - '', PRRHDA1A.59
*e12.4)')REALHD(5) PRRHDA1A.60
WRITE(6,'('' Real longitude of pseudo North Pole in degrees - '', PRRHDA1A.61
*e12.4)')REALHD(6) PRRHDA1A.62
WRITE(6,'('' Grid orientation in degrees - '', PRRHDA1A.63
*e12.4)')REALHD(7) PRRHDA1A.64
WRITE(6,'(8X,'' Year Day Hour PRRHDA1A.65
*Minute Second'')') PRRHDA1A.66
WRITE(6,'('' Atmosphere time = '', PRRHDA1A.67
*5F12.4)')(REALHD(I),I=8,12) PRRHDA1A.68
PRRHDA1A.69
WRITE(6,'('' Mass, energy, energy drift = '',3e12.4)') PRRHDA1A.70
*REALHD(19),REALHD(20),REALHD(21) PRRHDA1A.71
PRRHDA1A.72
RETURN PRRHDA1A.73
END PRRHDA1A.74
*ENDIF PRRHDA1A.75