Changeset 2365 for palm/trunk/UTIL

Timestamp:

Aug 21, 2017 2:59:59 PM (7 years ago)

Author:

kanani

Message:

Vertical nesting implemented (SadiqHuq?)

File:

• palm/trunk/UTIL/combine_plot_fields.f90 (modified) (5 diffs)

palm/trunk/UTIL/combine_plot_fields.f90

@@ -21 +21 @@
 ! -----------------
 ! 
-!
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Vertical grid nesting implemented (SadiqHuq)
+!
+! 1809 2016-04-05 20:13:28Z raasch
 !
 ! 1808 2016-04-05 19:44:00Z raasch
@@ -120 +123 @@
     LOGICAL  ::  avs_output, compressed, found, iso2d_output, netcdf_output,   &
                  netcdf_parallel, netcdf_0, netcdf_1
+    LOGICAL  ::  vnest
 
     REAL(wp) ::  cpu_start_time, cpu_end_time, dx, simulated_time
@@ -126 +130 @@
     REAL(spk), DIMENSION(:,:,:), ALLOCATABLE ::  pf3d, pf3d_tmp
 
+
+
     PRINT*, ''
     PRINT*, ''
@@ -133 +139 @@
 !-- Find out if a coupled run has been carried out
     INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
+    INQUIRE( FILE='VNESTING_PORT_OPENED', EXIST=vnest )
     IF ( found )  THEN
        models = 2
        PRINT*, '    coupled run'
+    ELSEIF ( vnest )  THEN
+       models = 2
+       PRINT*, '    Vertically nested grid coupling'
     ELSE
        models = 1
@@ -160 +170 @@
           PRINT*, '*** combine_plot_fields ***'
           IF ( model == 2 )  THEN
-             model_string = '_O'
-             PRINT*, '    now combining ocean data'
-             PRINT*, '    ========================'
+             IF ( vnest )  THEN
+                model_string = '_N'
+                PRINT*, '    now combining FINE data'
+                PRINT*, '    ========================'
+             ELSE
+                model_string = '_O'
+                PRINT*, '    now combining ocean data'
+                PRINT*, '    ========================'
+             ENDIF
           ELSE
-             PRINT*, '    now combining atmosphere data'
-             PRINT*, '    ============================='
+             IF ( vnest )  THEN
+                PRINT*, '    now combining COARSE data'
+                PRINT*, '    ============================='
+             ELSE
+                PRINT*, '    now combining atmosphere data'
+                PRINT*, '    ============================='
+             ENDIF
           ENDIF
        ENDIF