Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/vlspltgen_loc.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/dyn3dmem/vlspltgen_loc.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/vlspltgen_loc.F90

@@ -4 +4 @@
         pdt, p, pk, teta)
 
-  !
+
   ! Auteurs:   P.Le Van, F.Hourdin, F.Forget, F.Codron
-  !
+
   !    ********************************************************************
   !      Schema  d'advection " pseudo amont " .
@@ -13 +13 @@
   !    ********************************************************************
   ! q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
-  !
+
   ! pente_max facteur de limitation des pentes: 2 en general
   !                                            0 pour un schema amont
   ! pbaru,pbarv,w flux de masse en u ,v ,w
   ! pdt pas de temps
-  !
+
   ! teta temperature potentielle, p pression aux interfaces,
   ! pk exner au milieu des couches necessaire pour calculer Qsat
@@ -33 +33 @@
 
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
   !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
-
-  !
+
+
+
+
   !   Arguments:
   !   ----------
@@ -48 +50 @@
   REAL :: p(ijb_u:ije_u, llmp1), teta(ijb_u:ije_u, llm)
   REAL :: pk(ijb_u:ije_u, llm)
-  !
+
   !  Local
   !   ---------
-  !
+
   INTEGER :: ij, l
-  !
+
   REAL :: zzpbar, zzw