source: palm/trunk/SOURCE/interaction_droplets_ptq.f90 @ 440

Last change on this file since 440 was 4, checked in by raasch, 18 years ago

Id keyword set as property for all *.f90 files

  • Property svn:keywords set to Id
File size: 2.1 KB
Line 
1 MODULE interaction_droplets_ptq_mod
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: interaction_droplets_ptq.f90 4 2007-02-13 11:33:16Z raasch $
11! RCS Log replace by Id keyword, revision history cleaned up
12!
13! Revision 1.1  2005/06/26 19:57:47  raasch
14! Initial revision
15!
16!
17! Description:
18! ------------
19! Release of latent heat and change of specific humidity due to condensation /
20! evaporation of droplets.
21!------------------------------------------------------------------------------!
22
23    PRIVATE
24    PUBLIC interaction_droplets_ptq
25
26    INTERFACE interaction_droplets_ptq
27       MODULE PROCEDURE interaction_droplets_ptq
28       MODULE PROCEDURE interaction_droplets_ptq_ij
29    END INTERFACE interaction_droplets_ptq
30 
31 CONTAINS
32
33
34!------------------------------------------------------------------------------!
35! Call for all grid points
36!------------------------------------------------------------------------------!
37    SUBROUTINE interaction_droplets_ptq
38
39       USE arrays_3d
40       USE cloud_parameters
41       USE control_parameters
42       USE indices
43
44       USE pegrid
45
46       IMPLICIT NONE
47
48       INTEGER ::  i, j, k
49
50 
51       DO  i = nxl, nxr
52          DO  j = nys, nyn
53             DO  k = nzb_2d(j,i)+1, nzt
54                q_p(k,j,i)  = q_p(k,j,i)  - ql_c(k,j,i)
55                pt_p(k,j,i) = pt_p(k,j,i) + l_d_cp * ql_c(k,j,i)
56             ENDDO
57          ENDDO
58       ENDDO
59
60    END SUBROUTINE interaction_droplets_ptq
61
62
63!------------------------------------------------------------------------------!
64! Call for grid point i,j
65!------------------------------------------------------------------------------!
66    SUBROUTINE interaction_droplets_ptq_ij( i, j )
67
68       USE arrays_3d
69       USE cloud_parameters
70       USE control_parameters
71       USE indices
72
73       USE pegrid
74
75       IMPLICIT NONE
76
77       INTEGER ::  i, j, k
78
79
80       DO  k = nzb_2d(j,i)+1, nzt
81          q_p(k,j,i)  = q_p(k,j,i)  - ql_c(k,j,i)
82          pt_p(k,j,i) = pt_p(k,j,i) + l_d_cp * ql_c(k,j,i)
83       ENDDO
84
85    END SUBROUTINE interaction_droplets_ptq_ij
86
87 END MODULE interaction_droplets_ptq_mod
Note: See TracBrowser for help on using the repository browser.