Ignore:
Timestamp:
Jul 22, 2014 2:14:06 PM (7 years ago)
Author:
heinze
Message:

+nr, qc, qr for mask output

File:
1 edited

Legend:

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

    r1360 r1438  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! +nr, qc, qr
    2323!
    2424! Former revisions:
     
    7070#if defined( __netcdf )
    7171    USE arrays_3d,                                                             &
    72         ONLY:  e, p, pt, q, ql, ql_c, ql_v, rho, sa, tend, u, v, vpt, w
     72        ONLY:  e, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, rho, sa, tend, u,      &
     73               v, vpt, w
    7374   
    7475    USE averaging,                                                             &
    75         ONLY:  e_av, lpt_av, p_av, pc_av, pr_av, pt_av, q_av, ql_av, ql_c_av,  &
    76                ql_v_av, ql_vp_av, qv_av, rho_av, s_av, sa_av, u_av, v_av,      &
    77                vpt_av, w_av
     76        ONLY:  e_av, lpt_av, nr_av, p_av, pc_av, pr_av, pt_av, q_av, qc_av,    &
     77               ql_av, ql_c_av, ql_v_av, ql_vp_av, qv_av, qr_av, rho_av, s_av,  &
     78               sa_av, u_av, v_av, vpt_av, w_av
    7879   
    7980    USE cloud_parameters,                                                      &
     
    8182   
    8283    USE control_parameters,                                                    &
    83         ONLY:  cloud_physics, domask, domask_no, domask_time_count, mask_i,    &
    84                mask_j, mask_k, mask_size, mask_size_l, mask_start_l,           &
    85                max_masks, message_string, mid, netcdf_data_format,             &
    86                nz_do3d, simulated_time
    87    
     84        ONLY:  cloud_physics, domask, domask_no, domask_time_count,            &
     85               mask_i, mask_j, mask_k, mask_size, mask_size_l,                 &
     86               mask_start_l, max_masks, message_string, mid,                   &
     87               netcdf_data_format, nz_do3d, simulated_time
    8888    USE cpulog,                                                                &
    8989        ONLY:  cpu_log, log_point
     90
     91
    9092   
    9193    USE indices,                                                               &
     
    192194             ELSE
    193195                to_be_resorted => lpt_av
     196             ENDIF
     197
     198          CASE ( 'nr' )
     199             IF ( av == 0 )  THEN
     200                to_be_resorted => nr
     201             ELSE
     202                to_be_resorted => nr_av
    194203             ENDIF
    195204
     
    293302             ENDIF
    294303
     304          CASE ( 'qc' )
     305             IF ( av == 0 )  THEN
     306                to_be_resorted => qc
     307             ELSE
     308                to_be_resorted => qc_av
     309             ENDIF
     310
    295311          CASE ( 'ql' )
    296312             IF ( av == 0 )  THEN
     
    367383             ENDIF
    368384
     385          CASE ( 'qr' )
     386             IF ( av == 0 )  THEN
     387                to_be_resorted => qr
     388             ELSE
     389                to_be_resorted => qr_av
     390             ENDIF
     391
    369392          CASE ( 'rho' )
    370393             IF ( av == 0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.