Ignore:
Timestamp:
Nov 14, 2018 4:06:14 PM (3 years ago)
Author:
kanani
Message:

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

File:
1 edited

Legend:

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

    r3485 r3525  
    2525! -----------------
    2626! $Id$
     27! Changes related to clean-up of biometeorology (dom_dwd_user)
     28!
     29! 3485 2018-11-03 17:09:40Z gronemeier
    2730! Write geographic coordinates as global attributes to file.
    2831!
     
    607610
    608611    USE biometeorology_mod,                                                    &
    609         ONLY:  biom_define_netcdf_grid
     612        ONLY:  bio_define_netcdf_grid
    610613
    611614    USE chemistry_model_mod,                                                   &
     
    20322035!--                Check for biometeorology quantities
    20332036                   IF ( .NOT. found  .AND.  biometeorology )  THEN
    2034                       CALL biom_define_netcdf_grid( do3d(av,i), found,         &
    2035                                                     grid_x, grid_y, grid_z )
     2037                      CALL bio_define_netcdf_grid( do3d(av,i), found,          &
     2038                                                   grid_x, grid_y, grid_z )
    20362039                   ENDIF
    20372040
     
    30903093!--                      Check for human thermal comfort quantities
    30913094                         IF ( .NOT. found  .AND.  biometeorology )  THEN
    3092                             CALL biom_define_netcdf_grid( do2d( av, i), found, &
    3093                                                           grid_x, grid_y,      &
    3094                                                           grid_z )
     3095                            CALL bio_define_netcdf_grid( do2d( av, i), found, &
     3096                                                         grid_x, grid_y,       &
     3097                                                         grid_z )
    30953098                         ENDIF
    30963099!
Note: See TracChangeset for help on using the changeset viewer.