Changeset 3637 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Dec 20, 2018 1:51:36 AM (5 years ago)

Author:

knoop

Message:

M Makefile

File:

• palm/trunk/SOURCE/data_output_2d.f90 (modified) (6 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implementation of the PALM module interface
+! 
+! 3597 2018-12-04 08:40:18Z maronga
 ! Added theta_2m
 ! 
@@ -284 +287 @@
         ONLY:  c_p, lv_d_cp, l_v
 
-    USE biometeorology_mod,                                                    &
-        ONLY:  bio_data_output_2d
-
     USE bulk_cloud_model_mod,                                                  &
-        ONLY:  bulk_cloud_model, bcm_data_output_2d
-
-    USE chemistry_model_mod,                                                   &
-        ONLY:  chem_data_output_2d
+        ONLY:  bulk_cloud_model
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry, biometeorology, data_output_2d_on_each_pe,       &
+        ONLY:  data_output_2d_on_each_pe,                                      &
                data_output_xy, data_output_xz, data_output_yz, do2d,           &
                do2d_xy_last_time, do2d_xy_time_count,                          &
                do2d_xz_last_time, do2d_xz_time_count,                          &
                do2d_yz_last_time, do2d_yz_time_count,                          &
-               ibc_uv_b, io_blocks, io_group, land_surface, message_string,    &
+               ibc_uv_b, io_blocks, io_group, message_string,                  &
                ntdim_2d_xy, ntdim_2d_xz, ntdim_2d_yz,                          &
-               ocean_mode, psolver, salsa, section, simulated_time,            &
+               psolver, section, simulated_time,                               &
                time_since_reference_point
 
     USE cpulog,                                                                &
-        ONLY:  cpu_log, log_point 
-        
-    USE gust_mod,                                                              &
-        ONLY:  gust_data_output_2d, gust_module_enabled
+        ONLY:  cpu_log, log_point
 
     USE indices,                                                               &
@@ -317 +311 @@
 
     USE land_surface_model_mod,                                                &
-        ONLY:  lsm_data_output_2d, zs
+        ONLY:  zs
+
+    USE module_interface,                                                      &
+        ONLY:  module_interface_data_output_2d
 
 #if defined( __netcdf )
@@ -327 +324 @@
                id_var_time_xy, id_var_time_xz, id_var_time_yz, nc_stat,        &
                netcdf_data_format, netcdf_handle_error
-
-    USE ocean_mod,                                                             &
-        ONLY:  ocean_data_output_2d
 
     USE particle_attributes,                                                   &
@@ -336 +330 @@
     
     USE pegrid
-
-    USE radiation_model_mod,                                                   &
-        ONLY:  radiation, radiation_data_output_2d
-   
-    USE salsa_mod,                                                             &
-        ONLY:  salsa_data_output_2d    
 
     USE surface_mod,                                                           &
@@ -1362 +1350 @@
 !
 !--             Quantities of other modules
-                IF ( .NOT. found  .AND.  bulk_cloud_model )  THEN
-                   CALL bcm_data_output_2d( av, do2d(av,ivar), found, grid, mode,&
-                                            local_pf, two_d, nzb_do, nzt_do )
-                ENDIF
-
-                IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
-                   CALL gust_data_output_2d( av, do2d(av,ivar), found, grid,     &
-                                             local_pf, two_d, nzb_do, nzt_do )
-                ENDIF
-
-                IF ( .NOT. found  .AND.  biometeorology )  THEN
-                   CALL bio_data_output_2d( av, do2d(av,ivar), found, grid,      &
-                                            local_pf, two_d, nzb_do, nzt_do )
-                ENDIF
-
-                IF ( .NOT. found  .AND.  land_surface )  THEN
-                   CALL lsm_data_output_2d( av, do2d(av,ivar), found, grid, mode,&
-                                            local_pf, two_d, nzb_do, nzt_do )
-                ENDIF
-
-                IF ( .NOT. found  .AND.  ocean_mode )  THEN
-                   CALL ocean_data_output_2d( av, do2d(av,ivar), found, grid,    &
-                                              mode, local_pf, nzb_do, nzt_do )
-                ENDIF
-
-                IF ( .NOT. found  .AND.  radiation )  THEN
-                   CALL radiation_data_output_2d( av, do2d(av,ivar), found, grid,&
-                                                  mode, local_pf, two_d,       &
-                                                  nzb_do, nzt_do  )
-                ENDIF
-                
-                IF ( .NOT. found  .AND.  salsa )  THEN
-                   CALL salsa_data_output_2d( av, do2d(av,ivar), found, grid,  &
-                                              mode, local_pf, two_d, nzb_do,   &
-                                              nzt_do)
-                ENDIF                 
-
-                IF ( .NOT. found  .AND.  air_chemistry )  THEN
-                   CALL chem_data_output_2d( av, do2d(av,ivar), found, grid, mode, &
-                                             local_pf, two_d, nzb_do, nzt_do, fill_value )
-                ENDIF
-!
-!--             User defined quantities
                 IF ( .NOT. found )  THEN
-                   CALL user_data_output_2d( av, do2d(av,ivar), found, grid,     &
-                                             local_pf, two_d, nzb_do, nzt_do )
+                   CALL module_interface_data_output_2d(                       &
+                           av, do2d(av,ivar), found, grid, mode,               &
+                           local_pf, two_d, nzb_do, nzt_do,                    &
+                           fill_value                                          &
+                        )
                 ENDIF