Ignore:
Timestamp:
Aug 28, 2007 3:26:47 PM (15 years ago)
Author:
letzel
Message:
  • Bugfix in surface_coupler
  • mrun: completely remove workaround on lcfimm to propagate environment

variables out to the nodes in coupled mode

File:
1 edited

Legend:

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

    r108 r109  
    1313! cloud_physics = .T.)
    1414! Rayleigh damping for ocean fixed.
     15! Check and, if necessary, set default value for dt_coupling
    1516!
    1617! Former revisions:
     
    129130          ENDIF
    130131          CALL local_stop
     132       ENDIF
     133       IF ( dt_coupling <= 0.0 )  THEN
     134          CALL MPI_SEND( dt_max, 1, MPI_REAL, myid, 19, comm_inter, ierr )
     135          CALL MPI_RECV( remote, 1, MPI_REAL, myid, 19, comm_inter, status, &
     136               ierr )
     137          dt_coupling = MAX( dt_max, remote )
     138          IF ( myid == 0 )  THEN
     139             PRINT*, '+++ check_parameters:'
     140             PRINT*, '    TRIM( coupling_mode ): dt_coupling <= 0.0'
     141             PRINT*, '    is not allowed and is reset to MAX(dt_max(A,O)) = ', &
     142                  dt_coupling
     143          ENDIF
    131144       ENDIF
    132145       CALL MPI_SEND( restart_time, 1, MPI_REAL, myid, 12, comm_inter, ierr )
Note: See TracChangeset for help on using the changeset viewer.