Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/grad.f90

Timestamp:

Aug 2, 2024, 9:58:25 PM (7 weeks ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/grad.f90 (modified) (2 diffs)

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

@@ -3 +3 @@
 
 SUBROUTINE  grad(klevel, pg,pgx,pgy )
-  !
+
   !  P. Le Van
-  !
+
   !    ******************************************************************
   ! .. calcul des composantes covariantes en x et y du gradient de g
-  !
+
   !    ******************************************************************
   !         pg        est un   argument  d'entree pour le s-prog
   !   pgx  et  pgy    sont des arguments de sortie pour le s-prog
-  !
+
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
   !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
   INTEGER :: klevel
   REAL :: pg( ip1jmp1,klevel )
   REAL :: pgx( ip1jmp1,klevel ) , pgy( ip1jm,klevel )
   INTEGER :: l,ij
-  !
-  !
+
+
   DO l = 1,klevel
-  !
+
   DO ij = 1, ip1jmp1 - 1
   pgx( ij,l ) = pg( ij +1,l ) - pg( ij,l )
   END DO
-  !
+
   !    .... correction pour  pgx(ip1,j,l)  ....
   !    ...    pgx(iip1,j,l)= pgx(1,j,l)  ....
@@ -35 +37 @@
   pgx( ij,l ) = pgx( ij -iim,l )
   END DO
-  !
+
   DO ij = 1,ip1jm
   pgy( ij,l ) = pg( ij,l ) - pg( ij +iip1,l )
   END DO
-  !
+
   END DO
   RETURN