Changeset 789 for LMDZ4/trunk


Ignore:
Timestamp:
Jun 20, 2007, 11:58:51 AM (17 years ago)
Author:
Laurent Fairhead
Message:

Mauvais indice pour les boucles FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/yamada4.F

    r776 r789  
    434434      if(1.eq.1) then
    435435      do k=2,klev
    436          do ig=1,klon
     436         do ig=1,ngrid
    437437            if (teta(ig,2).gt.teta(ig,1)) then
    438438               qmin=ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2
Note: See TracChangeset for help on using the changeset viewer.