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

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

@@ -7 +7 @@
   USE lmdz_fxy_new, ONLY: fx, fxprim, fy, fyprim
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
   ! Auteur  :  P. Le Van
-  !
+
   ! Calcul  des longitudes et des latitudes  pour une fonction f(x,y)
   !       a tangente sinusoidale et eventuellement avec zoom  .
+
   !
-  !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   INTEGER :: i, j
@@ -26 +28 @@
 
   !    ......  calcul  des  latitudes  et de y'   .....
-  !
+
   DO j = 1, jjm + 1
     rlatu(j) = fy    (REAL(j))
@@ -44 +46 @@
   ENDDO
 
-  !
+
   ! .....  calcul   des  longitudes et de  x'   .....
-  !
+
   DO i = 1, iim + 1
     rlonv(i) = fx    (REAL(i))
@@ -59 +61 @@
   ENDDO
 
-  !
+
 END SUBROUTINE fxy