Ignore:
Timestamp:
Mar 22, 2007 9:54:05 AM (15 years ago)
Author:
raasch
Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:
1 edited

Legend:

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

    r73 r75  
    55! -----------------
    66! +precipitation_amount, precipitation_rate_av, rif_wall, u_m_l, u_m_r, etc.,
    7 ! z0_av
     7! z0_av, moisture renamed humidity
    88!
    99! Former revisions:
     
    107107    ENDIF
    108108    WRITE ( 14 )  'pt_m                ';  WRITE ( 14 )  pt_m
    109     IF ( moisture  .OR. passive_scalar )  THEN
     109    IF ( humidity  .OR. passive_scalar )  THEN
    110110       WRITE ( 14 )  'q                   ';  WRITE ( 14 )  q
    111111       IF ( ALLOCATED( q_av ) )  THEN
     
    209209       WRITE ( 14 )  'v_m_s               ';  WRITE ( 14 )  v_m_s
    210210    ENDIF
    211     IF ( moisture )  THEN
     211    IF ( humidity )  THEN
    212212       WRITE ( 14 )  'vpt                 ';  WRITE ( 14 )  vpt
    213213       IF ( ALLOCATED( vpt_av ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.