*IF DEF,C70_1A GLW1F404.49
C ******************************COPYRIGHT****************************** GTS2F400.8155
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.8156
C GTS2F400.8157
C Use, duplication or disclosure of this code is subject to the GTS2F400.8158
C restrictions as set forth in the contract. GTS2F400.8159
C GTS2F400.8160
C Meteorological Office GTS2F400.8161
C London Road GTS2F400.8162
C BRACKNELL GTS2F400.8163
C Berkshire UK GTS2F400.8164
C RG12 2SZ GTS2F400.8165
C GTS2F400.8166
C If no contract has been raised with this copy of the code, the use, GTS2F400.8167
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.8168
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.8169
C Modelling at the above address. GTS2F400.8170
C ******************************COPYRIGHT****************************** GTS2F400.8171
C GTS2F400.8172
Subroutine READWRITD(UNIT,ICODE,CMESSAGE) 1GRB1F305.512
IMPLICIT NONE READWRIT.4
! READWRIT.5
! Purpose: Reads information for time-step control of WRITD1 from READWRIT.6
! NAMLST file READWRIT.7
! READWRIT.8
! Current code owner: S.J.Swarbrick READWRIT.9
! READWRIT.10
! Model Modification history: READWRIT.11
! version Date READWRIT.12
! ------- ---- -------------------- READWRIT.13
! 3.4 28/07/94 Original code - S.J.Swarbrick READWRIT.14
! 3.5 08/06/95 Add UNIT - moved from INITIAL to READCNTL. RTHBarnes GRB1F305.513
! 4.1 31/05/96 Add L_WRIT_WAVSTEP for wave sub-model. RTHBarnes. WRB1F401.733
! READWRIT.15
! Code description: READWRIT.16
! FORTRAN 77 + common FORTRAN 90 extensions. Written to UM READWRIT.17
! programming standards vn. 7. READWRIT.18
! READWRIT.19
! READWRIT.20
*CALL C_WRITD 
READWRIT.21
! READWRIT.22
CHARACTER*80 CMESSAGE ! Error return message READWRIT.23
! READWRIT.24
INTEGER ICODE ! Indicator for normal or error return READWRIT.25
INTEGER UNIT ! Namelist input unit no. GRB1F305.514
! READWRIT.26
! -------------------------------------------------------------------- READWRIT.27
! READWRIT.28
NAMELIST/WRITD1/L_WRIT_ATMSTEP,L_WRIT_DYN ,L_WRIT_INIT , READWRIT.29
& L_WRIT_OCNSTEP,L_WRIT_WAVSTEP,L_WRIT_PHY , WRB1F401.734
& T_WRITD1_START,T_WRITD1_END ,T_WRITD1_INT WRB1F401.735
! READWRIT.32
! Read control variables for WRITD1 READWRIT.33
! READWRIT.34
READ(UNIT,WRITD1,ERR=99) GRB1F305.515
! READWRIT.37
! Normal return READWRIT.38
! READWRIT.39
ICODE=0 READWRIT.40
RETURN READWRIT.41
! READWRIT.42
! Error return READWRIT.43
! READWRIT.44
99 ICODE=1 READWRIT.45
CMESSAGE='READWRITD: error reading namelist WRITD1' GSS1F305.944
RETURN READWRIT.46
END READWRIT.47
*ENDIF READWRIT.48