2 !NCEP_MESO:MODEL_LAYER: PHYSICS
4 !**********************************************************************
5 SUBROUTINE CLTEND (ICLTEND,NPHS,T,T_OLD,T_ADJ &
6 ,IDS,IDE,JDS,JDE,KDS,KDE &
7 ,IMS,IME,JMS,JME,KMS,KME &
8 ,ITS,ITE,JTS,JTE,KTS,KTE)
9 !----------------------------------------------------------------------
10 !$$$ SUBPROGRAM DOCUMENTATION BLOCK
12 ! SUBPROGRAM: CLTEND TEMPERATURE CHANGE BY CLOUD PROCESSES
13 ! PRGRMMR: FERRIER ORG: W/NP22 DATE: 01-09-26
16 ! CLTEND GRADUALLY UPDATES TEMPERATURE TENDENCIES FROM CONVECTION
17 ! GRID-SCALE MICROPHYSICS, AND PRECIPITATION ASSIMILATION.
19 ! USAGE: CALL CLTEND FROM SOLVE_RUNSTEAM
20 ! INPUT ARGUMENT LIST:
21 ! ICLTEND - FLAG SET TO -1 PRIOR TO PHYSICS CALLS, 0 AFTER PHYSICS
22 ! CALLS, AND 1 FOR UPDATING TEMPERATURES EVERY TIME STEP
24 ! OUTPUT ARGUMENT LIST: NONE
28 ! SUBPROGRAMS CALLED: NONE
35 ! LANGUAGE: FORTRAN 90
38 !----------------------------------------------------------------------
43 !----------------------------------------------------------------------
45 INTEGER,INTENT(IN) :: ICLTEND &
46 ,IDS,IDE,JDS,JDE,KDS,KDE &
47 ,IMS,IME,JMS,JME,KMS,KME &
48 ,ITS,ITE,JTS,JTE,KTS,KTE &
51 REAL,DIMENSION(IMS:IME,JMS:JME,KMS:KME),INTENT(INOUT) :: T &
61 !----------------------------------------------------------------------
62 !----------------------------------------------------------------------
72 ELSEIF(ICLTEND==0)THEN
76 T_ADJ(I,J,K)=T(I,J,K)-T_OLD(I,J,K)
86 T(I,J,K)=T(I,J,K)+DELTPH*T_ADJ(I,J,K)
91 !----------------------------------------------------------------------
95 !----------------------------------------------------------------------