Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limy.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_common/limy.f90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limy.f90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE limy(s0,sy,sm,pente_max)
-  !
+
   ! Auteurs:   P.Le Van, F.Hourdin, F.Forget
-  !
+
   !    ********************************************************************
   ! Shema  d'advection " pseudo amont " .
@@ -11 +11 @@
   ! q,w sont des arguments d'entree  pour le s-pg ....
   ! dq            sont des arguments de sortie pour le s-pg ....
-  !
-  !
+
+
   !   --------------------------------------------------------------------
   USE comconst_mod, ONLY: pi
@@ -19 +19 @@
   USE lmdz_comgeom
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
   !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
-  !
-  !
+
+
+
+
   !   Arguments:
   !   ----------
   REAL :: pente_max
   REAL :: s0(ip1jmp1,llm),sy(ip1jmp1,llm),sm(ip1jmp1,llm)
-  !
+
   !  Local
   !   ---------
-  !
+
   INTEGER :: i,ij,l
-  !
+
   REAL :: q(ip1jmp1,llm)
   REAL :: airej2,airejjm,airescb(iim),airesch(iim)
@@ -70 +72 @@
 
   DO l = 1, llm
-  !
+
      DO ij=1,ip1jmp1
            q(ij,l) = s0(ij,l) / sm ( ij,l )
            dyq(ij) = sy(ij,l) / sm ( ij,l )
      ENDDO
-  !
+
   !   --------------------------------
   !  CALCUL EN LATITUDE