Changeset 367 for codes/icosagcm/trunk/src/domain.f90

Timestamp:

01/13/16 14:38:13 (8 years ago)

Author:

dubos

Message:

Small bugfixes / improvements

File:

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

codes/icosagcm/trunk/src/domain.f90

@@ -563 +563 @@
        IF (rank==omp_domain_rank) THEN 
          assigned_domain(ind)=.TRUE.
-         PRINT *,"Rank ",mpi_rank," task ",rank," local domain : ",ind," global domain ",domloc_glo_ind(ind)
+         WRITE(*,'(A,I6.6,A,I4.4,A,I4.4,A,I8.8)') "Rank ",mpi_rank,"  task ",rank,"  local domain ",ind,"  global domain ",domloc_glo_ind(ind)
        ELSE
          assigned_domain(ind)=.FALSE.