source: LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.F @ 4660

Last change on this file since 4660 was 4593, checked in by yann meurdesoif, 18 months ago

Replace #include (c preprocessor) by INCLUDE (fortran keyword)

in phylmd (except rrtm and ecrad) filtrez, dy3dmem and dyn3dcommon

Other directories will follow
YM

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.