5 |
lat, & |
lat, & |
6 |
d_tr,d_trs ) |
d_tr,d_trs ) |
7 |
|
|
|
! This procedure is clean: no C preprocessor directive, no include line. |
|
8 |
! From phylmd/cltracrn.F,v 1.2 2005/05/25 13:10:09 |
! From phylmd/cltracrn.F,v 1.2 2005/05/25 13:10:09 |
9 |
|
|
10 |
use indicesol, only: nbsrf |
use indicesol, only: nbsrf |
11 |
use dimphy, only: klon, klev |
use dimphy, only: klon, klev |
12 |
use YOMCST, only: RD, rg |
use SUPHEC_M, only: RD, rg |
13 |
|
|
14 |
IMPLICIT none |
IMPLICIT none |
15 |
!====================================================================== |
!====================================================================== |