Changeset 364 for codes/icosagcm/trunk/src/observable.f90

Timestamp:

10/09/15 16:13:43 (9 years ago)

Author:

dubos

Message:

Bugfix : memory leak in transfert_mpi / New : detect send_message not paired with wait_message

File:

• codes/icosagcm/trunk/src/observable.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/observable.f90

@@ -32 +32 @@
     USE omp_para
     TYPE(t_field),POINTER :: f_ps(:), f_u(:), f_q(:)
-    IF (is_master) PRINT *,'CALL write_output_fields_basic'
+!    IF (is_master) PRINT *,'CALL write_output_fields_basic'
     CALL un2ulonlat(f_u, f_buf_ulon, f_buf_ulat)
     CALL output_field("ulon",f_buf_ulon)