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

    r4 r108  
    44! Actual revisions:
    55! -----------------
     6! modifications to terminate coupled runs
    67!
    78!
     
    6768
    6869!
     70!-- In case of coupled runs inform the remote model of the termination
     71!-- and its reason, provided the remote model has not already been
     72!-- informed of another termination reason (terminate_coupled > 0) before,
     73!-- or vice versa (terminate_coupled_remote > 0).
     74    IF ( terminate_run .AND. TRIM( coupling_mode ) /= 'uncoupled'  &
     75         .AND. terminate_coupled == 0  &
     76         .AND. terminate_coupled_remote == 0 )  THEN
     77       terminate_coupled = 3
     78       CALL MPI_SENDRECV( &
     79            terminate_coupled,        1, MPI_INTEGER, myid,  0, &
     80            terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
     81            comm_inter, status, ierr )
     82    ENDIF
     83
     84!
    6985!-- Set the stop flag also, if restart is forced by user
    7086    IF ( time_restart /= 9999999.9  .AND.  time_restart < simulated_time ) &
     
    89105             PRINT*, '                 new restart time is: ', time_restart, ' s'
    90106          ENDIF
    91     ELSE
     107!
     108!--       In case of coupled runs inform the remote model of the termination
     109!--       and its reason, provided the remote model has not already been
     110!--       informed of another termination reason (terminate_coupled > 0) before,
     111!--       or vice versa (terminate_coupled_remote > 0).
     112          IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0  &
     113               .AND. terminate_coupled_remote == 0)  THEN
     114             IF ( dt_restart /= 9999999.9 )  THEN
     115                terminate_coupled = 4
     116             ELSE
     117                terminate_coupled = 5
     118             ENDIF
     119             CALL MPI_SENDRECV( &
     120                  terminate_coupled,        1, MPI_INTEGER, myid,  0, &
     121                  terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
     122                  comm_inter, status, ierr )
     123          ENDIF
     124       ELSE
    92125          time_restart = 9999999.9
    93126       ENDIF
Note: See TracChangeset for help on using the changeset viewer.