Ignore:
Timestamp:
Jun 1, 2007 3:25:22 PM (14 years ago)
Author:
raasch
Message:

preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r77 r94  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +sa, saswst
    77!
    88! Former revisions:
     
    131131          WRITE ( 14 )  'qswst_m             ';  WRITE ( 14 ) qswst_m
    132132       ENDIF
     133    ENDIF
     134    IF ( ocean )  THEN
     135       WRITE ( 14 )  'sa                  ';  WRITE ( 14 )  sa
     136       WRITE ( 14 )  'saswst              ';  WRITE ( 14 )  saswst
    133137    ENDIF
    134138    IF ( ALLOCATED( ql_c_av ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.