Ignore:
Timestamp:
Nov 13, 2012 5:11:03 PM (11 years ago)
Author:
hoffmann
Message:

two-moment cloud physics implemented

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/write_3d_binary.f90

    r1037 r1053  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! necessary expansions according to the two new prognostic equations (nr, qr)
     23! of the two-moment cloud physics scheme:
     24! +prr, prr_av, *, *_av, *s, *sws, *swst
    2325!
    2426! Former revisions:
     
    110112!
    111113!-- Write arrays.
    112     binary_version = '3.2'
     114    binary_version = '3.3'
    113115
    114116    WRITE ( 14 )  binary_version
     
    145147       WRITE ( 14 )  'pr_av               ';  WRITE ( 14 )  pr_av
    146148    ENDIF
     149    IF ( ALLOCATED( prr ) )  THEN
     150       WRITE ( 14 )  'prr                 ';  WRITE ( 14 )  prr
     151    ENDIF
     152    IF ( ALLOCATED( prr_av ) )  THEN
     153       WRITE ( 14 )  'prr_av              ';  WRITE ( 14 )  prr_av
     154    ENDIF
    147155    IF ( ALLOCATED( precipitation_amount ) )  THEN
    148156       WRITE ( 14 )  'precipitation_amount';  WRITE ( 14 )  precipitation_amount
     
    166174             WRITE ( 14 )  'ql_av               ';  WRITE ( 14 )  ql_av
    167175          ENDIF
     176          IF ( icloud_scheme == 0 )  THEN
     177             WRITE ( 14 )  'qr                  ';  WRITE ( 14 ) qr
     178             WRITE ( 14 )  'nr                  ';  WRITE ( 14 ) nr
     179             IF ( ALLOCATED( qr_av ) )  THEN
     180                WRITE ( 14 )  'qr_av               ';  WRITE ( 14 )  qr_av
     181             ENDIF
     182             IF ( ALLOCATED( nr_av ) )  THEN
     183                WRITE ( 14 )  'nr_av               ';  WRITE ( 14 )  nr_av
     184             ENDIF
     185             WRITE ( 14 )  'qrs                 ';  WRITE ( 14 ) qrs
     186             WRITE ( 14 )  'qrsws               ';  WRITE ( 14 ) qrsws
     187             WRITE ( 14 )  'qrswst              ';  WRITE ( 14 ) qrswst
     188             WRITE ( 14 )  'nrs                 ';  WRITE ( 14 ) nrs
     189             WRITE ( 14 )  'nrsws               ';  WRITE ( 14 ) nrsws
     190             WRITE ( 14 )  'nrswst              ';  WRITE ( 14 ) nrswst
     191          ENDIF
    168192       ENDIF
    169193       WRITE ( 14 )  'qs                  ';  WRITE ( 14 ) qs
Note: See TracChangeset for help on using the changeset viewer.