source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/kg_to_cm3.F @ 4993

Last change on this file since 4993 was 4727, checked in by idelkadi, 13 months ago

Merged trunk changes -r4488:4726 LMDZ_ECRad branch

File size: 453 bytes
Line 
1      SUBROUTINE kg_to_cm3(pplay,t_seri,tr_seri)
2c     
3      USE dimphy
4      USE infotrac
5      IMPLICIT NONE
6c
7      INCLUDE "dimensions.h"
8      INCLUDE "YOMCST.h"
9c     
10      REAL t_seri(klon,klev), pplay(klon,klev)
11      REAL tr_seri(klon,klev)
12      REAL zrho
13      INTEGER i, k
14c
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
21c
22      END
Note: See TracBrowser for help on using the repository browser.