source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/kg_to_cm3.F

Last change on this file was 2175, checked in by jescribano, 10 years ago

SPLA code included for first time
File size: 485 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 "../phylmd/YOMCST.h"
9c #include "../phylmd/dimphy.h"
10c     
11      REAL t_seri(klon,klev), pplay(klon,klev)
12      REAL tr_seri(klon,klev)
13      REAL zrho
14      INTEGER i, k
15c
16      DO k = 1, klev
17      DO i = 1, klon
18        zrho=pplay(i,k)/t_seri(i,k)/RD
19        tr_seri(i,k)=tr_seri(i,k)/1.e6*zrho
20      ENDDO
21      ENDDO
22c
23      END
Note: See TracBrowser for help on using the repository browser.