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/time_integration.f90

    r106 r108  
    99! random perturbation has to be added to the velocity fields also after the
    1010! first substep
     11! modifications to terminate coupled runs
     12!
    1113!
    1214! Former revisions:
     
    7880    CALL run_control
    7981
     82!
     83!-- Data exchange between coupled models in case that a call has been omitted
     84!-- at the end of the previous run of a job chain.
     85    IF ( coupling_mode /= 'uncoupled' )  THEN
     86!
     87!--    In case of model termination initiated by the local model the coupler
     88!--    must not be called because this would again cause an MPI hang.
     89       DO WHILE ( time_coupling >= dt_coupling .AND. terminate_coupled == 0 )
     90          CALL surface_coupler
     91          time_coupling = time_coupling - dt_coupling
     92       ENDDO
     93    ENDIF
     94
     95
    8096#if defined( __dvrp_graphics )
    8197!
     
    306322       IF ( coupling_mode /= 'uncoupled' )  THEN
    307323          time_coupling = time_coupling + dt_3d
    308           DO WHILE ( time_coupling >= dt_coupling )
     324!
     325!--       In case of model termination initiated by the local model
     326!--       (terminate_coupled > 0), the coupler must be skipped because it would
     327!--       cause an MPI intercomminucation hang.
     328!--       If necessary, the coupler will be called at the beginning of the
     329!--       next restart run.
     330          DO WHILE ( time_coupling >= dt_coupling .AND. terminate_coupled == 0 )
    309331             CALL surface_coupler
    310332             time_coupling = time_coupling - dt_coupling
     
    327349!--    Check, if restart is necessary (because cpu-time is expiring or
    328350!--    because it is forced by user) and set stop flag
    329        CALL check_for_restart
     351!--    This call is skipped if the remote model has already initiated a restart.
     352       IF ( .NOT. terminate_run )  CALL check_for_restart
    330353
    331354!
Note: See TracChangeset for help on using the changeset viewer.