Changeset 495 for trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

Timestamp:

Jan 10, 2012, 5:59:10 PM (13 years ago)

Author:

slebonnois

Message:

Mise a jour physique Titan, ajout des forces de marees (dans la dynamique, sous flag titan). SL.

File:

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

trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

@@ -106 +106 @@
       REAL dtetatop(ip1jmp1,llm)
       REAL dqtop(ip1jmp1,llm,nqtot),dptop(ip1jmp1)
+
+c   TITAN : tendances due au forces de marees */s
+      REAL dvtidal(ip1jm,llm),dutidal(ip1jmp1,llm)
 
 c   tendances physiques */s
@@ -396 +399 @@
      $              finvmaold                                    )
 
+       IF ((planet_type.eq.titan).and.(tidal)) then
+c-----------------------------------------------------------------------
+c   Marées gravitationnelles causées par Saturne
+c   B. Charnay (28/10/2010)
+c   ----------------------------------------------------------
+            CALL tidal_forces(rdaym_ini, dutidal, dvtidal)
+            ucov=ucov+dutidal*dt
+            vcov=vcov+dvtidal*dt
+       ENDIF
 
 c .P.Le Van (26/04/94  ajout de  finvpold dans l'appel d'integrd)