*IF DEF,A70_1A,OR,DEF,A70_1B APB4F405.97
*IF DEF,A01_3A,OR,DEF,A02_3A SNCLP3A.2
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.13926
C GTS2F400.13927
C Use, duplication or disclosure of this code is subject to the GTS2F400.13928
C restrictions as set forth in the contract. GTS2F400.13929
C GTS2F400.13930
C Meteorological Office GTS2F400.13931
C London Road GTS2F400.13932
C BRACKNELL GTS2F400.13933
C Berkshire UK GTS2F400.13934
C RG12 2SZ GTS2F400.13935
C GTS2F400.13936
C If no contract has been raised with this copy of the code, the use, GTS2F400.13937
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.13938
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.13939
C Modelling at the above address. GTS2F400.13940
C ******************************COPYRIGHT****************************** GTS2F400.13941
C GTS2F400.13942
!+ Function to set number of cloudy parameters. SNCLP3A.3
! SNCLP3A.4
! Method: SNCLP3A.5
! Straightforward SNCLP3A.6
! SNCLP3A.7
! Current Owner of Code: J. M. Edwards SNCLP3A.8
! SNCLP3A.9
! History: SNCLP3A.10
! Version Date Comment SNCLP3A.11
! 4.0 27-07-95 Original Code SNCLP3A.12
! (J. M. Edwards) SNCLP3A.13
! 4.5 18-05-98 Code for new parametr- ADB1F405.604
! ization of droplets ADB1F405.605
! included. ADB1F405.606
! (J. M. Edwards) ADB1F405.607
! SNCLP3A.15
! Description of Code: SNCLP3A.16
! FORTRAN 77 with extensions listed in documentation. SNCLP3A.17
! SNCLP3A.18
!- --------------------------------------------------------------------- SNCLP3A.19
FUNCTION SET_N_CLOUD_PARAMETER(I_SCHEME, I_COMPONENT 4SNCLP3A.20
& ) SNCLP3A.21
! SNCLP3A.22
! SNCLP3A.23
! SNCLP3A.24
IMPLICIT NONE SNCLP3A.25
! SNCLP3A.26
! SNCLP3A.27
! INCLUDE COMDECKS SNCLP3A.28
*CALL CLDCMP3A 
SNCLP3A.29
*CALL WCLPRM3A SNCLP3A.30
*CALL ICLPRM3A SNCLP3A.31
! SNCLP3A.32
! DUMMY ARGUMENTS. SNCLP3A.33
INTEGER !, INTENT(IN) SNCLP3A.34
& I_SCHEME SNCLP3A.35
! PARAMETRIZATION SCHEME SNCLP3A.36
& , I_COMPONENT SNCLP3A.37
! COMPONENT IN CLOUD SNCLP3A.38
! SNCLP3A.39
INTEGER !, INTENT(OUT) SNCLP3A.40
& SET_N_CLOUD_PARAMETER SNCLP3A.41
! RETURNED NUMBER OF COEFFICIENTS IN PARAMETRIZATION SNCLP3A.42
! SNCLP3A.43
! SNCLP3A.44
! SNCLP3A.45
IF ( (I_COMPONENT.EQ.IP_CLCMP_ST_WATER).OR. SNCLP3A.46
& (I_COMPONENT.EQ.IP_CLCMP_CNV_WATER) ) THEN SNCLP3A.47
! SNCLP3A.48
IF (I_SCHEME.EQ.IP_SLINGO_SCHRECKER) THEN SNCLP3A.49
SET_N_CLOUD_PARAMETER =6 SNCLP3A.50
ELSE IF (I_SCHEME.EQ.IP_ACKERMAN_STEPHENS) THEN SNCLP3A.51
SET_N_CLOUD_PARAMETER=9 SNCLP3A.52
ELSE IF (I_SCHEME.EQ.IP_DROP_PADE_2) THEN ADB1F405.608
SET_N_CLOUD_PARAMETER=16 ADB1F405.609
ENDIF SNCLP3A.53
! SNCLP3A.54
ELSE IF ( (I_COMPONENT.EQ.IP_CLCMP_ST_ICE).OR. SNCLP3A.55
& (I_COMPONENT.EQ.IP_CLCMP_CNV_ICE) ) THEN SNCLP3A.56
! SNCLP3A.57
IF (I_SCHEME.EQ.IP_SLINGO_SCHRECKER_ICE) THEN SNCLP3A.58
SET_N_CLOUD_PARAMETER=6 SNCLP3A.59
ELSE IF (I_SCHEME.EQ.IP_ICE_ADT) THEN ADB2F404.1048
SET_N_CLOUD_PARAMETER=30 ADB2F404.1049
ELSE IF (I_SCHEME.EQ.IP_SUN_SHINE_VN2_VIS) THEN SNCLP3A.62
SET_N_CLOUD_PARAMETER=6 SNCLP3A.63
ELSE IF (I_SCHEME.EQ.IP_SUN_SHINE_VN2_IR) THEN SNCLP3A.64
SET_N_CLOUD_PARAMETER=0 SNCLP3A.65
ENDIF SNCLP3A.66
! SNCLP3A.67
ENDIF SNCLP3A.68
! SNCLP3A.69
! SNCLP3A.70
! SNCLP3A.71
RETURN SNCLP3A.72
END SNCLP3A.73
*ENDIF DEF,A01_3A,OR,DEF,A02_3A SNCLP3A.74
*ENDIF DEF,A70_1A,OR,DEF,A70_1B APB4F405.98