source: LMDZ5/trunk/libf/phylmd/Dust/cm3_to_kg.F @ 4984

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

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

File size: 532 bytes
Line 
1      SUBROUTINE cm3_to_kg(pplay,t_seri,tr_seri)
2
3      USE dimphy
4      USE infotrac
5      USE indice_sol_mod
6
7      IMPLICIT NONE
8c
9#include "dimensions.h"
10#include "YOMCST.h"
11c     
12      REAL t_seri(klon,klev), pplay(klon,klev)
13      REAL tr_seri(klon,klev)
14      REAL zrho
15      INTEGER i, k
16c
17!JE20150707      RD = 1000.0 * 1.380658E-23 * 6.0221367E+23 / 28.9644
18      DO k = 1, klev
19      DO i = 1, klon
20        zrho=pplay(i,k)/t_seri(i,k)/RD
21        tr_seri(i,k)=tr_seri(i,k)*1.e6/zrho
22      ENDDO
23      ENDDO
24c
25      END
Note: See TracBrowser for help on using the repository browser.