Changeset 1795 for LMDZ5/branches/testing/libf/dyn3d/leapfrog.F

Timestamp:

Jul 18, 2013, 10:20:28 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3d/leapfrog.F (modified) (3 diffs)

LMDZ5/branches/testing/libf/dyn3d/leapfrog.F

@@ -436 +436 @@
      $               clesphy0, dufi,dvfi,dtetafi,dqfi,dpfi  )
 
-         IF (ok_strato) THEN
-           CALL top_bound( vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
-         ENDIF
-       
 c      ajout des tendances physiques:
 c      ------------------------------
@@ -445 +441 @@
      $                  ucov, vcov, teta , q   ,ps ,
      $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
+
+         IF (ok_strato) THEN
+           CALL top_bound( vcov,ucov,teta,masse,dtphys)
+         ENDIF
+       
 c
 c  Diagnostique de conservation de l'énergie : difference
@@ -476 +477 @@
         ! Sponge layer (if any)
         IF (ok_strato) THEN
-          dufi(:,:)=0.
-          dvfi(:,:)=0.
-          dtetafi(:,:)=0.
-          dqfi(:,:,:)=0.
-          dpfi(:)=0.
-          CALL top_bound(vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
-          CALL addfi( dtvr, leapf, forward   ,
-     $                  ucov, vcov, teta , q   ,ps ,
-     $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
+!          dufi(:,:)=0.
+!          dvfi(:,:)=0.
+!          dtetafi(:,:)=0.
+!          dqfi(:,:,:)=0.
+!          dpfi(:)=0.
+!          CALL top_bound(vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
+           CALL top_bound( vcov,ucov,teta,masse,dtvr)
+!          CALL addfi( dtvr, leapf, forward   ,
+!     $                  ucov, vcov, teta , q   ,ps ,
+!     $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
         ENDIF ! of IF (ok_strato) 
       ENDIF ! of IF (iflag_phys.EQ.2)