Ignore:
Timestamp:
Aug 16, 2007 2:30:26 PM (14 years ago)
Author:
raasch
Message:

preliminary update of bugfixes and extensions for non-cyclic BCs

File:
1 edited

Legend:

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

    r104 r106  
    55! -----------------
    66! Intercommunicator (comm_inter) and derived data type (type_xy) for
    7 ! coupled model runs created
     7! coupled model runs created,
     8! indices nxlu and nysv are calculated (needed for non-cyclic boundary
     9! conditions)
    810!
    911! Former revisions:
     
    818820!
    819821!-- Setting of flags for inflow/outflow conditions in case of non-cyclic
    820 !-- horizontal boundary conditions. Set variables for extending array u (v)
    821 !-- by one gridpoint on the left/rightmost (northest/southest) processor
     822!-- horizontal boundary conditions.
    822823    IF ( pleft == MPI_PROC_NULL )  THEN
    823824       IF ( bc_lr == 'dirichlet/radiation' )  THEN
     
    869870    ENDIF
    870871#endif
     872!
     873!-- At the outflow, u or v, respectively, have to be calculated for one grid
     874!-- point less.
     875    IF ( outflow_l )  THEN
     876       nxlu = nxl + 1
     877    ELSE
     878       nxlu = nxl
     879    ENDIF
     880    IF ( outflow_s )  THEN
     881       nysv = nys + 1
     882    ELSE
     883       nysv = nys
     884    ENDIF
    871885
    872886    IF ( psolver == 'poisfft_hybrid' )  THEN
Note: See TracChangeset for help on using the changeset viewer.