Ignore:
Timestamp:
Oct 12, 2018 3:17:09 PM (3 years ago)
Author:
kanani
Message:

reintegrate branch resler to trunk

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r3294 r3337  
    2525! -----------------
    2626! $Id$
     27! (from branch resler)
     28! Add biometeorology
     29!
     30! 3294 2018-10-01 02:37:10Z raasch
    2731! changes concerning modularization of ocean option
    2832!
     
    610614        ONLY: radiation, radiation_define_netcdf_grid
    611615
     616    USE biometeorology_mod,                                                    &
     617        ONLY: biometeorology_define_netcdf_grid
     618
    612619    USE spectra_mod,                                                           &
    613620        ONLY:  averaging_interval_sp, comp_spectra_level, data_output_sp, dosp_time_count, spectra_direction
     
    10161023                                                         grid_z )
    10171024                   ENDIF
     1025!
     1026!--                Check for biometeorology quantities
     1027                   IF ( .NOT. found  .AND.  radiation )  THEN
     1028                      CALL biometeorology_define_netcdf_grid( domask(mid,av,i),&
     1029                                                         found, grid_x, grid_y,&
     1030                                                         grid_z )
     1031                   ENDIF
    10181032
    10191033                   CALL tcm_define_netcdf_grid( domask( mid,av,i), found,      &
     
    15451559                                                   grid_y, grid_z )
    15461560                   ENDIF
    1547                    
     1561
    15481562!
    15491563!--                Check for radiation quantities
    15501564                   IF ( .NOT. found  .AND.  radiation )  THEN
    15511565                      CALL radiation_define_netcdf_grid( do3d(av,i), found,    &
     1566                                                         grid_x, grid_y,       &
     1567                                                         grid_z )
     1568                   ENDIF
     1569
     1570!
     1571!--                Check for biometeorology quantities
     1572                   IF ( .NOT. found  .AND.  radiation )  THEN
     1573                      CALL biometeorology_define_netcdf_grid( do3d(av,i), found,&
    15521574                                                         grid_x, grid_y,       &
    15531575                                                         grid_z )
     
    23222344
    23232345!
     2346!--                      Check for biometeorology quantities
     2347                         IF ( .NOT. found  .AND.  radiation )  THEN
     2348                            CALL biometeorology_define_netcdf_grid( do2d(av,i),&
     2349                                                         found, grid_x, grid_y,&
     2350                                                         grid_z )
     2351                         ENDIF
     2352
     2353!
    23242354!--                      Check for gust module quantities
    23252355                         IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     
    30343064
    30353065!
     3066!--                   Check for biometeorology quantities
     3067                      IF ( .NOT. found  .AND.  radiation )  THEN
     3068                         CALL biometeorology_define_netcdf_grid( do2d(av,i),   &
     3069                                                            found,             &
     3070                                                            grid_x, grid_y,    &
     3071                                                            grid_z )
     3072                      ENDIF
     3073
     3074!
    30363075!--                   Check for gust module quantities
    30373076                      IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
     
    36943733
    36953734!
     3735!--                   Check for biometeorology quantities
     3736                      IF ( .NOT. found  .AND.  radiation )  THEN
     3737                         CALL biometeorology_define_netcdf_grid( do2d(av,i),   &
     3738                                                            found,             &
     3739                                                            grid_x, grid_y,    &
     3740                                                            grid_z )
     3741                      ENDIF
     3742
     3743!
    36963744!--                   Check for gust module quantities
    36973745                      IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
Note: See TracChangeset for help on using the changeset viewer.