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

Timestamp:

06/08/16 02:50:01 (8 years ago)

Author:

ymipsl

Message:

bug fix when porting to gortran (mostly line size >132)

YM

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.
-         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)
+         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.