Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fyhyp_m.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/fyhyp_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/fyhyp_m.F90

@@ -16 +16 @@
     ! Il vaut mieux avoir : grossismy * dzoom < pi / 2
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     USE lmdz_coefpoly, ONLY: coefpoly
     USE lmdz_physical_constants, ONLY: k8
     USE serre_mod, ONLY: clat, grossismy, dzoomy, tauy
 
-    INCLUDE "dimensions.h"
+
     ! for jjm