Changeset 1128
- Timestamp:
- Mar 19, 2009, 12:30:08 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/concvl.F
r1114 r1128 5 5 SUBROUTINE concvl (iflag_con,iflag_clos, 6 6 . dtime,paprs,pplay, 7 . t,q,t_wake,q_wake, u,v,tra,ntra,7 . t,q,t_wake,q_wake,s_wake,u,v,tra,ntra, 8 8 . ALE,ALP,work1,work2, 9 9 . d_t,d_q,d_u,d_v,d_tra, … … 25 25 c 26 26 USE dimphy 27 USE infotrac, ONLY : nbtr28 27 IMPLICIT none 29 28 c====================================================================== … … 68 67 c 69 68 #include "dimensions.h" 69 cccccc#include "dimphy.h" 70 c 71 integer NTRAC 72 PARAMETER (NTRAC=nqmx-2) 70 73 c 71 74 INTEGER iflag_con,iflag_clos … … 74 77 REAL t(klon,klev),q(klon,klev),u(klon,klev),v(klon,klev) 75 78 REAL t_wake(klon,klev),q_wake(klon,klev) 76 REAL tra(klon,klev,nbtr) 79 Real s_wake(klon) 80 REAL tra(klon,klev,ntrac) 77 81 INTEGER ntra 78 82 REAL work1(klon,klev),work2(klon,klev),ptop2(klon) … … 82 86 REAL d_t(klon,klev),d_q(klon,klev),d_u(klon,klev),d_v(klon,klev) 83 87 REAL dd_t(klon,klev),dd_q(klon,klev) 84 REAL d_tra(klon,klev,n btr)88 REAL d_tra(klon,klev,ntrac) 85 89 REAL rain(klon),snow(klon) 86 90 c … … 346 350 CALL cva_driver(klon,klev,klev+1,ntra,nloc, 347 351 $ iflag_con,iflag_mix,iflag_clos,dtime, 348 : t,q,qs,t_wake,q_wake,qs_wake, u,v,tra,352 : t,q,qs,t_wake,q_wake,qs_wake,s_wake,u,v,tra, 349 353 $ em_p,em_ph, 350 354 . ALE,ALP,
Note: See TracChangeset
for help on using the changeset viewer.