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/header.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)
     
    420423        ONLY:  g, kappa, l_v
    421424
    422     USE biometeorology_mod,                                                    &
    423         ONLY:  bio_header
    424 
    425425    USE bulk_cloud_model_mod,                                                  &
    426         ONLY:  bulk_cloud_model, bcm_header
    427 
    428     USE chemistry_model_mod,                                                   &
    429         ONLY:  chem_header
     426        ONLY:  bulk_cloud_model
    430427
    431428    USE control_parameters
     
    439436    USE dvrp_variables,                                                        &
    440437        ONLY:  use_seperate_pe_for_dvrp_output
    441        
    442     USE flight_mod,                                                            &
    443         ONLY:  flight_header
    444        
     438
    445439    USE grid_variables,                                                        &
    446440        ONLY:  dx, dy
    447 
    448     USE gust_mod,                                                              &
    449         ONLY: gust_header, gust_module_enabled
    450441
    451442    USE indices,                                                               &
    452443        ONLY:  mg_loc_ind, nnx, nny, nnz, nx, ny, nxl_mg, nxr_mg, nyn_mg,      &
    453444               nys_mg, nzt, nzt_mg
    454        
     445
    455446    USE kinds
    456  
    457     USE land_surface_model_mod,                                                &
    458         ONLY: lsm_header
    459 
    460     USE lsf_nudging_mod,                                                       &
    461         ONLY:  lsf_nudging_header
    462447
    463448    USE model_1d_mod,                                                          &
    464449        ONLY:  damp_level_ind_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
    465450
     451    USE module_interface,                                                      &
     452        ONLY:  module_interface_header
     453
    466454    USE netcdf_interface,                                                      &
    467455        ONLY:  netcdf_data_format, netcdf_data_format_string, netcdf_deflate
    468456
    469     USE nesting_offl_mod,                                                      &
    470         ONLY:  nesting_offl_header
    471 
    472457    USE ocean_mod,                                                             &
    473         ONLY:  ibc_sa_t, ocean_header, prho_reference, sa_surface,             &
     458        ONLY:  ibc_sa_t, prho_reference, sa_surface,                           &
    474459               sa_vertical_gradient, sa_vertical_gradient_level,               &
    475460               sa_vertical_gradient_level_ind
     
    487472               total_number_of_particles, use_sgs_for_particles,               &
    488473               vertical_particle_advection, write_particle_statistics
    489        
     474
    490475    USE pegrid
    491 
    492     USE plant_canopy_model_mod,                                                &
    493         ONLY:  pcm_header
    494476
    495477#if defined( __parallel )
     
    501483        ONLY:  nested_run, nesting_datatransfer_mode, nesting_mode
    502484
    503     USE radiation_model_mod,                                                   &
    504         ONLY:  radiation, radiation_header
    505                
    506     USE salsa_mod,                                                             &
    507         ONLY:  salsa_header       
    508    
    509     USE spectra_mod,                                                           &
    510         ONLY:  calculate_spectra, spectra_header
    511 
    512485    USE surface_mod,                                                           &
    513486        ONLY:  surf_def_h, get_topography_top_index_ji
    514 
    515     USE synthetic_turbulence_generator_mod,                                    &
    516         ONLY:  stg_header
    517487
    518488    USE turbulence_closure_mod,                                                &
     
    935905
    936906!
    937 !-- Large scale forcing and nudging
    938     IF ( large_scale_forcing )  CALL lsf_nudging_header( io )
    939 
    940 !
    941 !-- Offline nesting
    942     IF ( nesting_offline )  CALL nesting_offl_header( io )
    943 
    944 !
    945907!-- Profile for the large scale vertial velocity
    946908!-- Building output strings, starting with surface value
     
    11611123       ENDIF
    11621124    ENDIF
    1163 
    1164 !
    1165 !-- Header information from other modules
    1166     IF ( biometeorology      )  CALL bio_header ( io )
    1167     IF ( gust_module_enabled )  CALL gust_header( io )
    1168     IF ( land_surface        )  CALL lsm_header( io )
    1169     IF ( ocean_mode          )  CALL ocean_header( io )
    1170     IF ( plant_canopy        )  CALL pcm_header( io )
    1171     IF ( radiation           )  CALL radiation_header( io )
    1172     IF ( syn_turb_gen        )  CALL stg_header( io )
    1173 
    1174     IF ( air_chemistry )  CALL chem_header ( io )
    11751125!
    11761126!-- Boundary conditions
     
    19241874    ENDIF
    19251875#endif
    1926 !
    1927 !-- Output of virtual flight information
    1928     IF ( virtual_flight )  CALL flight_header( io )
    1929 
    1930 !
    1931 !-- Output of spectra related quantities
    1932     IF ( calculate_spectra )  CALL spectra_header( io )
     1876
    19331877
    19341878    WRITE ( io, 99 )
     
    19581902       ENDIF
    19591903    ENDIF
    1960 
    1961 !
    1962 !-- Output of microphysics information
    1963     IF ( bulk_cloud_model )  CALL bcm_header( io )
    19641904
    19651905!
     
    20832023       ENDIF
    20842024    ENDIF
    2085    
    2086 !
    2087 !-- SALSA information
    2088     IF ( salsa )  CALL salsa_header( io )
    2089 
    2090 !
    2091 !-- User-defined information
    2092     CALL user_header( io )
     2025
     2026!
     2027!-- Header information from other modules
     2028    CALL module_interface_header( io )
     2029
    20932030
    20942031    WRITE ( io, 99 )
Note: See TracChangeset for help on using the changeset viewer.