source: LMDZ5/trunk/libf/phylmd/Dust/kg_to_cm3.F @ 3205

Last change on this file since 3205 was 2630, checked in by fhourdin, 8 years ago

Importation du modèle d'aérosols de Boucher, Escribano et al.

File size: 443 bytes
RevLine 
[2630]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.