*IF DEF,CONTROL,AND,DEF,ATMOS INITCNV1.2
C ******************************COPYRIGHT****************************** GTS2F400.4663
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.4664
C GTS2F400.4665
C Use, duplication or disclosure of this code is subject to the GTS2F400.4666
C restrictions as set forth in the contract. GTS2F400.4667
C GTS2F400.4668
C Meteorological Office GTS2F400.4669
C London Road GTS2F400.4670
C BRACKNELL GTS2F400.4671
C Berkshire UK GTS2F400.4672
C RG12 2SZ GTS2F400.4673
C GTS2F400.4674
C If no contract has been raised with this copy of the code, the use, GTS2F400.4675
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.4676
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.4677
C Modelling at the above address. GTS2F400.4678
C ******************************COPYRIGHT****************************** GTS2F400.4679
C GTS2F400.4680
!+ Ensure conv.cloud cover & liquid water path zero if no conv.cloud. INITCNV1.3
! INITCNV1.4
! Subroutine Interface: INITCNV1.5
SUBROUTINE INIT_CNV( 1INITCNV1.6
*CALL ARGSIZE 
INITCNV1.7
*CALL ARGD1 INITCNV1.8
*CALL ARGPTRA INITCNV1.9
& ICODE,CMESSAGE) INITCNV1.10
INITCNV1.11
IMPLICIT NONE INITCNV1.12
! INITCNV1.13
! Description: INITCNV1.14
! Sets conv.cloud cover and liquid water path to zero at timestep 0 INITCNV1.15
! if conv.cloud base and top are zero (no conv.cloud is present). INITCNV1.16
! INITCNV1.17
! Method: INITCNV1.18
! For full model field tests conv.cloud base and top, and if either INITCNV1.19
! is zero sets conv.cloud cover and liquid water path to zero. INITCNV1.20
! This consistency check at timestep 0 is needed as interpolation in INITCNV1.21
! the reconfiguration can give rise to inconsistent fields. INITCNV1.22
! INITCNV1.23
! Current Code Owner: R.T.H.Barnes (FR) INITCNV1.24
! INITCNV1.25
! History: INITCNV1.26
! Version Date Comment INITCNV1.27
! ------- ---- ------- INITCNV1.28
! 3.3 25/02/94 New routine. R.T.H.Barnes. INITCNV1.29
! INITCNV1.30
! Code Description: INITCNV1.31
! Language: FORTRAN 77 + CRAY extensions INITCNV1.32
! This code is written to UMDP3 v6 programming standards. INITCNV1.33
! INITCNV1.34
! System component covered: <appropriate code> INITCNV1.35
! System Task: <appropriate code> INITCNV1.36
! INITCNV1.37
! Declarations: these are of the form:- INITCNV1.38
! INTEGER ExampleVariable !Description of variable INITCNV1.39
! INITCNV1.40
! Global variables (*CALLed common blocks etc.): INITCNV1.41
*CALL CMAXSIZE INITCNV1.42
*CALL TYPSIZE INITCNV1.43
*CALL TYPD1 INITCNV1.44
*CALL TYPPTRA INITCNV1.45
INITCNV1.46
! Subroutine arguments INITCNV1.47
! Scalar arguments with Intent(In): INITCNV1.48
! Array arguments with Intent(In): INITCNV1.49
! Scalar arguments with Intent(InOut): INITCNV1.50
! Array arguments with Intent(InOut): INITCNV1.51
! Scalar arguments with Intent(Out): INITCNV1.52
! Array arguments with Intent(Out): INITCNV1.53
INITCNV1.54
! ErrorStatus <Delete this & the next 2 lines if ErrorStatus not used> INITCNV1.55
INTEGER ICODE ! Error flag (0 = OK) INITCNV1.56
CHARACTER*80 CMESSAGE ! Error message if ICODE>0 INITCNV1.57
INITCNV1.58
! Local parameters: INITCNV1.59
! Local scalars: INITCNV1.60
INTEGER I,K ! Loop counters over P_FIELD,N_CCA_LEV AJX0F404.491
INITCNV1.62
! Local dynamic arrays: INITCNV1.63
INITCNV1.64
! Function & Subroutine calls: INITCNV1.65
! External - NONE INITCNV1.66
INITCNV1.67
!- End of header INITCNV1.68
INITCNV1.69
! 1.0 Ensure that conv.cloud cover and liquid water path are zero INITCNV1.70
! when there is zero conv.cloud base and top. INITCNV1.71
WRITE(6,*)'INIT_CNV:resets conv.cld cover zero for base/top zero' GIE0F403.316
DO I = 1,P_FIELD INITCNV1.73
IF ( ID1(JCCB+I-1).EQ.0 .OR. ID1(JCCT+I-1).EQ.0 ) THEN INITCNV1.74
DO K = 1,N_CCA_LEV AJX0F404.492
D1(JCCA(K)+I-1) = 0.0 AJX0F404.493
END DO AJX0F404.494
D1(JCCLWP+I-1) = 0.0 INITCNV1.76
END IF INITCNV1.77
END DO ! I INITCNV1.78
INITCNV1.79
RETURN INITCNV1.80
END INITCNV1.81
*ENDIF INITCNV1.82