Changeset 2567
- Timestamp:
- Jun 13, 2016, 10:23:40 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d_common/infotrac.F90
r2566 r2567 87 87 INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv ! index of vertical trasport schema 88 88 89 #ifdef INCA90 89 INTEGER, ALLOCATABLE, DIMENSION(:) :: hadv_inca ! index of horizontal trasport schema 91 90 INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv_inca ! index of vertical trasport schema 92 #endif93 91 94 92 CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0 ! tracer short name … … 210 208 #endif 211 209 nqtrue=nbtr+nqo 210 211 ALLOCATE(hadv_inca(nbtr), vadv_inca(nbtr)) 212 212 213 END IF ! type_trac 213 214 !>jyg … … 232 233 ALLOCATE(tnom_0(nqtrue), hadv(nqtrue), vadv(nqtrue),tnom_transp(nqtrue)) 233 234 234 #ifdef INCA235 ALLOCATE(hadv_inca(nbtr), vadv_inca(nbtr))236 #endif237 235 ! 238 236 !jyg<
Note: See TracChangeset
for help on using the changeset viewer.