*IF DEF,A09_1A,OR,DEF,A09_2A AYY1F404.209
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved. GTS2F400.14929
C GTS2F400.14930
C Use, duplication or disclosure of this code is subject to the GTS2F400.14931
C restrictions as set forth in the contract. GTS2F400.14932
C GTS2F400.14933
C Meteorological Office GTS2F400.14934
C London Road GTS2F400.14935
C BRACKNELL GTS2F400.14936
C Berkshire UK GTS2F400.14937
C RG12 2SZ GTS2F400.14938
C GTS2F400.14939
C If no contract has been raised with this copy of the code, the use, GTS2F400.14940
C duplication or disclosure of it is strictly prohibited. Permission GTS2F400.14941
C to do so must first be obtained in writing from the Head of Numerical GTS2F400.14942
C Modelling at the above address. GTS2F400.14943
C ******************************COPYRIGHT****************************** GTS2F400.14944
C GTS2F400.14945
! SUBROUTINE GLUE_CLD------------------------------------------------- GCLD_1A.3
! GCLD_1A.4
! Level 3 control routine GCLD_1A.5
! GCLD_1A.6
! Purpose: Calls LS_CLD to calculate large-scale cloud cover and GCLD_1A.7
! cloud water contents, from liquid water temperature and GCLD_1A.8
! total water content, which are updated to temperature and GCLD_1A.9
! specific humidity respectively. GCLD_1A.10
! It is an extra level of control routine to avoid using GCLD_1A.11
! *IF DEF around calls to different LS_CLD versions, as per GCLD_1A.12
! S. Foreman's 22/8/94 proposal for plug compatibility. GCLD_1A.13
! GCLD_1A.14
! A09_1A : Standard large-scale cloud scheme. GCLD_1A.15
! A09_2A : Experimental Liquid and Ice Cloud Fractional Cover AYY1F404.210
! GCLD_1A.16
! Called by : SETCONA1 GCLD_1A.17
! SETLSCL1 GCLD_1A.18
! CLDCTL1 GCLD_1A.19
! BL_CTL1 GCLD_1A.20
! ATMDYN1 GCLD_1A.21
! VISBTY1A (not at vn4.5 onwards) ASK1F405.251
! AC_CTL1 ASK1F405.252
! THL2TH1 ASK1F405.253
! VANMOPS_MIXED_PHASE ASK1F405.254
! GCLD_1A.23
! Code description: Language FORTRAN 77 + extensions. GCLD_1A.24
! GCLD_1A.25
! Programming standard: Unified Model Documentation Paper No 3, GCLD_1A.26
! Version 6. GCLD_1A.27
! GCLD_1A.28
! Author: Andrew Bushell Reviewer: C. Wilson GCLD_1A.29
! GCLD_1A.30
! Modification History from UM Version 4.0: GCLD_1A.31
! Version Date GCLD_1A.32
! GCLD_1A.33
! 4.4 01/07/97 Changes to use of arguments if 2A scheme is AYY1F404.211
! chosen. A.C.Bushell AYY1F404.212
! 4.5 13/05/98 Altered argument list (dummy variable). ASK1F405.255
! S. Cusack ASK1F405.256
! GCLD_1A.34
! System components covered : GCLD_1A.35
! GCLD_1A.36
! System task : GCLD_1A.37
! GCLD_1A.38
! Documentation: UMDP No. GCLD_1A.39
! GCLD_1A.40
! END ----------------------------------------------------------------- GCLD_1A.41
! GCLD_1A.42
SUBROUTINE GLUE_CLD( 15,2GCLD_1A.43
& AK,BK,PSTAR,RHCRIT,LEVELS,DUMMY, ASK1F405.257
& POINTS,PFIELD, GCLD_1A.45
& T,CF,Q,QCF,QCL,PDF_QC_OR_CF_LIQ,PDF_BS_OR_CF_ICE,ERROR AYY1F404.213
& ) GCLD_1A.47
IMPLICIT NONE GCLD_1A.48
!----------------------------------------------------------------------- GCLD_1A.49
! All variables are used in this LS_CLD version GCLD_1A.50
!----------------------------------------------------------------------- GCLD_1A.51
! IN variables GCLD_1A.52
!----------------------------------------------------------------------- GCLD_1A.53
INTEGER LEVELS ! No. of levels being processed. GCLD_1A.54
! GCLD_1A.55
INTEGER POINTS ! No. of gridpoints being processed. GCLD_1A.56
! GCLD_1A.57
INTEGER PFIELD ! No. of points in global field (at one GCLD_1A.58
! vertical level). GCLD_1A.59
! GCLD_1A.60
REAL PSTAR(PFIELD) ! Surface pressure (Pa). GCLD_1A.61
! GCLD_1A.62
REAL RHCRIT(LEVELS) ! Critical relative humidity. See the GCLD_1A.63
! the paragraph incorporating eqs P292.11 GCLD_1A.64
! to P292.14; the values need to be tuned GCLD_1A.65
! for the given set of levels. GCLD_1A.66
REAL AK(LEVELS) ! Hybrid "A" co-ordinate. GCLD_1A.67
REAL BK(LEVELS) ! Hybrid "B" co-ordinate. GCLD_1A.68
!----------------------------------------------------------------------- GCLD_1A.69
! INOUT variables GCLD_1A.70
!----------------------------------------------------------------------- GCLD_1A.71
REAL Q(PFIELD,LEVELS) ! On input: Total water content (QW) GCLD_1A.72
! (kg per kg air). GCLD_1A.73
! On output: Specific humidity at process GCLD_1A.74
! levels (kg water per kg air) GCLD_1A.75
REAL T(PFIELD,LEVELS) ! On input: Liquid/frozen water GCLD_1A.76
! temperature (TL) (K). GCLD_1A.77
! On output: Temperature at processed GCLD_1A.78
! levels (K). GCLD_1A.79
!----------------------------------------------------------------------- GCLD_1A.80
! OUT variables GCLD_1A.81
!----------------------------------------------------------------------- GCLD_1A.82
REAL CF(PFIELD,LEVELS) ! Cloud fraction at processed levels GCLD_1A.83
! (decimal fraction). GCLD_1A.84
REAL QCF(PFIELD,LEVELS) ! Cloud ice content at processed levels GCLD_1A.85
! (kg per kg air). GCLD_1A.86
REAL QCL(PFIELD,LEVELS) ! Cloud liquid water content at GCLD_1A.87
! processed levels (kg per kg air). GCLD_1A.88
REAL PDF_QC_OR_CF_LIQ(PFIELD,LEVELS) AYY1F404.214
! 1A: Grid-box mean cloud condensate at processed levels (kg/ kg air). AYY1F404.215
! 2A: Liquid cloud fraction on model levels. AYY1F404.216
REAL PDF_BS_OR_CF_ICE(PFIELD,LEVELS) AYY1F404.217
! 1A: Maximum moisture fluctuation /6*sigma on levels (kg per kg air). AYY1F404.218
! 2A: Frozen cloud fraction on model levels. AYY1F404.219
REAL DUMMY(PFIELD,LEVELS) ! Dummy variable for this version ASK1F405.258
INTEGER ERROR ! 0 if OK; 1 if bad arguments. GCLD_1A.93
! GCLD_1A.94
! External subroutine called ---------------------------------------- GCLD_1A.95
EXTERNAL LS_CLD GCLD_1A.96
!---------------------------------------------------------------------- GCLD_1A.97
! GCLD_1A.98
CALL LS_CLD
( GCLD_1A.99
& AK, BK, PSTAR, GCLD_1A.100
& RHCRIT, LEVELS, GCLD_1A.101
& POINTS, PFIELD, T, GCLD_1A.102
& CF, Q, QCF, QCL, GCLD_1A.103
& PDF_QC_OR_CF_LIQ, PDF_BS_OR_CF_ICE, ERROR AYY1F404.220
& ) GCLD_1A.105
! GCLD_1A.106
RETURN GCLD_1A.107
END GCLD_1A.108
*ENDIF GCLD_1A.109