Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/write_field_p.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/write_field_p.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/write_field_p.F90

@@ -23 +23 @@
     allocate(New_Field(Dim(1)))
     New_Field(:)=Field(:)
-    call Gather_Field(New_Field,dim(1),1,0)
+    CALL Gather_Field(New_Field,dim(1),1,0)
     
-    if (MPI_Rank==0) call WriteField(name,New_Field)
+    if (MPI_Rank==0) CALL WriteField(name,New_Field)
     
     end subroutine write_field1D_p
@@ -43 +43 @@
     allocate(New_Field(Dim(1),Dim(2)))
     New_Field(:,:)=Field(:,:)
-    call Gather_Field(New_Field(1,1),dim(1)*dim(2),1,0)
+    CALL Gather_Field(New_Field(1,1),dim(1)*dim(2),1,0)
     
-    if (MPI_Rank==0) call WriteField(name,New_Field)
+    if (MPI_Rank==0) CALL WriteField(name,New_Field)
     
      
@@ -64 +64 @@
     allocate(New_Field(Dim(1),Dim(2),Dim(3)))
     New_Field(:,:,:)=Field(:,:,:)
-    call Gather_Field(New_Field(1,1,1),dim(1)*dim(2),dim(3),0)
+    CALL Gather_Field(New_Field(1,1,1),dim(1)*dim(2),dim(3),0)
     
-   if (MPI_Rank==0) call WriteField(name,New_Field)
+   if (MPI_Rank==0) CALL WriteField(name,New_Field)
     
   end subroutine write_field3D_p