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

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 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_loc.F90 (modified) (2 diffs)

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

@@ -63 +63 @@
     ENDDO
 !$OMP BARRIER    
-    call Register_SwapField(new_field,new_field,ip1jmp1,ll,jj_Nb_master,Request_write)
-    call SendRequest(Request_write)
+    CALL Register_SwapField(new_field,new_field,ip1jmp1,ll,jj_Nb_master,Request_write)
+    CALL SendRequest(Request_write)
 !$OMP BARRIER
-    call WaitRequest(Request_write)     
+    CALL WaitRequest(Request_write)
 !$OMP BARRIER
 
 !$OMP MASTER
-    if (MPI_Rank==0) call WriteField(name,New_Field)
+    if (MPI_Rank==0) CALL WriteField(name,New_Field)
     DEALLOCATE(New_Field)
 !$OMP END MASTER        
@@ -139 +139 @@
     ENDDO
 !$OMP BARRIER    
-    call Register_SwapField(new_field,new_field,ip1jm,ll,jj_Nb_master,Request_write)
-    call SendRequest(Request_write)
+    CALL Register_SwapField(new_field,new_field,ip1jm,ll,jj_Nb_master,Request_write)
+    CALL SendRequest(Request_write)
 !$OMP BARRIER
-    call WaitRequest(Request_write)     
+    CALL WaitRequest(Request_write)
 !$OMP BARRIER
 
 !$OMP MASTER
-    if (MPI_Rank==0) call WriteField(name,New_Field)
+    if (MPI_Rank==0) CALL WriteField(name,New_Field)
     DEALLOCATE(New_Field)
 !$OMP END MASTER