New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3345 for trunk – NEMO

Changeset 3345 for trunk


Ignore:
Timestamp:
2012-04-04T17:37:22+02:00 (12 years ago)
Author:
acc
Message:

trunk bugfix for #943. Reinstating changes to XMLIO_SERVER module (mod_interface_ioipsl.f90) to ensure netcdf4 files are produced when requested. Prior to this fix, v3.4 would produce netCDF-3 mean files regardless of logical flags when key_iomput was used with key_netcdf4

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_interface_ioipsl.f90

    r2458 r3345  
    3838  USE ioipsl 
    3939  USE xmlio 
     40  USE mod_ioserver_namelist 
    4041  IMPLICIT NONE 
    4142    INTEGER,INTENT(IN)  :: nb_server 
     
    8889                       pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,         & 
    8990                       initial_timestep, initial_date, timestep_value,                               & 
    90                        ioipsl_hori_id, ioipsl_file_id) 
     91                       ioipsl_hori_id, ioipsl_file_id, snc4chunks=snc4ioset) 
    9192           ELSE                                               
    9293 
     
    9596                       pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,          & 
    9697                       initial_timestep, initial_date, timestep_value,                                & 
    97                        ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id)                                               
     98                       ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id, snc4chunks=snc4ioset)                                               
    9899           
    99100           ENDIF 
     
    142143            ENDIF 
    143144          ENDDO 
    144           CALL histend(ioipsl_file_id) 
     145          CALL histend(ioipsl_file_id, snc4chunks=snc4ioset) 
    145146        ENDIF 
    146147        CALL sorted_list__delete(axis_id) 
Note: See TracChangeset for help on using the changeset viewer.