Changeset 108 for palm/trunk/SOURCE/palm.f90

Timestamp:

Aug 24, 2007 3:10:38 PM (15 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:

• palm/trunk/SOURCE/palm.f90 (modified) (3 diffs)

palm/trunk/SOURCE/palm.f90

@@ -5 +5 @@
 ! -----------------
 ! Get coupling mode from environment variable
+! Change localtion of debug output
 !
 ! Former revisions:
@@ -101 +102 @@
     CALL MPI_COMM_RANK( comm_palm, myid, ierr )
 #endif
-    CALL init_dvrp_logging
-
-!
-!-- Read control parameters from NAMELIST files and read environment-variables
-    CALL parin
-
-!
-!-- Determine processor topology and local array indices
-    CALL init_pegrid
 
 !
 !-- Open a file for debug output
+    WRITE (myid_char,'(''_'',I4.4)')  myid
     OPEN( 9, FILE='DEBUG'//TRIM( coupling_char )//myid_char, FORM='FORMATTED' )
 
@@ -122 +115 @@
     print*, '*** PE', myid, '  ', TRIM( coupling_mode )
 #endif
+
+    CALL init_dvrp_logging
+
+!
+!-- Read control parameters from NAMELIST files and read environment-variables
+    CALL parin
+
+!
+!-- Determine processor topology and local array indices
+    CALL init_pegrid
 
 !