Ignore:
Timestamp:
Mar 4, 2011 8:45:30 AM (14 years ago)
Author:
maronga
Message:

Bugfix for precursor atmosphere/ocean runs, re-adjustments for lcxt4

File:
1 edited

Legend:

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

    r674 r691  
    44! Current revisions:
    55! -----------------
     6! Replaced simulated_time by time_since_reference_point
    67!
    78! Former revisions:
     
    242243                to_be_resorted => q_av
    243244             ENDIF
    244              
     245
    245246          CASE ( 'ql' )
    246247             IF ( av == 0 )  THEN
     
    291292                to_be_resorted => rho_av
    292293             ENDIF
    293              
     294
    294295          CASE ( 's' )
    295296             IF ( av == 0 )  THEN
     
    298299                to_be_resorted => s_av
    299300             ENDIF
    300              
     301
    301302          CASE ( 'sa' )
    302303             IF ( av == 0 )  THEN
     
    305306                to_be_resorted => sa_av
    306307             ENDIF
    307              
     308
    308309          CASE ( 'u' )
    309310             IF ( av == 0 )  THEN
     
    408409!--             combine_plot_fields
    409410                IF ( myid == 0 )  THEN
    410                    WRITE ( 30 )  simulated_time, do3d_time_count(av), av
     411                   WRITE ( 30 )  time_since_reference_point,                   &
     412                                 do3d_time_count(av), av
    411413                ENDIF
    412414                WRITE ( 30 )  nxlg, nxrg, nysg, nyng, nzb, nz_do3d
Note: See TracChangeset for help on using the changeset viewer.