Ignore:
Timestamp:
Aug 24, 2007 3:10:38 PM (14 years ago)
Author:
letzel
Message:
  • Improved coupler: evaporation - salinity-flux coupling for humidity = .T.,

avoid MPI hangs when coupled runs terminate, add DOC/app/chapter_3.8;

  • Optional calculation of km and kh from initial TKE e_init;
  • Default initialization of km,kh = 0.00001 for ocean = .T.;
  • Allow data_output_pr= q, wq, w"q", w*q* for humidity = .T.;
  • Bugfix: Rayleigh damping for ocean fixed.
File:
1 edited

Legend:

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

    r4 r108  
    44! Actual revisions:
    55! -----------------
     6! modifications to terminate coupled runs
    67!
    78!
     
    192193       IF ( dt_3d < ( 0.00001 * dt_max ) )  THEN
    193194          stop_dt = .TRUE.
     195
    194196          IF ( myid == 0 )  THEN
    195197             PRINT*,'+++ time_step: Time step has reached minimum limit.'
     
    207209                    '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
    208210          ENDIF
     211!
     212!--       In case of coupled runs inform the remote model of the termination
     213!--       and its reason, provided the remote model has not already been
     214!--       informed of another termination reason (terminate_coupled > 0) before.
     215          IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0 )  THEN
     216             terminate_coupled = 2
     217             CALL MPI_SENDRECV( &
     218                  terminate_coupled,        1, MPI_INTEGER, myid,  0, &
     219                  terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
     220                  comm_inter, status, ierr )
     221          ENDIF
     222
    209223       ENDIF
    210224
Note: See TracChangeset for help on using the changeset viewer.