Changeset 8 for trunk/libf/dyn3d

Timestamp:

Nov 2, 2010, 12:38:23 PM (14 years ago)

Author:

emillour

Message:

Debut de mise a jour de la dynamique parallele par rapport aux modifs dans la partie sequentielle.

Mais NON TESTE , car pas (encore) possibilite de compiler et faire tourner cas simple (type newtonien sans physique).

Voir commit_v8.log pour les details.

Ehouarn

File:

• trunk/libf/dyn3d/leapfrog.F (modified) (2 diffs)

trunk/libf/dyn3d/leapfrog.F

@@ -433 +433 @@
 c      -------------------
          IF (ok_strato) THEN
-           CALL top_bound( vcov,ucov,teta,masse,dutop,dvtop,dtetatop)
+           CALL top_bound( vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
          ENDIF
 c dqtop=0, dptop=0
@@ -441 +441 @@
           CALL addfi( dtphys, leapf, forward   ,
      $                  ucov, vcov, teta , q   ,ps ,
-     $                 dutop, dvtop, dtetatop , dqtop ,dptop  )
+     $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
 c
 c  Diagnostique de conservation de l'énergie : difference