Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90

@@ -1 +1 @@
 ! $Id$
 
-!
-!
+
+
 SUBROUTINE caladvtrac(q, pbaru, pbarv, &
         p, masse, dq, teta, &
         flxw, pk)
-  !
+
   USE infotrac, ONLY: nqtot
   USE control_mod, ONLY: iapp_tracvl, planet_type
@@ -13 +13 @@
   USE lmdz_ssum_scopy, ONLY: scopy
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
-  !
+
   ! Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron
-  !
+
   ! F.Codron (10/99) : ajout humidite specifique pour eau vapeur
   !=======================================================================
-  !
+
   !   Shema de  Van Leer
-  !
+
   !=======================================================================
 
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   !   Arguments:
@@ -36 +38 @@
 
   !  ..................................................................
-  !
+
   !  .. dq n'est utilise et dimensionne que pour l'eau  vapeur et liqu.
-  !
+
   !  ..................................................................
-  !
+
   !   Local:
   !   ------
@@ -49 +51 @@
 
   !c
-  !
+
   ! Earth-specific stuff for the first 2 tracers (water)
   IF (planet_type=="earth") THEN
@@ -73 +75 @@
     IF (planet_type=="earth") THEN
       ! Earth-specific treatment for the first 2 tracers (water)
-      !
+
       !c          CALL minmaxq(q(1,1,1),1.e33,-1.e33,'Eau vapeur     ')
       !c          CALL minmaxq(q(1,1,2),1.e33,-1.e33,'Eau liquide    ')
 
       !c     ....  Calcul  de deltap  qu'on stocke dans finmasse   ...
-      !
+
       DO l = 1, llm
         DO ij = 1, ip1jmp1
@@ -91 +93 @@
       CALL SCOPY   (ip1jmp1 * llm, masse, 1, finmasse, 1)
       CALL filtreg (finmasse, jjp1, llm, -2, 2, .TRUE., 1)
-      !
+
       !   *****  Calcul de dq pour l'eau , pour le passer a la physique ******
       !   ********************************************************************
-      !
+
       dtvrtrac = iapp_tracvl * dtvr
-      !
+
       DO iq = 1, nqtot
         DO l = 1, llm
@@ -105 +107 @@
         ENDDO
       ENDDO
-      !
+
     endif ! of if (planet_type.EQ."earth")
   ELSE