Changeset 114 for palm/trunk/UTIL/combine_plot_fields.f90
- Timestamp:
- Oct 10, 2007 12:03:15 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/combine_plot_fields.f90
- Property svn:keywords set to Id
r108 r114 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! loop for processing of output by coupled runs, id_string does not contain 7 ! modus any longer 6 ! Bugfix: model_string needed a default value 8 7 ! 9 8 ! Former revisions: 10 9 ! ----------------- 10 ! $Id$ 11 ! 12 ! Aug 07 Loop for processing of output by coupled runs, id_string does not 13 ! contain modus any longer 14 ! 11 15 ! 18/01/06 Output of time-averaged data 12 16 ! … … 106 110 107 111 PRINT*, '' 112 PRINT*, '' 108 113 PRINT*, '*** combine_plot_fields ***' 114 115 ! 116 !-- Find out if a coupled run has been carried out 109 117 INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found ) 110 118 IF ( found ) THEN … … 115 123 PRINT*, ' uncoupled run' 116 124 ENDIF 125 126 ! 127 !-- Do everything for each model 117 128 DO model = 1, models 129 ! 130 !-- Set the model string used to identify the filenames 131 model_string = '' 118 132 IF ( models == 2 ) THEN 119 PRINT*, ''120 133 PRINT*, '' 121 134 PRINT*, '*** combine_plot_fields ***' 122 135 IF ( model == 2 ) THEN 123 model_string = "_O"136 model_string = '_O' 124 137 PRINT*, ' now combining ocean data' 125 138 PRINT*, ' ========================' 126 139 ELSE 127 model_string = ""128 140 PRINT*, ' now combining atmosphere data' 129 141 PRINT*, ' ============================='
Note: See TracChangeset
for help on using the changeset viewer.