source: palm/trunk/SOURCE/compute_vpt.f90 @ 1

Last change on this file since 1 was 1, checked in by raasch, 14 years ago

Initial repository layout and content

File size: 1.2 KB
Line 
1 SUBROUTINE compute_vpt
2
3!-------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Log: compute_vpt.f90,v $
11! Revision 1.5  2001/03/30 06:58:52  raasch
12! Translation of remaining German identifiers (variables, subroutines, etc.)
13!
14! Revision 1.4  2001/01/22 05:42:55  raasch
15! Minor corrections within file header
16!
17! Revision 1.2  2000/09/07 09:00:36  schroeter
18! Now, vpt will be computed for k=nzb and nzt+1
19! additionally to keep boundary values
20!
21! Revision 1.1  2000/04/13 14:40:53  schroeter
22! Initial revision
23!
24!
25! Description:
26! -------------
27! Computation of the virtual potential temperature
28!-------------------------------------------------------------------------------!
29
30    USE arrays_3d
31    USE indices
32    USE cloud_parameters
33    USE control_parameters
34
35    IMPLICIT NONE
36
37    INTEGER :: k
38
39    IF ( .NOT. cloud_physics ) THEN
40       vpt = pt * ( 1.0 + 0.61 * q )
41    ELSE
42       DO  k = nzb, nzt+1
43          vpt(k,:,:) = ( pt(k,:,:) + pt_d_t(k) * l_d_cp * ql(k,:,:) ) * &
44                       ( 1.0 + 0.61 * q(k,:,:) - 1.61 * ql(k,:,:) ) 
45       ENDDO
46    ENDIF
47
48 END SUBROUTINE compute_vpt
Note: See TracBrowser for help on using the repository browser.