Ignore:
Timestamp:
Nov 27, 2018 5:03:40 PM (3 years ago)
Author:
kanani
Message:

Fix for biomet output (ticket:757), merge of uv_exposure into biometeorology_mod

File:
1 edited

Legend:

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

    r3554 r3569  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
    2222!
    2323!
     
    2525! -----------------
    2626! $Id$
     27! Remove fill_value from bio_data_output_2d call
     28! dom_dwd_user, Schrempf:
     29! Clean up of biometeorology calls,
     30! remove uv exposure model code, this is now part of biometeorology_mod.
     31!
     32! 3554 2018-11-22 11:24:52Z gronemeier
    2733! - add variable description
    2834! - rename variable 'if' into 'ivar'
     
    289295               ntdim_2d_xy, ntdim_2d_xz, ntdim_2d_yz,                          &
    290296               ocean_mode, psolver, section, simulated_time,                   &
    291                time_since_reference_point, uv_exposure
     297               time_since_reference_point
    292298
    293299    USE cpulog,                                                                &
     
    336342    USE turbulence_closure_mod,                                                &
    337343        ONLY:  tcm_data_output_2d
    338 
    339     USE uv_exposure_model_mod,                                                 &
    340         ONLY:  uvem_data_output_2d
    341344
    342345
     
    13281331                ENDIF
    13291332
    1330                 IF ( .NOT. found  .AND.  biometeorology                        &
    1331                                   .AND.  mode == 'xy' )  THEN
     1333                IF ( .NOT. found  .AND.  biometeorology )  THEN
    13321334                   CALL bio_data_output_2d( av, do2d(av,ivar), found, grid,      &
    1333                                             local_pf, two_d, nzb_do, nzt_do,   &
    1334                                             fill_value )
     1335                                            local_pf, two_d, nzb_do, nzt_do )
    13351336                ENDIF
    13361337
     
    13551356                                              mode, local_pf, two_d )
    13561357                ENDIF                 
    1357 
    1358                 IF ( .NOT. found  .AND.  uv_exposure )  THEN
    1359                    CALL uvem_data_output_2d( av, do2d(av,ivar), found, grid,     &
    1360                                              local_pf, two_d, nzb_do, nzt_do )
    1361                 ENDIF
    13621358
    13631359                IF ( .NOT. found  .AND.  air_chemistry )  THEN
Note: See TracChangeset for help on using the changeset viewer.