Changeset 110 for trunk/libf/dyn3dpar/disvert_noterre.F

Timestamp:

Apr 15, 2011, 3:44:44 PM (14 years ago)

Author:

slebonnois

Message:

SL: corrections de bugs suite a compilations venus et titan de la version 109.

File:

• trunk/libf/dyn3dpar/disvert_noterre.F (modified) (1 diff)

trunk/libf/dyn3dpar/disvert_noterre.F

@@ -199 +199 @@
 c     Specifique.  Ce choix est spécifié ici ET dans exner_hyb.F
 
-      DO l = 1, llm
+      DO l = 1, llm-1
        aps(l) =  0.5 *( ap(l) +ap(l+1)) 
        bps(l) =  0.5 *( bp(l) +bp(l+1)) 
       ENDDO
      
-      if (hybrid) then
+c     if (hybrid) then
          aps(llm) = aps(llm-1)**2 / aps(llm-2) 
          bps(llm) = 0.5*(bp(llm) + bp(llm+1))
-      else
-         bps(llm) = bps(llm-1)**2 / bps(llm-2) 
-         aps(llm) = 0.
-      end if
+c     else
+c        bps(llm) = bps(llm-1)**2 / bps(llm-2) 
+c        aps(llm) = 0.
+c     end if
 
       PRINT *,' BPs '