Changeset 274 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

• palm/trunk/SOURCE/surface_coupler.f90 (modified) (1 diff)

palm/trunk/SOURCE/surface_coupler.f90

@@ -53 +53 @@
                        0, comm_inter, status, ierr )
     IF ( terminate_coupled_remote > 0 )  THEN
-       WRITE( message_string, * ) 'remote model "', TRIM( coupling_mode_remote ), &
-                                  '" terminated',                                 &
-                                  '&with terminate_coupled_remote = ',            &
-                                  terminate_coupled_remote,                       &
-                                  '&local model  "', TRIM( coupling_mode ),       &
-                                  '" has',                                        &
-                                  '&terminate_coupled = ',                        &
+       WRITE( message_string, * ) 'remote model "',                         &
+                                  TRIM( coupling_mode_remote ),             &
+                                  '" terminated',                           &
+                                  '&with terminate_coupled_remote = ',      &
+                                  terminate_coupled_remote,                 &
+                                  '&local model  "', TRIM( coupling_mode ), &
+                                  '" has',                                  &
+                                  '&terminate_coupled = ',                  &
                                   terminate_coupled
        CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )