Changeset 5271 for LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

Timestamp:

Oct 24, 2024, 4:25:39 PM (2 weeks ago)

Author:

abarral

Message:

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

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h (modified) (10 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

@@ -1 @@
-#include "conf_gcm.f90"
+INCLUDE "conf_gcm.f90"
 
 !
@@ -18 +18 @@
 !   --------------
 
-#include "compar1d.h"
-#include "flux_arp.h"
-#include "tsoilnudge.h"
-#include "fcg_gcssold.h"
-#include "fcg_racmo.h"
+INCLUDE "compar1d.h"
+INCLUDE "flux_arp.h"
+INCLUDE "tsoilnudge.h"
+INCLUDE "fcg_gcssold.h"
+INCLUDE "fcg_racmo.h"
 !
 !
@@ -670 +670 @@
       USE temps_mod, ONLY: annee_ref, day_ini, day_ref, itau_dyn
 
-      IMPLICIT NONE
+      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
 !=======================================================
 ! Ecriture du fichier de redemarrage sous format NetCDF
@@ -676 +677 @@
 !   Declarations:
 !   -------------
-      include "dimensions.h"
-!!#include "control.h"
+
+!!INCLUDE "control.h"
 
 !   Arguments:
@@ -816 +817 @@
       USE temps_mod, ONLY: annee_ref,day_end,day_ref,itau_dyn,itaufin
 
-      IMPLICIT NONE
+      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
 !=======================================================
 ! Ecriture du fichier de redemarrage sous format NetCDF
@@ -822 +824 @@
 !   Declarations:
 !   -------------
-      include "dimensions.h"
-!!#include "control.h"
+
+!!INCLUDE "control.h"
 
 !   Arguments:
@@ -1128 +1130 @@
 !    Auteur :  P. Le Van .
 !
-      IMPLICIT NONE
- 
-      include "dimensions.h"
+      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+IMPLICIT NONE
+
+
       include "paramet.h"
 !
@@ -1348 +1351 @@
 !----------------------------------------------------------------------  
         implicit none
-#include "YOMCST.h"
+INCLUDE "YOMCST.h"
 !        argument
         integer llm
@@ -1422 +1425 @@
 !----------------------------------------------------------------------  
         implicit none
-#include "YOMCST.h"
+INCLUDE "YOMCST.h"
 !        argument
         integer llm,nqtot
@@ -1741 +1744 @@
      &         ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc)
  
-       implicit none
- 
-#include "YOMCST.h"
-#include "dimensions.h"
+       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+implicit none
+
+INCLUDE "YOMCST.h"
+
 
 !-------------------------------------------------------------------------