Changeset 3337 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Oct 12, 2018 3:17:09 PM (6 years ago)

Author:

kanani

Message:

reintegrate branch resler to trunk

Location:

palm/trunk/SOURCE

Files:

• . (modified) (1 prop)
• netcdf_interface_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! (from branch resler)
+! Add biometeorology
+! 
+! 3294 2018-10-01 02:37:10Z raasch
 ! changes concerning modularization of ocean option
 ! 
@@ -610 +614 @@
         ONLY: radiation, radiation_define_netcdf_grid
 
+    USE biometeorology_mod,                                                    &
+        ONLY: biometeorology_define_netcdf_grid
+
     USE spectra_mod,                                                           &
         ONLY:  averaging_interval_sp, comp_spectra_level, data_output_sp, dosp_time_count, spectra_direction
@@ -1016 +1023 @@
                                                          grid_z )
                    ENDIF
+!
+!--                Check for biometeorology quantities
+                   IF ( .NOT. found  .AND.  radiation )  THEN
+                      CALL biometeorology_define_netcdf_grid( domask(mid,av,i),&
+                                                         found, grid_x, grid_y,&
+                                                         grid_z )
+                   ENDIF
 
                    CALL tcm_define_netcdf_grid( domask( mid,av,i), found,      &
@@ -1545 +1559 @@
                                                    grid_y, grid_z )
                    ENDIF
-                   
+
 !
 !--                Check for radiation quantities
                    IF ( .NOT. found  .AND.  radiation )  THEN
                       CALL radiation_define_netcdf_grid( do3d(av,i), found,    &
+                                                         grid_x, grid_y,       &
+                                                         grid_z )
+                   ENDIF
+
+!
+!--                Check for biometeorology quantities
+                   IF ( .NOT. found  .AND.  radiation )  THEN
+                      CALL biometeorology_define_netcdf_grid( do3d(av,i), found,&
                                                          grid_x, grid_y,       &
                                                          grid_z )
@@ -2322 +2344 @@
 
 !
+!--                      Check for biometeorology quantities
+                         IF ( .NOT. found  .AND.  radiation )  THEN
+                            CALL biometeorology_define_netcdf_grid( do2d(av,i),&
+                                                         found, grid_x, grid_y,&
+                                                         grid_z )
+                         ENDIF
+
+!
 !--                      Check for gust module quantities
                          IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
@@ -3034 +3064 @@
 
 !
+!--                   Check for biometeorology quantities
+                      IF ( .NOT. found  .AND.  radiation )  THEN
+                         CALL biometeorology_define_netcdf_grid( do2d(av,i),   &
+                                                            found,             &
+                                                            grid_x, grid_y,    &
+                                                            grid_z )
+                      ENDIF
+
+!
 !--                   Check for gust module quantities
                       IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
@@ -3694 +3733 @@
 
 !
+!--                   Check for biometeorology quantities
+                      IF ( .NOT. found  .AND.  radiation )  THEN
+                         CALL biometeorology_define_netcdf_grid( do2d(av,i),   &
+                                                            found,             &
+                                                            grid_x, grid_y,    &
+                                                            grid_z )
+                      ENDIF
+
+!
 !--                   Check for gust module quantities
                       IF ( .NOT. found  .AND.  gust_module_enabled )  THEN