Changeset 789 for LMDZ4/trunk/libf/phylmd/yamada4.F

Timestamp:

Jun 20, 2007, 11:58:51 AM (17 years ago)

Author:

Laurent Fairhead

Message:

Mauvais indice pour les boucles FH
LF

File:

• LMDZ4/trunk/libf/phylmd/yamada4.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/yamada4.F

@@ -434 +434 @@
       if(1.eq.1) then
       do k=2,klev
-         do ig=1,klon
+         do ig=1,ngrid
             if (teta(ig,2).gt.teta(ig,1)) then
                qmin=ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2