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

Timestamp:

Nov 14, 2018 4:06:14 PM (5 years ago)

Author:

kanani

Message:

Changes related to clean-up of biometeorology (by dom_dwd_user)

File:

• palm/trunk/SOURCE/netcdf_interface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to clean-up of biometeorology (dom_dwd_user)
+! 
+! 3485 2018-11-03 17:09:40Z gronemeier
 ! Write geographic coordinates as global attributes to file.
 ! 
@@ -607 +610 @@
 
     USE biometeorology_mod,                                                    &
-        ONLY:  biom_define_netcdf_grid
+        ONLY:  bio_define_netcdf_grid
 
     USE chemistry_model_mod,                                                   &
@@ -2032 +2035 @@
 !--                Check for biometeorology quantities
                    IF ( .NOT. found  .AND.  biometeorology )  THEN
-                      CALL biom_define_netcdf_grid( do3d(av,i), found,         &
-                                                    grid_x, grid_y, grid_z )
+                      CALL bio_define_netcdf_grid( do3d(av,i), found,          &
+                                                   grid_x, grid_y, grid_z )
                    ENDIF
 
@@ -3090 +3093 @@
 !--                      Check for human thermal comfort quantities
                          IF ( .NOT. found  .AND.  biometeorology )  THEN
-                            CALL biom_define_netcdf_grid( do2d( av, i), found, &
-                                                          grid_x, grid_y,      &
-                                                          grid_z )
+                            CALL bio_define_netcdf_grid( do2d( av, i), found,  &
+                                                         grid_x, grid_y,       &
+                                                         grid_z )
                          ENDIF
 !