*IF DEF,A70_1A,OR,DEF,A70_1B APB4F405.39
*IF DEF,A01_3A,OR,DEF,A02_3A LCLDN3A.2
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.13382
C GTS2F400.13383
C Use, duplication or disclosure of this code is subject to the GTS2F400.13384
C restrictions as set forth in the contract. GTS2F400.13385
C GTS2F400.13386
C Meteorological Office GTS2F400.13387
C London Road GTS2F400.13388
C BRACKNELL GTS2F400.13389
C Berkshire UK GTS2F400.13390
C RG12 2SZ GTS2F400.13391
C GTS2F400.13392
C If no contract has been raised with this copy of the code, the use, GTS2F400.13393
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.13394
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.13395
C Modelling at the above address. GTS2F400.13396
C ******************************COPYRIGHT****************************** GTS2F400.13397
C GTS2F400.13398
!+ Function to determine whether densities are required for clouds. LCLDN3A.3
! LCLDN3A.4
! Method: LCLDN3A.5
! LCLDN3A.6
! Current Owner of Code: J. M. Edwards LCLDN3A.7
! LCLDN3A.8
! History: LCLDN3A.9
! Version Date Comment LCLDN3A.10
! 4.0 27-07-95 Original Code LCLDN3A.11
! (J. M. Edwards) LCLDN3A.12
! 4.1 10-06-96 L_CLOUD_DENSITY set ADB1F401.485
! as .FALSE. initially ADB1F401.486
! to provide a default. ADB1F401.487
! (J. M. Edwards) LCLDN3A.13
! LCLDN3A.14
! Description of Code: LCLDN3A.15
! FORTRAN 77 with extensions listed in documentation. LCLDN3A.16
! LCLDN3A.17
!- --------------------------------------------------------------------- LCLDN3A.18
FUNCTION L_CLOUD_DENSITY(N_CONDENSED, I_PHASE_CMP, L_CLOUD_CMP LCLDN3A.19
& , I_CONDENSED_PARAM LCLDN3A.20
& ) LCLDN3A.21
! LCLDN3A.22
! LCLDN3A.23
! LCLDN3A.24
IMPLICIT NONE LCLDN3A.25
! LCLDN3A.26
! LCLDN3A.27
! INCLUDE COMDECKS LCLDN3A.28
*CALL DIMFIX3A 
LCLDN3A.29
*CALL ICLPRM3A LCLDN3A.30
*CALL PHASE3A LCLDN3A.31
! LCLDN3A.32
! DUMMY ARGUMENTS. LCLDN3A.33
INTEGER !, INTENT(IN) LCLDN3A.34
& N_CONDENSED LCLDN3A.35
! NUMBER OF TYPES OF CONDENSATE LCLDN3A.36
& , I_PHASE_CMP(NPD_CLOUD_COMPONENT) LCLDN3A.37
! PHASES OF COMPONENTS LCLDN3A.38
& , I_CONDENSED_PARAM(NPD_CLOUD_COMPONENT) LCLDN3A.39
! PARAMETRIZATIONS OF COMPONENTS LCLDN3A.40
LOGICAL !, INTENT(IN) LCLDN3A.41
& L_CLOUD_CMP(NPD_CLOUD_COMPONENT) LCLDN3A.42
! FLAGS FOR ENABLED COMPONENTS LCLDN3A.43
LOGICAL !, INTENT(OUT) LCLDN3A.44
& L_CLOUD_DENSITY LCLDN3A.45
! RETURNED FLAG FOR CALCULATING DENSITY LCLDN3A.46
! LCLDN3A.47
! LCLDN3A.48
! LOCAL VARIABLES. LCLDN3A.49
INTEGER LCLDN3A.50
& K LCLDN3A.51
! LOOP VARIABLE LCLDN3A.52
! LCLDN3A.53
! LCLDN3A.54
L_CLOUD_DENSITY=.FALSE. ADB1F401.488
! LCLDN3A.55
! DENSITIES MUST BE CALCULATED IF SUN & SHINE'S PARAMETRIZATIONS LCLDN3A.56
! ARE USED. LCLDN3A.57
DO K=1, N_CONDENSED LCLDN3A.58
L_CLOUD_DENSITY=L_CLOUD_DENSITY.OR. LCLDN3A.59
& (L_CLOUD_CMP(K).AND.(I_PHASE_CMP(K).EQ.IP_PHASE_ICE).AND. LCLDN3A.60
& ( (I_CONDENSED_PARAM(K).EQ.IP_SUN_SHINE_VN2_VIS).OR. LCLDN3A.61
& (I_CONDENSED_PARAM(K).EQ.IP_SUN_SHINE_VN2_IR) ) ) LCLDN3A.62
ENDDO LCLDN3A.63
! LCLDN3A.64
! LCLDN3A.65
! LCLDN3A.66
RETURN LCLDN3A.67
END LCLDN3A.68
*ENDIF DEF,A01_3A,OR,DEF,A02_3A LCLDN3A.69
*ENDIF DEF,A70_1A,OR,DEF,A70_1B APB4F405.40