Changeset 3956 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- May 7, 2019 12:32:52 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3931 r3956 25 25 ! ----------------- 26 26 ! $Id$ 27 ! - Added calls for salsa_non_advective_processes and 28 ! salsa_exchange_horiz_bounds 29 ! - Moved the call for salsa_data_output_2d/3d before that of 30 ! radiation_data_output_2d/3d. radiation_data_output_2d/3d tries to read a 31 ! salsa output variable and encounters a segmentation fault for "Ntot" due 32 ! to the shortoutput name 33 ! 34 ! 3931 2019-04-24 16:34:28Z schwenkel 27 35 ! Changed non_transport_physics to non_advective_processes 28 36 ! … … 158 166 bcm_actions, & 159 167 bcm_non_advective_processes, & 160 bcm_exchange_horiz, & 168 bcm_exchange_horiz, & 161 169 bcm_prognostic_equations, & 162 170 bcm_swap_timelevel, & … … 303 311 salsa_header, & 304 312 salsa_actions, & 313 salsa_non_advective_processes, & 314 salsa_exchange_horiz_bounds, & 305 315 salsa_prognostic_equations, & 306 316 salsa_swap_timelevel, & … … 963 973 IF ( bulk_cloud_model ) CALL bcm_non_advective_processes() 964 974 IF ( air_chemistry ) CALL chem_non_advective_processes() 975 IF ( salsa ) CALL salsa_non_advective_processes() 965 976 966 977 … … 980 991 981 992 982 IF ( bulk_cloud_model ) CALL bcm_non_advective_processes( i, j ) 993 IF ( bulk_cloud_model ) CALL bcm_non_advective_processes( i, j ) 983 994 IF ( air_chemistry ) CALL chem_non_advective_processes( i, j ) 995 IF ( salsa ) CALL salsa_non_advective_processes( i, j ) 984 996 985 997 … … 996 1008 IF ( bulk_cloud_model ) CALL bcm_exchange_horiz() 997 1009 IF ( air_chemistry ) CALL chem_exchange_horiz_bounds() 1010 IF ( salsa ) CALL salsa_exchange_horiz_bounds() 998 1011 999 1012 END SUBROUTINE module_interface_exchange_horiz … … 1149 1162 ENDIF 1150 1163 1164 IF ( .NOT. found .AND. salsa ) THEN 1165 CALL salsa_data_output_2d( & 1166 av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do& 1167 ) 1168 ENDIF 1169 1151 1170 IF ( .NOT. found .AND. radiation ) THEN 1152 1171 CALL radiation_data_output_2d( & 1153 av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&1154 )1155 ENDIF1156 1157 IF ( .NOT. found .AND. salsa ) THEN1158 CALL salsa_data_output_2d( &1159 1172 av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do& 1160 1173 ) … … 1226 1239 ENDIF 1227 1240 1241 IF ( .NOT. found .AND. salsa ) THEN 1242 CALL salsa_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do ) 1243 resorted = .TRUE. 1244 ENDIF 1245 1228 1246 IF ( .NOT. found .AND. radiation ) THEN 1229 1247 CALL radiation_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do ) 1230 resorted = .TRUE.1231 ENDIF1232 1233 IF ( .NOT. found .AND. salsa ) THEN1234 CALL salsa_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )1235 1248 resorted = .TRUE. 1236 1249 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.