Changeset 4593 for LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

Timestamp:

Jun 29, 2023, 3:55:54 PM (11 months ago)

Author:

yann meurdesoif

Message:

Replace #include (c preprocessor) by INCLUDE (fortran keyword)

in phylmd (except rrtm and ecrad) filtrez, dy3dmem and dyn3dcommon

Other directories will follow
YM

File:

• LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90 (modified) (8 diffs)

LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

@@ -92 +92 @@
       include 'mpif.h'
 #endif
-#include "dimensions.h"
-#include "paramet.h"
-#include "iniprint.h"
+      INCLUDE "dimensions.h"
+      INCLUDE "paramet.h"
+      INCLUDE "iniprint.h"
 
       integer :: ierr
@@ -456 +456 @@
     implicit none
 
-#include "dimensions.h"
-#include "paramet.h"
+      INCLUDE "dimensions.h"
+      INCLUDE "paramet.h"
 
       integer, intent(in) :: ij,ll,row
@@ -479 +479 @@
     implicit none
 
-#include "dimensions.h"
-#include "paramet.h"
+      INCLUDE "dimensions.h"
+      INCLUDE "paramet.h"
 
       integer, intent(in) :: ij,ll,row
@@ -520 +520 @@
     USE Vampir
     implicit none
-#include "dimensions.h"
-#include "paramet.h"    
+      INCLUDE "dimensions.h"
+      INCLUDE "paramet.h"    
 #ifdef CPP_MPI
     include 'mpif.h'
@@ -652 +652 @@
     subroutine Gather_Field(Field,ij,ll,rank)
     implicit none
-#include "dimensions.h"
-#include "paramet.h" 
-#include "iniprint.h"
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h" 
+    INCLUDE "iniprint.h"
 #ifdef CPP_MPI
     include 'mpif.h'
@@ -736 +736 @@
     subroutine AllGather_Field(Field,ij,ll)
     implicit none
-#include "dimensions.h"
-#include "paramet.h"    
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"    
 #ifdef CPP_MPI
     include 'mpif.h'
@@ -758 +758 @@
    subroutine Broadcast_Field(Field,ij,ll,rank)
     implicit none
-#include "dimensions.h"
-#include "paramet.h"    
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"    
 #ifdef CPP_MPI
     include 'mpif.h'
@@ -782 +782 @@
 !  Subroutine verif_hallo(Field,ij,ll,up,down)
 !    implicit none
-!#include "dimensions.h"
-!#include "paramet.h"    
+!      INCLUDE "dimensions.h"
+!      INCLUDE "paramet.h"    
 !    include 'mpif.h'
 !