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, intent(in):: g |
43 |
|
real rconst |
44 |
real plev(klon,klev+1),temp(klon,klev) |
real plev(klon,klev+1),temp(klon,klev) |
45 |
real ustar(klon) |
real ustar(klon) |
46 |
real kmin,qmin,pblhmin(klon),coriol(klon) |
real kmin,qmin,pblhmin(klon),coriol(klon) |
393 |
enddo |
enddo |
394 |
enddo |
enddo |
395 |
|
|
|
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 |
|
|
|
|
396 |
c Traitement des cas noctrunes avec l'introduction d'une longueur |
c Traitement des cas noctrunes avec l'introduction d'une longueur |
397 |
c minilale. |
c minilale. |
398 |
|
|