Ignore:
Timestamp:
Jan 29, 2019 7:51:41 PM (5 years ago)
Author:
suehring
Message:

Revision of virtual-measurement module and data output enabled. Further, post-processing tool added to merge distributed virtually sampled data and to output it into NetCDF files.

File:
1 edited

Legend:

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

    r3655 r3704  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Formatting adjustments
    2323!
    2424! Former revisions:
     
    623623       ENDIF
    624624#else
    625     u_ref  = u_ref_l
    626     v_ref  = v_ref_l
    627     IF ( humidity )       q_ref  = q_ref_l
    628     IF ( .NOT. neutral )  pt_ref = pt_ref_l
     625       u_ref  = u_ref_l
     626       v_ref  = v_ref_l
     627       IF ( humidity )       q_ref  = q_ref_l
     628       IF ( .NOT. neutral )  pt_ref = pt_ref_l
    629629#endif
    630630!
    631 !-- Average data. Note, reference profiles up to nzt are derived from lateral
    632 !-- boundaries, at the model top it is derived from the top boundary. Thus,
    633 !-- number of input data is different from nzb:nzt compared to nzt+1.
    634 !-- Derived from lateral boundaries.
    635     u_ref(nzb:nzt) = u_ref(nzb:nzt) / REAL( 2.0_wp * ( ny + 1 + nx     ),      &
    636                                             KIND = wp ) 
    637     v_ref(nzb:nzt) = v_ref(nzb:nzt) / REAL( 2.0_wp * ( ny   + nx + 1   ),      &
    638                                             KIND = wp )
    639     IF ( humidity )                                                            &
    640        q_ref(nzb:nzt) = q_ref(nzb:nzt)   / REAL( 2.0_wp * ( ny + 1 + nx + 1 ), &
    641                                                  KIND = wp )
    642     IF ( .NOT. neutral )                                                       &
    643        pt_ref(nzb:nzt) = pt_ref(nzb:nzt) / REAL( 2.0_wp * ( ny + 1 + nx + 1 ), &
    644                                            KIND = wp )
    645 !
    646 !-- Derived from top boundary.   
    647     u_ref(nzt+1) = u_ref(nzt+1) / REAL( ( ny + 1 ) * ( nx     ), KIND = wp )
    648     v_ref(nzt+1) = v_ref(nzt+1) / REAL( ( ny     ) * ( nx + 1 ), KIND = wp )
    649     IF ( humidity )                                                            &
    650        q_ref(nzt+1) = q_ref(nzt+1)   / REAL( ( ny + 1 ) * ( nx + 1 ), KIND = wp )
    651     IF ( .NOT. neutral )                                                       &
    652        pt_ref(nzt+1) = pt_ref(nzt+1) / REAL( ( ny + 1 ) * ( nx + 1 ), KIND = wp )
    653 !
    654 !-- Write onto init profiles, which are used for damping
    655     u_init = u_ref
    656     v_init = v_ref
    657     IF ( humidity      )  q_init  = q_ref
    658     IF ( .NOT. neutral )  pt_init = pt_ref
    659 !
    660 !-- Set bottom boundary condition
    661     IF ( humidity      )  q_init(nzb)  = q_init(nzb+1)
    662     IF ( .NOT. neutral )  pt_init(nzb) = pt_init(nzb+1)
    663 !
    664 !-- Further, adjust Rayleigh damping height in case of time-changing conditions.
    665 !-- Therefore, calculate boundary-layer depth first.
    666     CALL calc_zi
    667     CALL adjust_sponge_layer
    668    
    669 !
    670 !-- Update geostrophic wind components from dynamic input file.
    671     DO  k = nzb+1, nzt
    672        ug(k) = interpolate_in_time( nest_offl%ug(0,k), nest_offl%ug(1,k),      &
    673                                     fac_dt )
    674        vg(k) = interpolate_in_time( nest_offl%vg(0,k), nest_offl%vg(1,k),      &
    675                                     fac_dt )
    676     ENDDO
    677     ug(nzt+1) = ug(nzt)
    678     vg(nzt+1) = vg(nzt)
    679    
    680     CALL  cpu_log( log_point(58), 'offline nesting', 'stop' )
     631!--    Average data. Note, reference profiles up to nzt are derived from lateral
     632!--    boundaries, at the model top it is derived from the top boundary. Thus,
     633!--    number of input data is different from nzb:nzt compared to nzt+1.
     634!--    Derived from lateral boundaries.
     635       u_ref(nzb:nzt) = u_ref(nzb:nzt) / REAL( 2.0_wp * ( ny + 1 + nx     ),   &
     636                                               KIND = wp ) 
     637       v_ref(nzb:nzt) = v_ref(nzb:nzt) / REAL( 2.0_wp * ( ny   + nx + 1   ),   &
     638                                               KIND = wp )
     639       IF ( humidity )                                                         &
     640          q_ref(nzb:nzt) = q_ref(nzb:nzt)   / REAL( 2.0_wp *                   &
     641                                                          ( ny + 1 + nx + 1 ), &
     642                                                    KIND = wp )
     643       IF ( .NOT. neutral )                                                    &
     644          pt_ref(nzb:nzt) = pt_ref(nzb:nzt) / REAL( 2.0_wp *                   &
     645                                                          ( ny + 1 + nx + 1 ), &
     646                                              KIND = wp )
     647!
     648!--    Derived from top boundary.   
     649       u_ref(nzt+1) = u_ref(nzt+1) / REAL( ( ny + 1 ) * ( nx     ), KIND = wp )
     650       v_ref(nzt+1) = v_ref(nzt+1) / REAL( ( ny     ) * ( nx + 1 ), KIND = wp )
     651       IF ( humidity )                                                         &
     652          q_ref(nzt+1) = q_ref(nzt+1)   / REAL( ( ny + 1 ) * ( nx + 1 ),       &
     653                                                KIND = wp )
     654       IF ( .NOT. neutral )                                                    &
     655          pt_ref(nzt+1) = pt_ref(nzt+1) / REAL( ( ny + 1 ) * ( nx + 1 ),       &
     656                                                KIND = wp )
     657!
     658!--    Write onto init profiles, which are used for damping
     659       u_init = u_ref
     660       v_init = v_ref
     661       IF ( humidity      )  q_init  = q_ref
     662       IF ( .NOT. neutral )  pt_init = pt_ref
     663!
     664!--    Set bottom boundary condition
     665       IF ( humidity      )  q_init(nzb)  = q_init(nzb+1)
     666       IF ( .NOT. neutral )  pt_init(nzb) = pt_init(nzb+1)
     667!
     668!--    Further, adjust Rayleigh damping height in case of time-changing conditions.
     669!--    Therefore, calculate boundary-layer depth first.
     670       CALL calc_zi
     671       CALL adjust_sponge_layer
     672   
     673!
     674!--    Update geostrophic wind components from dynamic input file.
     675       DO  k = nzb+1, nzt
     676          ug(k) = interpolate_in_time( nest_offl%ug(0,k), nest_offl%ug(1,k),   &
     677                                       fac_dt )
     678          vg(k) = interpolate_in_time( nest_offl%vg(0,k), nest_offl%vg(1,k),   &
     679                                       fac_dt )
     680       ENDDO
     681       ug(nzt+1) = ug(nzt)
     682       vg(nzt+1) = vg(nzt)
     683   
     684       CALL  cpu_log( log_point(58), 'offline nesting', 'stop' )
    681685
    682686    END SUBROUTINE nesting_offl_bc
Note: See TracChangeset for help on using the changeset viewer.