Changeset 358 for codes/icosagcm/trunk/src/transfert.F90

Timestamp:

09/07/15 18:28:16 (9 years ago)

Author:

llfita

Message:

Modifying code to be 'gfortran' compatible:

• Change WRITE(' ',)... by PRINT *,
• Shorten some code lines

File:

• codes/icosagcm/trunk/src/transfert.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/transfert.F90

@@ -3 +3 @@
 #ifdef CPP_USING_MPI
   USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1_vect, &
-                                req_e1_scal, req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, scatter_field, &
-                                t_message,init_message=>init_message_mpi,transfert_message=>transfert_message_mpi,  &
-                                send_message=>send_message_mpi,test_message=>test_message_mpi,wait_message=>wait_message_mpi,barrier, &
-                                bcast_mpi
+                                req_e1_scal, req_i0, req_e0_vect, req_e0_scal, request_add_point,             &
+                                create_request, gather_field, scatter_field,         &
+                                t_message, init_message=>init_message_mpi,           &
+                                transfert_message=>transfert_message_mpi,            &
+                                send_message=>send_message_mpi,                      &
+                                test_message=>test_message_mpi,                      &
+                                wait_message=>wait_message_mpi,barrier,bcast_mpi
 #else 
   USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_seq, req_i1,req_e1_vect, &
-                                req_e1_scal,req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, scatter_field,&
-                                t_message,init_message=>init_message_seq,transfert_message=>transfert_message_seq,  &
-                                send_message=>send_message_seq,test_message=>test_message_seq,wait_message=>wait_message_seq,barrier, &
-                                bcast_mpi
+                                req_e1_scal,req_i0, req_e0_vect, req_e0_scal,        &
+                                request_add_point, create_request, gather_field,     &
+                                scatter_field, t_message,                            &
+                                init_message=>init_message_seq,                      &
+                                transfert_message=>transfert_message_seq,            &
+                                send_message=>send_message_seq,                      &
+                                test_message=>test_message_seq,                      &
+                                wait_message=>wait_message_seq,barrier, bcas_mpi
 #endif