Changeset 2669 for palm/trunk/UTIL/combine_plot_fields.f90
- Timestamp:
- Dec 6, 2017 4:03:27 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/combine_plot_fields.f90
r2523 r2669 25 25 ! ----------------- 26 26 ! $Id$ 27 ! data of 3d-nest runs are completely processed now 28 ! 29 ! 2523 2017-10-05 14:42:47Z kanani 27 30 ! Increased LEN for CHARACTER variable var_name, equal to the value in PALM 28 31 ! … … 105 108 ! 106 109 !-- Local variables 107 CHARACTER (LEN=2) :: modus, model_string 110 CHARACTER (LEN=2) :: modus 111 CHARACTER (LEN=4) :: model_string 108 112 CHARACTER (LEN=6) :: id_string 109 113 CHARACTER (LEN=30) :: dimname, var_name … … 116 120 INTEGER(iwp) :: av, danz, i, id, j, k, model, models, nc_stat, & 117 121 nxa, nxag, nxe, nxeg, nya, nyag, nye, nyeg, & 118 nza, nze, pos, time_step, & 119 xa, xe, xxa, xxe, ya, ya_do, ya_tot, ye, ye_do, ye_tot, yya, yye, za, & 120 ze, zza, zze 122 nza, nze, pos, time_step, xa, xe, xxa, xxe, ya, ya_do, & 123 ya_tot, ye, ye_do, ye_tot, yya, yye, za, ze, zza, zze 121 124 122 125 INTEGER(8) :: count, count_rate … … 128 131 INTEGER(iwp), DIMENSION(0:1,1000) :: id_var, levels 129 132 130 LOGICAL :: found, ne tcdf_output, netcdf_parallel, netcdf_0, netcdf_1131 LOGICAL ::vnest133 LOGICAL :: found, nest3d, netcdf_output, netcdf_parallel, netcdf_0, & 134 netcdf_1, vnest 132 135 133 136 REAL(wp) :: cpu_start_time, cpu_end_time, dx, simulated_time … … 142 145 143 146 ! 144 !-- Find out if a coupled run has been carried out147 !-- Find out if a coupled or nested run has been carried out 145 148 INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found ) 146 149 INQUIRE( FILE='VNESTING_PORT_OPENED', EXIST=vnest ) 150 INQUIRE( FILE='3DNESTING', EXIST=nest3d ) 147 151 IF ( found ) THEN 148 152 models = 2 … … 151 155 models = 2 152 156 PRINT*, ' Vertically nested grid coupling' 157 ELSEIF ( nest3d ) THEN 158 OPEN( 90, FILE='3DNESTING', FORM='FORMATTED' ) 159 READ ( 90, '(I2)' ) models 160 CLOSE ( 90 ) 161 PRINT*, ' 3d-nest run' 162 PRINT*, ' number of nest domains = ', models 153 163 ELSE 154 164 models = 1 … … 171 181 ! 172 182 !-- Set the model string used to identify the filenames 173 IF ( models == 2) THEN183 IF ( found .OR. vnest ) THEN 174 184 PRINT*, '' 175 PRINT*, '*** combine_plot_fields ***'176 185 IF ( model == 2 ) THEN 177 186 IF ( vnest ) THEN … … 193 202 ENDIF 194 203 ENDIF 204 ELSEIF ( nest3d ) THEN 205 PRINT*, '' 206 PRINT*, '--> processing nest id = ', model 207 IF ( model == 1 ) THEN 208 model_string = '' 209 ELSE 210 WRITE( model_string, '(A2,I2.2)' ) '_N', model 211 ENDIF 195 212 ENDIF 196 213 ! … … 260 277 !-- Info-output 261 278 PRINT*, '' 262 PRINT*, '*** combine_plot_fields ***'263 279 #if defined( __netcdf ) 264 280 IF ( netcdf_output ) THEN … … 568 584 !-- Info-output 569 585 PRINT*, ' ' 570 PRINT*, '*** combine_plot_fields ***'571 586 572 587 !
Note: See TracChangeset
for help on using the changeset viewer.