Changeset 5271 for LMDZ6/trunk/libf/dyn3d_common/nxgradst.f90

Timestamp:

Oct 24, 2024, 4:25:39 PM (26 hours ago)

Author:

abarral

Message:

Move dimensions.h into a module
Nb: doesn't compile yet

File:

• LMDZ6/trunk/libf/dyn3d_common/nxgradst.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/nxgradst.f90

@@ -4 +4 @@
 SUBROUTINE nxgradst (klevel,rot, x, y )
   !
-  IMPLICIT NONE
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
   ! Auteur :  P. Le Van
   !
@@ -13 +14 @@
   !   x  et y    sont des arguments de sortie pour le s-prog
   !
-  INCLUDE "dimensions.h"
+
   INCLUDE "paramet.h"
   INCLUDE "comgeom.h"