Changeset 4048 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jun 21, 2019 9:00:21 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r4047 r4048 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Moved turbulence_closure_mod calls into this module_interface 28 ! 29 ! 4047 2019-06-21 18:58:09Z knoop 27 30 ! Introduction of the dynamics module 28 31 ! … … 168 171 169 172 USE turbulence_closure_mod, & 170 ONLY: tcm_swap_timelevel 173 ONLY: tcm_check_parameters, & 174 tcm_check_data_output, & 175 tcm_init_arrays, & 176 tcm_init, & 177 tcm_actions, & 178 tcm_prognostic_equations, & 179 tcm_swap_timelevel, & 180 tcm_3d_data_averaging, & 181 tcm_data_output_2d, & 182 tcm_data_output_3d 171 183 172 184 USE control_parameters, & … … 659 671 660 672 CALL dynamics_check_parameters 673 CALL tcm_check_parameters 661 674 662 675 IF ( bulk_cloud_model ) CALL bcm_check_parameters … … 797 810 CALL dynamics_check_data_output( variable, unit ) 798 811 812 CALL tcm_check_data_output( variable, unit ) 813 799 814 IF ( unit == 'illegal' .AND. biometeorology ) THEN 800 815 CALL bio_check_data_output( variable, unit, i, j, ilen, k ) … … 946 961 947 962 CALL dynamics_init_arrays 963 CALL tcm_init_arrays 948 964 949 965 IF ( bulk_cloud_model ) CALL bcm_init_arrays … … 977 993 978 994 CALL dynamics_init 995 CALL tcm_init 979 996 980 997 IF ( biometeorology ) CALL bio_init … … 1074 1091 1075 1092 CALL dynamics_actions( location ) 1093 CALL tcm_actions( location ) 1076 1094 1077 1095 IF ( bulk_cloud_model ) CALL bcm_actions( location ) … … 1102 1120 1103 1121 CALL dynamics_actions( i, j, location ) 1122 CALL tcm_actions( i, j, location ) 1104 1123 1105 1124 IF ( bulk_cloud_model ) CALL bcm_actions( i, j, location ) … … 1185 1204 1186 1205 CALL dynamics_prognostic_equations 1206 CALL tcm_prognostic_equations 1187 1207 1188 1208 IF ( bulk_cloud_model ) CALL bcm_prognostic_equations … … 1210 1230 1211 1231 CALL dynamics_prognostic_equations( i, j, i_omp_start, tn ) 1232 CALL tcm_prognostic_equations( i, j, i_omp_start, tn ) 1212 1233 1213 1234 IF ( bulk_cloud_model ) CALL bcm_prognostic_equations( i, j, i_omp_start, tn ) … … 1267 1288 1268 1289 CALL dynamics_3d_data_averaging( mode, variable ) 1290 CALL tcm_3d_data_averaging( mode, variable ) 1269 1291 1270 1292 IF ( biometeorology ) CALL bio_3d_data_averaging( mode, variable ) … … 1315 1337 ) 1316 1338 1339 IF ( .NOT. found ) THEN 1340 CALL tcm_data_output_2d( & 1341 av, variable, found, grid, mode, local_pf, nzb_do, nzt_do & 1342 ) 1343 ENDIF 1344 1317 1345 IF ( .NOT. found .AND. biometeorology ) THEN 1318 1346 CALL bio_data_output_2d( & … … 1406 1434 CALL dynamics_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do ) 1407 1435 resorted = .FALSE. 1436 1437 IF ( .NOT. found ) THEN 1438 CALL tcm_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do ) 1439 resorted = .TRUE. 1440 ENDIF 1408 1441 1409 1442 IF ( .NOT. found .AND. biometeorology ) THEN
Note: See TracChangeset
for help on using the changeset viewer.