source:
LMDZ5/branches/testing/libf/phylmd/Dust/kg_to_cm3.F
Last change on this file was 2641, checked in by , 8 years ago | |
---|---|
File size: 443 bytes |
Rev | Line | |
---|---|---|
[2630] | 1 | SUBROUTINE kg_to_cm3(pplay,t_seri,tr_seri) |
2 | c | |
3 | USE dimphy | |
4 | USE infotrac | |
5 | IMPLICIT NONE | |
6 | c | |
7 | #include "dimensions.h" | |
8 | #include "YOMCST.h" | |
9 | c | |
10 | REAL t_seri(klon,klev), pplay(klon,klev) | |
11 | REAL tr_seri(klon,klev) | |
12 | REAL zrho | |
13 | INTEGER i, k | |
14 | c | |
15 | DO k = 1, klev | |
16 | DO i = 1, klon | |
17 | zrho=pplay(i,k)/t_seri(i,k)/RD | |
18 | tr_seri(i,k)=tr_seri(i,k)/1.e6*zrho | |
19 | ENDDO | |
20 | ENDDO | |
21 | c | |
22 | END |
Note: See TracBrowser
for help on using the repository browser.