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

    r102 r108  
    55! -----------------
    66! Get coupling mode from environment variable
     7! Change localtion of debug output
    78!
    89! Former revisions:
     
    101102    CALL MPI_COMM_RANK( comm_palm, myid, ierr )
    102103#endif
    103     CALL init_dvrp_logging
    104 
    105 !
    106 !-- Read control parameters from NAMELIST files and read environment-variables
    107     CALL parin
    108 
    109 !
    110 !-- Determine processor topology and local array indices
    111     CALL init_pegrid
    112104
    113105!
    114106!-- Open a file for debug output
     107    WRITE (myid_char,'(''_'',I4.4)')  myid
    115108    OPEN( 9, FILE='DEBUG'//TRIM( coupling_char )//myid_char, FORM='FORMATTED' )
    116109
     
    122115    print*, '*** PE', myid, '  ', TRIM( coupling_mode )
    123116#endif
     117
     118    CALL init_dvrp_logging
     119
     120!
     121!-- Read control parameters from NAMELIST files and read environment-variables
     122    CALL parin
     123
     124!
     125!-- Determine processor topology and local array indices
     126    CALL init_pegrid
    124127
    125128!
Note: See TracChangeset for help on using the changeset viewer.