Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/concvl.F
- Timestamp:
- Mar 3, 2009, 5:40:26 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/concvl.F
r987 r1114 25 25 c 26 26 USE dimphy 27 USE infotrac, ONLY : nbtr 27 28 IMPLICIT none 28 29 c====================================================================== … … 67 68 c 68 69 #include "dimensions.h" 69 cccccc#include "dimphy.h"70 c71 integer NTRAC72 PARAMETER (NTRAC=nqmx-2)73 70 c 74 71 INTEGER iflag_con,iflag_clos … … 77 74 REAL t(klon,klev),q(klon,klev),u(klon,klev),v(klon,klev) 78 75 REAL t_wake(klon,klev),q_wake(klon,klev) 79 REAL tra(klon,klev,n trac)76 REAL tra(klon,klev,nbtr) 80 77 INTEGER ntra 81 78 REAL work1(klon,klev),work2(klon,klev),ptop2(klon) … … 85 82 REAL d_t(klon,klev),d_q(klon,klev),d_u(klon,klev),d_v(klon,klev) 86 83 REAL dd_t(klon,klev),dd_q(klon,klev) 87 REAL d_tra(klon,klev,n trac)84 REAL d_tra(klon,klev,nbtr) 88 85 REAL rain(klon),snow(klon) 89 86 c
Note: See TracChangeset
for help on using the changeset viewer.