Ignore:
Timestamp:
Dec 20, 2018 1:51:36 AM (3 years ago)
Author:
knoop
Message:

M Makefile

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/write_restart_data_mod.f90

    r3589 r3637  
    2525! -----------------
    2626! $Id$
     27! Implementation of the PALM module interface
     28!
     29! 3589 2018-11-30 15:09:51Z suehring
    2730! Move the control parameter "salsa" from salsa_mod to control_parameters
    2831! (M. Kurppa)
     
    6972
    7073
     74    USE arrays_3d,                                                          &
     75        ONLY:  inflow_damping_factor, mean_inflow_profiles, pt_init,        &
     76               q_init, ref_state, s_init, u_init, ug, v_init, vg,           &
     77               e, kh, km, p, pt, q, ql, s, u, u_m_l, u_m_n, u_m_r,          &
     78               u_m_s, v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, w, w_m_l, w_m_n,  &
     79               w_m_r, w_m_s
     80
     81    USE averaging
     82
    7183    USE control_parameters
    72  
    73     USE kinds     
     84
     85    USE date_and_time_mod,                                                     &
     86        ONLY:  day_of_year_init, time_utc_init
     87
     88    USE grid_variables,                                                        &
     89        ONLY:  dx, dy
     90
     91    USE indices,                                                               &
     92        ONLY:  nx, nxl, nxr, ny, nys, nyn, nz, nzb, nzt
     93
     94    USE kinds
     95
     96    USE model_1d_mod,                                                          &
     97        ONLY:  damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
     98
     99    USE module_interface,                                                      &
     100        ONLY:  module_interface_wrd_global,                                    &
     101               module_interface_wrd_local
     102
     103    USE netcdf_interface,                                                      &
     104        ONLY:  netcdf_precision, output_for_t0
     105
     106    USE particle_attributes,                                                   &
     107        ONLY:  curvature_solution_effects, iran_part
    74108
    75109    USE pegrid,                                                                &
    76         ONLY:  myid, numprocs
    77      
     110        ONLY:  collective_wait, hor_index_bounds, myid, numprocs
     111
     112    USE radiation_model_mod,                                                   &
     113        ONLY:  time_radiation
     114
     115    USE random_function_mod,                                                   &
     116        ONLY:  random_iv, random_iy
     117
     118    USE random_generator_parallel,                                             &
     119        ONLY:  id_random_array, seq_random_array
     120
     121    USE spectra_mod,                                                           &
     122        ONLY:  average_count_sp, spectrum_x, spectrum_y
     123
     124    USE statistics,                                                            &
     125        ONLY:  statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max,       &
     126               v_max_ijk, w_max, w_max_ijk, z_i
     127
     128    USE surface_mod,                                                           &
     129        ONLY :  surface_wrd_local
     130
     131    USE vertical_nesting_mod,                                                  &
     132        ONLY:  vnest_init
     133
    78134
    79135    IMPLICIT NONE
     
    103159    SUBROUTINE wrd_global
    104160
    105 
    106        USE arrays_3d,                                                          &
    107            ONLY:  inflow_damping_factor, mean_inflow_profiles, pt_init,        &
    108                   q_init, ref_state, s_init, u_init, ug, v_init, vg
    109 
    110        USE bulk_cloud_model_mod,                                               &
    111            ONLY:  bulk_cloud_model, bcm_wrd_global
    112 
    113        USE date_and_time_mod,                                                  &
    114            ONLY:  day_of_year_init, time_utc_init
    115 
    116        USE flight_mod,                                                         &
    117            ONLY:  flight_wrd_global
    118 
    119        USE grid_variables,                                                     &
    120            ONLY:  dx, dy
    121 
    122        USE gust_mod,                                                           &
    123            ONLY :  gust_module_enabled, gust_wrd_global
    124 
    125        USE indices,                                                            &
    126            ONLY:  nx, ny, nz
    127 
    128        USE model_1d_mod,                                                       &
    129            ONLY:  damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
    130 
    131        USE netcdf_interface,                                                   &
    132            ONLY:  netcdf_precision, output_for_t0
    133 
    134        USE ocean_mod,                                                          &
    135            ONLY:  ocean_wrd_global
    136 
    137        USE particle_attributes,                                                &
    138            ONLY:  curvature_solution_effects
    139 
    140        USE pegrid,                                                             &
    141            ONLY:  hor_index_bounds, collective_wait                               
    142 
    143        USE radiation_model_mod,                                                &
    144            ONLY:  time_radiation
    145 
    146        USE spectra_mod,                                                        &
    147            ONLY:  average_count_sp, spectrum_x, spectrum_y
    148 
    149        USE synthetic_turbulence_generator_mod,                                 &
    150            ONLY:  stg_wrd_global
    151 
    152        USE statistics,                                                         &
    153            ONLY:  statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max,    &
    154                   v_max_ijk, w_max, w_max_ijk, z_i
    155 
    156        USE user_write_restart_data_mod,                                        &
    157            ONLY:  user_wrd_global
    158 
    159        USE vertical_nesting_mod,                                               &
    160            ONLY:  vnest_init
    161 
    162        USE wind_turbine_model_mod,                                             &
    163            ONLY:  wtm_wrd_global
    164      
    165 
    166        IMPLICIT NONE
    167161
    168162       CHARACTER (LEN=10)  ::  binary_version_global   !<
     
    886880!
    887881!--    Write restart data of the other modules
    888 !--    The order of the calls can be different as in read_restart_data_mod where
    889 !--    the restart data will be read
    890        IF ( bulk_cloud_model )     CALL bcm_wrd_global
    891        IF ( virtual_flight )       CALL flight_wrd_global
    892        IF ( gust_module_enabled )  CALL gust_wrd_global
    893        IF ( ocean_mode )           CALL ocean_wrd_global
    894        IF ( syn_turb_gen )         CALL stg_wrd_global
    895        IF ( wind_turbine )         CALL wtm_wrd_global
    896 !
    897 !--    Write restart data of the user-interface
    898        CALL user_wrd_global
     882       CALL module_interface_wrd_global
    899883
    900884
     
    910894!------------------------------------------------------------------------------!
    911895    SUBROUTINE wrd_local
    912  
    913 
    914        USE arrays_3d,                                                          &
    915            ONLY:  e, kh, km, p, pt, q, ql, s, u, u_m_l, u_m_n, u_m_r,          &
    916                   u_m_s, v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, w, w_m_l, w_m_n,  &
    917                   w_m_r, w_m_s
    918        
    919        USE averaging
    920 
    921        USE bulk_cloud_model_mod,                                               &
    922            ONLY:  bulk_cloud_model, bcm_wrd_local
    923 
    924        USE chemistry_model_mod,                                                &
    925            ONLY:  chem_wrd_local
    926 
    927        USE gust_mod,                                                           &
    928            ONLY :  gust_module_enabled, gust_wrd_local
    929                
    930        USE indices,                                                            &
    931            ONLY:  nxl, nxr, nys, nyn, nzb, nzt
    932 
    933        USE land_surface_model_mod,                                             &
    934            ONLY:  lsm_wrd_local
    935 
    936        USE ocean_mod,                                                          &
    937            ONLY:  ocean_wrd_local
    938 
    939        USE particle_attributes,                                                &
    940            ONLY:  iran_part
    941 
    942        USE radiation_model_mod,                                                &
    943            ONLY:  radiation, radiation_wrd_local
    944    
    945        USE random_function_mod,                                                &
    946            ONLY:  random_iv, random_iy
    947 
    948        USE random_generator_parallel,                                          &
    949            ONLY:  id_random_array, seq_random_array
    950              
    951        USE salsa_mod,                                                          &
    952            ONLY:  salsa_wrd_local         
    953 
    954        USE surface_mod,                                                        &
    955            ONLY :  surface_wrd_local
    956 
    957        USE urban_surface_mod,                                                  &
    958            ONLY:  usm_wrd_local   
    959 
    960        USE user_write_restart_data_mod,                                        &
    961            ONLY:  user_wrd_local
    962 
    963 
    964        IMPLICIT NONE
     896
    965897
    966898       CHARACTER (LEN=10) ::  binary_version_local   !<
    967 
    968899
    969900!
     
    12711202       ENDIF
    12721203
     1204
     1205       CALL surface_wrd_local
     1206
    12731207!
    12741208!--    Write restart data of other modules
    1275        IF ( bulk_cloud_model )     CALL bcm_wrd_local
    1276        IF ( air_chemistry )        CALL chem_wrd_local
    1277        IF ( gust_module_enabled )  CALL gust_wrd_local
    1278        IF ( land_surface )         CALL lsm_wrd_local
    1279        IF ( ocean_mode )           CALL ocean_wrd_local
    1280        IF ( radiation )            CALL radiation_wrd_local
    1281        IF ( salsa )                CALL salsa_wrd_local
    1282        CALL surface_wrd_local
    1283        IF ( urban_surface )        CALL usm_wrd_local
    1284 
    1285 !
    1286 !--    Write user-defined restart data
    1287        CALL user_wrd_local
     1209       CALL module_interface_wrd_local
    12881210
    12891211!
Note: See TracChangeset for help on using the changeset viewer.