Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

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

    r1319 r1320  
    2020! Current revisions:
    2121! -----------------
     22! ONLY-attribute added to USE-statements,
     23! revision history before 2012 removed,
     24! comment fields (!:) to be used for variable explanations added to
     25! all variable declaration statements
    2226!
    2327!
     
    4650! +z0h, z0h_av
    4751!
    48 ! 790 2011-11-29 03:11:20Z raasch
    49 ! bugfix: output of 'ql' also if cloud droplets are used
    50 !
    51 ! 776 2011-10-31 08:02:51Z heinze
    52 ! bugfix: increase binary_version due to last commit
    53 !
    54 ! 771 2011-10-27 10:56:21Z heinze
    55 ! +lpt
    56 !
    57 ! 759 2011-09-15 13:58:31Z raasch
    58 ! cpu measurement and file opening moved to main program
    59 !
    60 ! 587 2010-10-27 08:36:51Z helmke
    61 ! nothing done but text written for "Current revisions" by mistake
    62 !
    63 ! 367 2009-08-25 08:35:52Z maronga
    64 ! +shf_av, qsws_av
    65 !
    66 ! 145 2008-01-09 08:17:38Z raasch
    67 ! write_var_list is only called for pe0, -dopr_time_count,
    68 ! hom_sum moved, volume_flow_area, volume_flow_initial moved to write_var_list,
    69 ! writing of old profil parameters (cross_..., dopr_crossindex, profile_***)
    70 ! removed
    71 !
    72 ! 102 2007-07-27 09:09:17Z raasch
    73 ! +uswst, uswst_m, vswst, vswst_m
    74 !
    75 ! 96 2007-06-04 08:07:41Z raasch
    76 ! +rho_av, sa, sa_av, saswsb, saswst
    77 !
    78 ! 75 2007-03-22 09:54:05Z raasch
    79 ! +precipitation_amount, precipitation_rate_av, rif_wall, u_m_l, u_m_r, etc.,
    80 ! z0_av, moisture renamed humidity
    81 !
    82 ! 19 2007-02-23 04:53:48Z raasch
    83 ! +qswst, qswst_m, tswst, tswst_m
    84 !
    85 ! RCS Log replace by Id keyword, revision history cleaned up
    86 !
    87 ! Revision 1.21  2006/08/04 15:05:11  raasch
    88 ! +iran, iran_part
    89 !
    9052! Revision 1.1  1998/03/18 20:20:21  raasch
    9153! Initial revision
     
    9759!------------------------------------------------------------------------------!
    9860
    99     USE arrays_3d
     61    USE arrays_3d,                                                             &
     62        ONLY:  e, kh, km, p, pt, q, ql, qc, nr, nrs, nrsws, nrswst, qr, qrs,   &
     63               qrsws, qrswst, qs, qsws, qswst, sa, saswsb, saswst, rif,        &
     64               rif_wall, shf, ts, tswst, u, u_m_l, u_m_n, u_m_r, u_m_s, us,    &
     65               usws, uswst, v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, vsws, vswst,   &
     66               w, w_m_l, w_m_n, w_m_r, w_m_s, z0, z0h
     67       
    10068    USE averaging
    101     USE cloud_parameters
    102     USE control_parameters
    103     USE cpulog
    104     USE indices
    105     USE particle_attributes
     69       
     70    USE cloud_parameters,                                                      &
     71        ONLY:  prr, precipitation_amount
     72       
     73    USE control_parameters,                                                    &
     74        ONLY:  iran, humidity, passive_scalar, cloud_physics, cloud_droplets,  &
     75               icloud_scheme, precipitation, ocean, topography
     76               
     77    USE indices,                                                               &
     78        ONLY:  nxl, nxr, nys, nyn, nzb, nzt
     79       
     80    USE particle_attributes,                                                               &
     81        ONLY:  iran_part
     82       
    10683    USE pegrid
    107     USE profil_parameter
    108     USE random_function_mod
    109     USE statistics
     84   
     85    USE random_function_mod,                                                               &
     86        ONLY:  random_iv, random_iy
     87       
     88    USE statistics,                                                            &
     89        ONLY:  spectrum_x, spectrum_y
    11090
    11191    IMPLICIT NONE
    11292
    113     CHARACTER (LEN=10) ::  binary_version
     93    CHARACTER (LEN=10) ::  binary_version   !:
    11494
    11595
     
    165145    ENDIF
    166146    IF ( ALLOCATED( precipitation_rate_av ) )  THEN
    167        WRITE ( 14 )  'precipitation_rate_a';  WRITE ( 14 )  &
     147       WRITE ( 14 )  'precipitation_rate_a';  WRITE ( 14 )                     &
    168148                                                           precipitation_rate_av
    169149    ENDIF
     
    333313
    334314 END SUBROUTINE write_3d_binary
     315 
Note: See TracChangeset for help on using the changeset viewer.