Ignore:
Timestamp:
Dec 4, 2009 5:05:40 PM (11 years ago)
Author:
letzel
Message:
  • reintegrate branch letzel/masked_output into trunk; new funtionality: masked data output (not yet documented)
Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

    • Property svn:mergeinfo set to False
      /palm/branches/letzel/masked_output296-409
  • palm/trunk/SOURCE/close_file.f90

    r392 r410  
    55! -----------------
    66!
     7!
     8! Branch revisions:
     9! -----------------
     10! masked data output
    711!
    812! Former revisions:
     
    5963    CHARACTER (LEN=80)  ::  rtext, title, utext = '', xtext = '', ytext = ''
    6064
    61     INTEGER ::  anzzeile, cranz, cross_count, cross_numbers, dimx, dimy, &
     65    INTEGER ::  av, anzzeile, cranz, cross_count, cross_numbers, dimx, dimy, &
    6266                fid, file_id, j, k, legpos = 1, planz, timodex = 1
    6367    INTEGER, DIMENSION(100) ::  klist, lstyle, cucol
     
    9498!
    9599!-- Close all open unit numbers
    96     DO  fid = 1, 116
     100    DO  fid = 1, 160
    97101
    98102       IF ( openfile(fid)%opened .OR. openfile(fid)%opened_before )  THEN
     
    493497                   nc_stat = NF90_CLOSE( id_set_3d(1) )
    494498                   CALL handle_netcdf_error( 'close_file', 353 )
     499                ENDIF
     500
     501             CASE ( 121:160 )
     502             
     503                IF ( format_parallel_io ) THEN
     504!
     505!--                decompose fid into mid and av
     506                   IF ( fid <= 140 )  THEN
     507                      mid = fid - 120
     508                      av = 0
     509                   ELSE
     510                      mid = fid - 140
     511                      av = 1
     512                   ENDIF
     513                   nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
     514                   CALL handle_netcdf_error( 'close_file', 9998 )
     515               
     516                ELSEIF ( myid == 0  .AND.  netcdf_output )  THEN
     517!
     518!--                decompose fid into mid and av
     519                   IF ( fid <= 140 )  THEN
     520                      mid = fid - 120
     521                      av = 0
     522                   ELSE
     523                      mid = fid - 140
     524                      av = 1
     525                   ENDIF
     526                   nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
     527                   CALL handle_netcdf_error( 'close_file', 9998 )
     528                   
    495529                ENDIF
    496530
Note: See TracChangeset for help on using the changeset viewer.