Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/vertical_nesting_mod.f90

    r2718 r3045  
    2626! -----------------
    2727! $Id$
     28! Error message revised
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2831! Corrected "Former revisions" section
    2932!
     
    267270   
    268271        IF ( myid == 0) THEN
    269             CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER, &
    270                 target_id, 0,                             &
    271                 terminate_coupled_remote, 1, MPI_INTEGER, &
    272                 target_id, 0,                             &
     272            CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,       &
     273                target_id, 0,                                                  &
     274                terminate_coupled_remote, 1, MPI_INTEGER,                      &
     275                target_id, 0,                                                  &
    273276                comm_inter, status, ierr )
    274277        ENDIF
     
    277280   
    278281        IF ( terminate_coupled_remote > 0 )  THEN
    279             WRITE( message_string, * ) 'remote model "',                         &
    280                 TRIM( coupling_mode_remote ),             &
    281                 '" terminated',                           &
    282                 '&with terminate_coupled_remote = ',      &
    283                 terminate_coupled_remote,                 &
    284                 '&local model  "', TRIM( coupling_mode ), &
    285                 '" has',                                  &
    286                 '&terminate_coupled = ',                  &
     282            WRITE( message_string, * ) 'remote model "',                       &
     283                TRIM( coupling_mode_remote ),                                  &
     284                '" terminated',                                                &
     285                ' with terminate_coupled_remote = ',                           &
     286                terminate_coupled_remote,                                      &
     287                ' local model  "', TRIM( coupling_mode ),                      &
     288                '" has',                                                       &
     289                ' terminate_coupled = ',                                       &
    287290                terminate_coupled
    288291            CALL message( 'vnest_init_fine', 'PA0310', 1, 2, 0, 6, 0 )
     
    27772780   
    27782781        IF ( terminate_coupled_remote > 0 )  THEN
    2779             WRITE( message_string, * ) 'remote model "',                         &
    2780                 TRIM( coupling_mode_remote ),             &
    2781                 '" terminated',                           &
    2782                 '&with terminate_coupled_remote = ',      &
    2783                 terminate_coupled_remote,                 &
    2784                 '&local model  "', TRIM( coupling_mode ), &
    2785                 '" has',                                  &
    2786                 '&terminate_coupled = ',                  &
     2782            WRITE( message_string, * ) 'remote model "',                       &
     2783                TRIM( coupling_mode_remote ),                                  &
     2784                '" terminated',                                                &
     2785                ' with terminate_coupled_remote = ',                           &
     2786                terminate_coupled_remote,                                      &
     2787                ' local model  "', TRIM( coupling_mode ),                      &
     2788                '" has',                                                       &
     2789                ' terminate_coupled = ',                                       &
    27872790                terminate_coupled
    27882791            CALL message( 'vnest_anterpolate', 'PA0310', 1, 2, 0, 6, 0 )
     
    33153318   
    33163319        IF ( myid == 0) THEN
    3317             CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER, &
    3318                 target_id, 0,                             &
    3319                 terminate_coupled_remote, 1, MPI_INTEGER, &
    3320                 target_id, 0,                             &
     3320            CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,       &
     3321                target_id, 0,                                                  &
     3322                terminate_coupled_remote, 1, MPI_INTEGER,                      &
     3323                target_id, 0,                                                  &
    33213324                comm_inter, status, ierr )
    33223325        ENDIF
    3323         CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d, &
     3326        CALL MPI_BCAST( terminate_coupled_remote, 1, MPI_INTEGER, 0, comm2d,   &
    33243327            ierr )
    33253328   
    33263329        IF ( terminate_coupled_remote > 0 )  THEN
    3327             WRITE( message_string, * ) 'remote model "',                         &
    3328                 TRIM( coupling_mode_remote ),             &
    3329                 '" terminated',                           &
    3330                 '&with terminate_coupled_remote = ',      &
    3331                 terminate_coupled_remote,                 &
    3332                 '&local model  "', TRIM( coupling_mode ), &
    3333                 '" has',                                  &
    3334                 '&terminate_coupled = ',                  &
     3330            WRITE( message_string, * ) 'remote model "',                       &
     3331                TRIM( coupling_mode_remote ),                                  &
     3332                '" terminated',                                                &
     3333                ' with terminate_coupled_remote = ',                           &
     3334                terminate_coupled_remote,                                      &
     3335                ' local model  "', TRIM( coupling_mode ),                      &
     3336                '" has',                                                       &
     3337                ' terminate_coupled = ',                                       &
    33353338                terminate_coupled
    33363339            CALL message( 'vnest_anterpolate_e', 'PA0310', 1, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.