source:
LMDZ5/branches/IPSLCM6.0.8/libf/phylmd/Dust/kg_to_cm3.F
@
5455
Last change on this file since 5455 was 2641, checked in by , 8 years ago | |
---|---|
File size: 443 bytes |
Line | |
---|---|
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.