38 |
c iflag_pbl=9 : un test ? |
c iflag_pbl=9 : un test ? |
39 |
|
|
40 |
c....................................................................... |
c....................................................................... |
41 |
REAL dt,g,rconst |
REAL, intent(in):: dt |
42 |
|
real g,rconst |
43 |
real plev(klon,klev+1),temp(klon,klev) |
real plev(klon,klev+1),temp(klon,klev) |
44 |
real ustar(klon) |
real ustar(klon) |
45 |
real kmin,qmin,pblhmin(klon),coriol(klon) |
real kmin,qmin,pblhmin(klon),coriol(klon) |
392 |
enddo |
enddo |
393 |
enddo |
enddo |
394 |
|
|
|
c if (iflag_pbl.ge.7..and.0.eq.1) then |
|
|
c q2(:,1)=q2(:,2) |
|
|
c call vdif_q2(dt,g,rconst,plev,temp,kq,q2) |
|
|
c endif |
|
|
|
|
395 |
c Traitement des cas noctrunes avec l'introduction d'une longueur |
c Traitement des cas noctrunes avec l'introduction d'une longueur |
396 |
c minilale. |
c minilale. |
397 |
|
|