/[lmdze]/trunk/Sources/phylmd/yamada4.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/yamada4.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 38  c    iflag_pbl=8 : MY 2.5 Line 38  c    iflag_pbl=8 : MY 2.5
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)
# Line 391  c     print*,'KML=',km(ig,k),kn(ig,k) Line 392  c     print*,'KML=',km(ig,k),kn(ig,k)
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    
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21