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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/combine_plot_fields.f90

    r494 r691  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: check for precursor ocean runs
    77!
    88! Former revisions:
     
    116116
    117117!
     118!-- Find out if a precursor ocean run has been carried out
     119    INQUIRE( FILE='PRECURSOR_OCEAN', EXIST=found )
     120    IF ( found )  THEN
     121       model_string = '_O'
     122       PRINT*, '    precursor ocean run'
     123    ELSE
     124       model_string = ''
     125    ENDIF
     126
     127!
    118128!-- Do everything for each model
    119129    DO model = 1, models
    120130!
    121131!--    Set the model string used to identify the filenames
    122        model_string = ''
    123132       IF ( models == 2 )  THEN
    124133          PRINT*, ''
Note: See TracChangeset for help on using the changeset viewer.