Changeset 1240 for palm/trunk/SOURCE/buoyancy.f90

Timestamp:

Oct 29, 2013 1:21:31 PM (10 years ago)

Author:

heinze

Message:

Undoing commit 1239

File:

• palm/trunk/SOURCE/buoyancy.f90 (modified) (4 diffs)

palm/trunk/SOURCE/buoyancy.f90

@@ -20 +20 @@
 ! Currrent revisions:
 ! ------------------
-! Generalize calc_mean_profile for wider use: use additional steering 
-! character loc
 !
 !
@@ -346 +344 @@
 
 
-    SUBROUTINE calc_mean_profile( var, pr, loc )
+    SUBROUTINE calc_mean_profile( var, pr )
 
 !------------------------------------------------------------------------------!
@@ -365 +363 @@
 
        INTEGER ::  i, j, k, omp_get_thread_num, pr, tn
-       CHARACTER (LEN=*) ::  loc
 #if defined( __nopointer )
        REAL, DIMENSION(:,:,:) ::  var
@@ -417 +414 @@
        ENDIF
 
-       SELECT CASE ( loc )
-
-          CASE ( 'time_int' )
-
-             ref_state(:)  = hom(:,1,pr,0)   ! this is used in the buoyancy term
-
-
-          CASE ( 'nudging' )
-             !nothing to be done
-
-
-          CASE DEFAULT
-             message_string = 'unknown location "' // loc // '"'
-             CALL message( 'calc_mean_profile', 'PA0379', 1, 2, 0, 6, 0 )
-
-       END SELECT
-
-
+       ref_state(:)  = hom(:,1,pr,0)   ! this is used in the buoyancy term
 
     END SUBROUTINE calc_mean_profile