70 |
integer nd |
integer nd |
71 |
integer ndp1 |
integer ndp1 |
72 |
integer noff |
integer noff |
73 |
integer iflag_con |
integer, intent(in):: iflag_con |
74 |
integer ntra |
integer ntra |
75 |
real t1(len,nd) |
real t1(len,nd) |
76 |
real q1(len,nd) |
real q1(len,nd) |
101 |
real, intent(in):: tra1(len,nd,ntra) |
real, intent(in):: tra1(len,nd,ntra) |
102 |
real ftra1(len,nd,ntra) |
real ftra1(len,nd,ntra) |
103 |
|
|
104 |
real delt |
real, intent(in):: delt |
105 |
|
|
106 |
!------------------------------------------------------------------- |
!------------------------------------------------------------------- |
107 |
! --- ARGUMENTS |
! --- ARGUMENTS |
653 |
|
|
654 |
include "cvthermo.h" |
include "cvthermo.h" |
655 |
|
|
656 |
integer iflag_con |
integer, intent(in):: iflag_con |
657 |
|
|
658 |
|
|
659 |
c original set from convect: |
c original set from convect: |