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

    r106 r108  
    44! Actual revisions:
    55! -----------------
     6! TEST OUTPUT (TO BE REMOVED) logging mpi2 ierr values
    67! Intercommunicator (comm_inter) and derived data type (type_xy) for
    7 ! coupled model runs created,
     8! coupled model runs created, assign coupling_mode_remote
    89! indices nxlu and nysv are calculated (needed for non-cyclic boundary
    910! conditions)
     
    467468
    468469!
    469 !--    Recieve data from the other PEs
     470!--    Receive data from the other PEs
    470471       DO  i = 1,numprocs-1
    471472          CALL MPI_RECV( ibuf, 12, MPI_INTEGER, i, MPI_ANY_TAG, comm2d, status, &
     
    494495
    495496          CALL MPI_OPEN_PORT( MPI_INFO_NULL, port_name, ierr )
     497!
     498!--       TEST OUTPUT (TO BE REMOVED)
     499          WRITE(9,*)  TRIM( coupling_mode ),  &
     500               ', ierr after MPI_OPEN_PORT: ', ierr
     501          CALL LOCAL_FLUSH( 9 )
     502
    496503          CALL MPI_PUBLISH_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, &
    497504                                 ierr )
     505!
     506!--       TEST OUTPUT (TO BE REMOVED)
     507          WRITE(9,*)  TRIM( coupling_mode ),  &
     508               ', ierr after MPI_PUBLISH_NAME: ', ierr
     509          CALL LOCAL_FLUSH( 9 )
     510
    498511!
    499512!--       Write a flag file for the ocean model and the other atmosphere
     
    519532
    520533          CALL MPI_LOOKUP_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, ierr )
     534!
     535!--       TEST OUTPUT (TO BE REMOVED)
     536          WRITE(9,*)  TRIM( coupling_mode ),  &
     537               ', ierr after MPI_LOOKUP_NAME: ', ierr
     538          CALL LOCAL_FLUSH( 9 )
     539
    521540
    522541       ENDIF
     
    535554       print*, '--- ierr = ', ierr
    536555       print*, '--- comm_inter atmosphere = ', comm_inter
     556
     557       coupling_mode_remote = 'ocean_to_atmosphere'
    537558
    538559    ELSEIF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
     
    544565       print*, '--- ierr = ', ierr
    545566       print*, '--- comm_inter ocean      = ', comm_inter
     567
     568       coupling_mode_remote = 'atmosphere_to_ocean'
    546569
    547570    ENDIF
Note: See TracChangeset for help on using the changeset viewer.