Changeset 5271 for LMDZ6/trunk/libf/phylmd/StratAer

Timestamp:

Oct 24, 2024, 4:25:39 PM (3 months ago)

Author:

abarral

Message:

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

Location:

LMDZ6/trunk/libf/phylmd/StratAer

Files:

• calcaerosolstrato_rrtm.f90 (modified) (1 diff)
• interp_sulf_input.f90 (modified) (1 diff)
• stratH2O_methox.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90

@@ -11 +11 @@
   USE yomcst_mod_h
 
-  IMPLICIT NONE
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
 
-  INCLUDE "dimensions.h"
+
   INCLUDE "clesphys.h"
   INCLUDE "paramet.h"

LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.f90

@@ -21 +21 @@
   USE strataer_local_var_mod, ONLY : flag_newclim_file,flag_verbose_strataer
 
-  IMPLICIT NONE
-
-  include "dimensions.h"
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
+
+
 
 ! Variable input

LMDZ6/trunk/libf/phylmd/StratAer/stratH2O_methox.f90

@@ -22 +22 @@
   USE strataer_local_var_mod, ONLY : flag_newclim_file
   
-  IMPLICIT NONE
-  
-  include "dimensions.h"
+  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
+
+
   
 ! Input variables