Changeset 1791 for palm/trunk/SOURCE/pmc_client.f90

Timestamp:

Mar 11, 2016 10:41:25 AM (9 years ago)

Author:

raasch

Message:

output of nesting informations of all domains; filling up redundant ghost points; renaming of variables, etc.; formatting cleanup

File:

• palm/trunk/SOURCE/pmc_client.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_client.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Debug write-statement commented out
 !
 ! Former revisions:
@@ -150 +150 @@
         end do
 
-        if(me%model_rank == 0) write(0,'(a,5i6)') 'PMC_ClientInit ',me%model_rank,me%model_npes,me%inter_npes,me%intra_rank
+!        if(me%model_rank == 0) write(0,'(a,5i6)') 'PMC_ClientInit ',me%model_rank,me%model_npes,me%inter_npes,me%intra_rank
 
         return