Ignore:
Timestamp:
Apr 19, 2017 9:34:46 AM (4 years ago)
Author:
kanani
Message:

small bugfix, formatting and new PCM output

File:
1 edited

Legend:

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

    r2201 r2209  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Added support for plant canopy model output
    2323!
    2424! Former revisions:
     
    461461        ONLY:  maximum_number_of_particles, number_of_particle_groups
    462462
     463    USE plant_canopy_model_mod,                                                &
     464        ONLY:  pcm_define_netcdf_grid, plant_canopy
     465
    463466    USE profil_parameter,                                                      &
    464467        ONLY:  crmax, cross_profiles, dopr_index, profile_columns, profile_rows
     
    839842                                                   grid_x, grid_y, grid_z )
    840843                   ENDIF
     844                   
     845!
     846!--                Check for plant canopy quantities
     847                   IF ( plant_canopy )  THEN
     848                      CALL pcm_define_netcdf_grid( domask(mid,av,i), found,    &
     849                                                   grid_x, grid_y, grid_z )
     850                   ENDIF
    841851
    842852!
     
    13611371                   ENDIF
    13621372
     1373!
     1374!--                Check for plant canopy quantities
     1375                   IF ( plant_canopy )  THEN
     1376                      CALL pcm_define_netcdf_grid( do3d(av,i), found, grid_x,  &
     1377                                                   grid_y, grid_z )
     1378                   ENDIF
     1379                   
    13631380!
    13641381!--                Check for radiation quantities
Note: See TracChangeset for help on using the changeset viewer.