Changeset 691


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

Location:
palm/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/mbuild

    r678 r691  
    117117     # 14/12/10 - Siggi - adjustments for new Tsubame system at Tokyo
    118118     #                    institute of technology (lctit)
     119     # 04/03/11 - BjörnM- re-adjustments for lcxt4
    119120
    120121
     
    10901091          then
    10911092
    1092              print ". /opt/modules/default/init/ksh; $module_calls  cd ${remote_md}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  ${remote_username}@${remote_addres} 2>&1 | tee ${remote_host}_last_make_protokoll
     1093             ssh  ${remote_username}@${remote_addres} ". /opt/modules/default/init/ksh; $module_calls  cd ${remote_md}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" 2>&1 | tee ${remote_host}_last_make_protokoll
    10931094
    10941095          else
     
    12491250          then
    12501251
    1251              print ". /opt/modules/default/init/ksh; $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" | ssh  ${remote_username}@${remote_addres} 2>&1 | tee ${remote_host}_last_make_protokoll
     1252             ssh  ${remote_username}@${remote_addres} ". /opt/modules/default/init/ksh; $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" 2>&1 | tee ${remote_host}_last_make_protokoll
    12521253
    12531254          else
  • palm/trunk/SOURCE/data_output_2d.f90

    r674 r691  
    44! Current revisions:
    55! -----------------
     6! Replaced simulated_time by time_since_reference_point
    67!
    78! Former revisions:
     
    727728#if defined( __netcdf )
    728729                         IF ( netcdf_output  .AND.  myid == 0 )  THEN
    729                             WRITE ( 21 )  simulated_time, &
     730                            WRITE ( 21 )  time_since_reference_point, &
    730731                                          do2d_xy_time_count(av), av
    731732                         ENDIF
     
    10231024#if defined( __netcdf )
    10241025                         IF ( netcdf_output  .AND.  myid == 0 )  THEN
    1025                             WRITE ( 22 )  simulated_time, &
     1026                            WRITE ( 22 )  time_since_reference_point, &
    10261027                                          do2d_xz_time_count(av), av
    10271028                         ENDIF
     
    13241325#if defined( __netcdf )
    13251326                         IF ( netcdf_output  .AND.  myid == 0 )  THEN
    1326                             WRITE ( 23 )  simulated_time, &
     1327                            WRITE ( 23 )  time_since_reference_point, &
    13271328                                          do2d_yz_time_count(av), av
    13281329                         ENDIF
  • 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
  • palm/trunk/SOURCE/init_coupling.f90

    r668 r691  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: combine_plot_fields did not work with data_output_2d_on_each_pe = .T.
     7! for precursor ocean runs
    78!
    89! Former revisions:
     
    9697    IF ( i == 0 ) THEN
    9798       coupling_mode = 'uncoupled'
     99!
     100!--    In case of a precursor ocean run, an additional flag file is created.
     101!--    This is necessary for data_output_2d_on_each_pe = .T.
     102       IF ( bc_data(3) == 1 )  THEN
     103          OPEN( 90, FILE='PRECURSOR_OCEAN', FORM='FORMATTED' )
     104          WRITE ( 90, '(''TRUE'')' )
     105          CLOSE ( 90 )
     106       ENDIF
    98107    ELSE
    99108       comm_inter = MPI_COMM_WORLD
  • 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.