Ignore:
Timestamp:
Mar 21, 2014 11:00:16 AM (10 years ago)
Author:
raasch
Message:

Changed:


-s real64 removed (.mrun.config.hlrnIII)
-r8 removed (.mrun.config.imuk)
deleted: .mrun.config.imuk_ice2_netcdf4 .mrun.config.imuk_hlrn

REAL constants defined as wp-kind in modules

"baroclinicity" renamed "baroclinity", "ocean version" replaced by
"ocean mode"

code parts concerning old output formats "iso2d" and "avs" removed.
netCDF is the only remaining output format.

Errors:


bugfix: duplicate error message 56 removed

File:
1 edited

Legend:

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

    r1321 r1327  
    7575               mask_j, mask_k, mask_size, mask_size_l, mask_start_l,           &
    7676               max_masks, message_string, mid, netcdf_data_format,             &
    77                netcdf_output, nz_do3d, simulated_time
     77               nz_do3d, simulated_time
    7878   
    7979    USE cpulog,                                                                &
     
    128128!
    129129!-- Open output file.
    130     IF ( netcdf_output  .AND.  ( myid == 0  .OR.  netcdf_data_format > 4 ) ) &
    131     THEN
     130    IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    132131       CALL check_open( 200+mid+av*max_masks )
    133132    ENDIF
     
    146145!-- Update the netCDF time axis.
    147146    domask_time_count(mid,av) = domask_time_count(mid,av) + 1
    148     IF ( netcdf_output  .AND.  ( myid == 0  .OR.  netcdf_data_format > 4 ) ) &
    149     THEN
     147    IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    150148       nc_stat = NF90_PUT_VAR( id_set_mask(mid,av), id_var_time_mask(mid,av), &
    151149                               (/ simulated_time /),                          &
Note: See TracChangeset for help on using the changeset viewer.