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

Timestamp:

Sep 23, 2015 7:31:10 AM (9 years ago)

Author:

raasch

Message:

checking possible mismatch of current and required user interface revision

File:

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

palm/trunk/SOURCE/palm.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! check for user's interface version added
 !
 ! Former revisions:
@@ -99 +99 @@
     USE control_parameters,                                                    &
         ONLY:  coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
-               io_blocks, io_group, large_scale_forcing, nudging,              &
-               simulated_time, simulated_time_chr, version, wall_heatflux, write_binary
+               io_blocks, io_group, large_scale_forcing, message_string,       &
+               nudging, simulated_time, simulated_time_chr,                    &
+               user_interface_current_revision,                                &
+               user_interface_required_revision, version, wall_heatflux,       &
+               write_binary
 
     USE cpulog,                                                                &
@@ -110 +113 @@
 
     USE indices,                                                               &
-        ONLY:  ngp_2dh, ngp_2dh_s_inner, nzb_diff_s_inner, nzb_diff_s_outer, nzb_diff_u, nzb_diff_v,     &
-               nzb_s_inner, nzb_s_outer, nzb_u_inner, nzb_u_outer, nzb_v_inner,&
-               nzb_v_outer, nzb_w_inner, nzb_w_outer, rflags_invers,           &
-               rflags_s_inner, wall_flags_0, wall_flags_00
+        ONLY:  ngp_2dh, ngp_2dh_s_inner, nzb_diff_s_inner, nzb_diff_s_outer,   &
+               nzb_diff_u, nzb_diff_v, nzb_s_inner, nzb_s_outer, nzb_u_inner,  &
+               nzb_u_outer, nzb_v_inner, nzb_v_outer, nzb_w_inner,             &
+               nzb_w_outer, rflags_invers, rflags_s_inner, wall_flags_0,       &
+               wall_flags_00
 
     USE kinds
@@ -149 +153 @@
 
     version = 'PALM 4.0'
+    user_interface_required_revision = 'r1663'
 
 #if defined( __parallel )
@@ -231 +236 @@
 !-- Read control parameters from NAMELIST files and read environment-variables
     CALL parin
+
+!
+!-- Check for the user's interface version
+    IF ( user_interface_current_revision /= user_interface_required_revision )  &
+    THEN
+       message_string = 'current user-interface revision "' //                  &
+                        TRIM( user_interface_current_revision ) // '" does ' // &
+                        'not match the required revision ' //                   &
+                        TRIM( user_interface_required_revision )
+        CALL message( 'palm', 'PA0169', 0, 1, 0, 6, 0 )
+    ENDIF
 
 !