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

Timestamp:

Oct 29, 2013 10:11:53 AM (11 years ago)

Author:

heinze

Message:

routines for nudging and large scale forcing from external file added

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
 !
 !
@@ -344 +346 @@
 
 
-    SUBROUTINE calc_mean_profile( var, pr )
+    SUBROUTINE calc_mean_profile( var, pr, loc )
 
 !------------------------------------------------------------------------------!
@@ -363 +365 @@
 
        INTEGER ::  i, j, k, omp_get_thread_num, pr, tn
+       CHARACTER (LEN=*) ::  loc
 #if defined( __nopointer )
        REAL, DIMENSION(:,:,:) ::  var
@@ -414 +417 @@
        ENDIF
 
-       ref_state(:)  = hom(:,1,pr,0)   ! this is used in the buoyancy term
+       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
+
+
 
     END SUBROUTINE calc_mean_profile