32 |
logical lnew |
logical lnew |
33 |
|
|
34 |
REAL pgcm(ilon,ilev) |
REAL pgcm(ilon,ilev) |
35 |
REAL Qgcm(ilon,ilev) |
REAL, intent(in):: Qgcm(ilon,ilev) |
36 |
real pres |
real pres |
37 |
REAL Qpres(ilon) |
REAL Qpres(ilon) |
38 |
|
|
111 |
|
|
112 |
do i=1,ilon |
do i=1,ilon |
113 |
Qpres(i)= Qgcm(i,lb(i))*aisb(i)+Qgcm(i,lt(i))*aist(i) |
Qpres(i)= Qgcm(i,lb(i))*aisb(i)+Qgcm(i,lt(i))*aist(i) |
|
cIM PRINT*,'i,Qgcm,Qpres',i,Qgcm(i,lb(i)),aisb(i), |
|
|
cIM $ Qgcm(i,lt(i)),aist(i),Qpres(i) |
|
114 |
enddo |
enddo |
115 |
c |
c |
116 |
c Je mets les vents a zero quand je rencontre une montagne |
c Je mets les vents a zero quand je rencontre une montagne |