Ignore:
Timestamp:
Mar 20, 2007 8:33:14 AM (17 years ago)
Author:
raasch
Message:

preliminary changes for radiation conditions

File:
1 edited

Legend:

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

    r72 r73  
    44! Actual revisions:
    55! -----------------
    6 ! +precipitation_amount, precipitation_rate_av, rif_wall, z0_av
     6! +precipitation_amount, precipitation_rate_av, rif_wall, u_m_l, u_m_r, etc.,
     7! z0_av
    78!
    89! Former revisions:
     
    169170    ENDIF
    170171    WRITE ( 14 )  'u_m                 ';  WRITE ( 14 )  u_m
     172    IF ( ALLOCATED( u_m_l ) )  THEN
     173       WRITE ( 14 )  'u_m_l               ';  WRITE ( 14 )  u_m_l
     174    ENDIF
     175    IF ( ALLOCATED( u_m_n ) )  THEN
     176       WRITE ( 14 )  'u_m_n               ';  WRITE ( 14 )  u_m_n
     177    ENDIF
     178    IF ( ALLOCATED( u_m_r ) )  THEN
     179       WRITE ( 14 )  'u_m_r               ';  WRITE ( 14 )  u_m_r
     180    ENDIF
     181    IF ( ALLOCATED( u_m_s ) )  THEN
     182       WRITE ( 14 )  'u_m_s               ';  WRITE ( 14 )  u_m_s
     183    ENDIF
    171184    WRITE ( 14 )  'us                  ';  WRITE ( 14 )  us
    172185    WRITE ( 14 )  'usws                ';  WRITE ( 14 )  usws
     
    184197    ENDIF
    185198    WRITE ( 14 )  'v_m                 ';  WRITE ( 14 )  v_m
     199    IF ( ALLOCATED( v_m_l ) )  THEN
     200       WRITE ( 14 )  'v_m_l               ';  WRITE ( 14 )  v_m_l
     201    ENDIF
     202    IF ( ALLOCATED( v_m_n ) )  THEN
     203       WRITE ( 14 )  'v_m_n               ';  WRITE ( 14 )  v_m_n
     204    ENDIF
     205    IF ( ALLOCATED( v_m_r ) )  THEN
     206       WRITE ( 14 )  'v_m_r               ';  WRITE ( 14 )  v_m_r
     207    ENDIF
     208    IF ( ALLOCATED( v_m_s ) )  THEN
     209       WRITE ( 14 )  'v_m_s               ';  WRITE ( 14 )  v_m_s
     210    ENDIF
    186211    IF ( moisture )  THEN
    187212       WRITE ( 14 )  'vpt                 ';  WRITE ( 14 )  vpt
     
    202227    ENDIF
    203228    WRITE ( 14 )  'w_m                 ';  WRITE ( 14 )  w_m
     229    IF ( ALLOCATED( w_m_l ) )  THEN
     230       WRITE ( 14 )  'w_m_l               ';  WRITE ( 14 )  w_m_l
     231    ENDIF
     232    IF ( ALLOCATED( w_m_n ) )  THEN
     233       WRITE ( 14 )  'w_m_n               ';  WRITE ( 14 )  w_m_n
     234    ENDIF
     235    IF ( ALLOCATED( w_m_r ) )  THEN
     236       WRITE ( 14 )  'w_m_r               ';  WRITE ( 14 )  w_m_r
     237    ENDIF
     238    IF ( ALLOCATED( w_m_s ) )  THEN
     239       WRITE ( 14 )  'w_m_s               ';  WRITE ( 14 )  w_m_s
     240    ENDIF
    204241    WRITE ( 14 )  'z0                  ';  WRITE ( 14 )  z0
    205242    IF ( ALLOCATED( z0_av ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.