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 2765 – NEMO

Changeset 2765


Ignore:
Timestamp:
2011-05-13T16:45:07+02:00 (13 years ago)
Author:
smasson
Message:

Load working_directory into vendors/XMLIO_SERVER/current.

Location:
vendors/XMLIO_SERVER/current
Files:
2 added
9 edited

Legend:

Unmodified
Added
Removed
  • vendors/XMLIO_SERVER/current/configure

    • Property svn:executable set to *
  • vendors/XMLIO_SERVER/current/src/IOSERVER/main.f90

    r1897 r2765  
    11PROGRAM ioslave 
    2 USE mod_pack, ONLY : set_pack_buffer,pack,unpack 
     2USE mod_pack, ONLY : set_pack_buffer,pack_data,unpack_data 
    33USE mod_wait 
    44IMPLICIT NONE 
     
    2828  f(3)="COUCOU3" 
    2929   
    30   CALL pack(b) 
    31   CALL pack(f) 
    32   CALL pack(a) 
    33   CALL pack(d) 
    34   CALL pack(e) 
    35   CALL pack(c) 
     30  CALL pack_data(b) 
     31  CALL pack_data(f) 
     32  CALL pack_data(a) 
     33  CALL pack_data(d) 
     34  CALL pack_data(e) 
     35  CALL pack_data(c) 
    3636   
    3737  CALL set_pack_buffer(buffer,1) 
    38   CALL unpack(bout) 
    39   CALL unpack(fout) 
    40   CALL unpack(aout) 
    41   CALL unpack(dout) 
    42   CALL unpack(eout) 
    43   CALL unpack(cout) 
     38  CALL unpack_data(bout) 
     39  CALL unpack_data(fout) 
     40  CALL unpack_data(aout) 
     41  CALL unpack_data(dout) 
     42  CALL unpack_data(eout) 
     43  CALL unpack_data(cout) 
    4444   
    4545  PRINT *,a,b,c,d,e,"  ",f 
  • vendors/XMLIO_SERVER/current/src/IOSERVER/mod_event_client.f90

    r1897 r2765  
    11MODULE mod_event_client 
    2   USE mod_pack, ONLY : pack, pack_field 
     2  USE mod_pack, ONLY : pack_data, pack_field 
    33  USE mod_mpi_buffer_client, ONLY : create_request, finalize_request,is_last_request 
    44  USE mod_event_parameters  
     
    1414    IF (using_server) THEN 
    1515      CALL create_request(event_id_swap_context) 
    16       CALL pack(LEN(TRIM(id))) 
    17       CALL pack(TRIM(id)) 
     16      CALL pack_data(LEN(TRIM(id))) 
     17      CALL pack_data(TRIM(id)) 
    1818      CALL Finalize_request 
    1919    ELSE 
     
    3131    IF (using_server) THEN 
    3232      CALL create_request(event_id_parse_xml_file) 
    33       CALL pack(LEN(TRIM(filename))) 
    34       CALL pack(TRIM(filename)) 
     33      CALL pack_data(LEN(TRIM(filename))) 
     34      CALL pack_data(TRIM(filename)) 
    3535      CALL Finalize_request 
    3636    ELSE 
     
    4949    IF (using_server) THEN 
    5050      CALL create_request(event_id_set_vert_axis) 
    51       CALL pack(LEN(TRIM(vert_name))) 
    52       CALL pack(TRIM(vert_name)) 
    53       CALL pack(SIZE(vert_value)) 
    54       CALL pack(vert_value) 
     51      CALL pack_data(LEN(TRIM(vert_name))) 
     52      CALL pack_data(TRIM(vert_name)) 
     53      CALL pack_data(SIZE(vert_value)) 
     54      CALL pack_data(vert_value) 
    5555      CALL Finalize_request 
    5656    ELSE 
     
    6969    IF (using_server) THEN 
    7070      CALL create_request(event_id_set_grid_dimension) 
    71       CALL pack(LEN(TRIM(name))) 
    72       CALL pack(TRIM(name)) 
    73       CALL pack(ni_glo) 
    74       CALL pack(nj_glo) 
     71      CALL pack_data(LEN(TRIM(name))) 
     72      CALL pack_data(TRIM(name)) 
     73      CALL pack_data(ni_glo) 
     74      CALL pack_data(nj_glo) 
    7575      CALL Finalize_request 
    7676    ELSE 
     
    9494    IF (using_server) THEN 
    9595      CALL create_request(event_id_set_grid_domain) 
    96       CALL pack(LEN(TRIM(name))) 
    97       CALL pack(TRIM(name)) 
    98       CALL pack(ni) 
    99       CALL pack(nj) 
    100       CALL pack(ibegin) 
    101       CALL pack(jbegin) 
    102       CALL pack(lon) 
    103       CALL pack(lat) 
     96      CALL pack_data(LEN(TRIM(name))) 
     97      CALL pack_data(TRIM(name)) 
     98      CALL pack_data(ni) 
     99      CALL pack_data(nj) 
     100      CALL pack_data(ibegin) 
     101      CALL pack_data(jbegin) 
     102      CALL pack_data(lon) 
     103      CALL pack_data(lat) 
    104104      CALL Finalize_request 
    105105    ELSE 
     
    116116    IF (using_server) THEN 
    117117      CALL create_request(event_id_set_grid_type_nemo) 
    118       CALL pack(LEN(TRIM(name))) 
    119       CALL pack(TRIM(name)) 
     118      CALL pack_data(LEN(TRIM(name))) 
     119      CALL pack_data(TRIM(name)) 
    120120      CALL Finalize_request 
    121121    ELSE 
     
    134134    IF (using_server) THEN 
    135135      CALL create_request(event_id_set_grid_type_lmdz) 
    136       CALL pack(LEN(TRIM(name))) 
    137       CALL pack(TRIM(name)) 
    138       CALL pack(nbp) 
    139       CALL pack(offset) 
     136      CALL pack_data(LEN(TRIM(name))) 
     137      CALL pack_data(TRIM(name)) 
     138      CALL pack_data(nbp) 
     139      CALL pack_data(offset) 
    140140      CALL Finalize_request 
    141141    ELSE 
     
    154154    IF (using_server) THEN 
    155155      CALL create_request(event_id_set_time_parameters) 
    156       CALL pack(itau0) 
    157       CALL pack(zjulian) 
    158       CALL pack(zdt) 
     156      CALL pack_data(itau0) 
     157      CALL pack_data(zjulian) 
     158      CALL pack_data(zdt) 
    159159      CALL Finalize_request 
    160160    ELSE 
     
    172172    IF (using_server) THEN 
    173173      CALL create_request(event_id_set_calendar) 
    174       CALL pack(LEN(TRIM(str_calendar))) 
    175       CALL pack(TRIM(str_calendar)) 
     174      CALL pack_data(LEN(TRIM(str_calendar))) 
     175      CALL pack_data(TRIM(str_calendar)) 
    176176      CALL Finalize_request 
    177177    ELSE 
     
    189189    IF (using_server) THEN 
    190190      CALL create_request(event_id_enable_field) 
    191       CALL pack(len(varname)) 
    192       CALL pack(varname) 
     191      CALL pack_data(len(varname)) 
     192      CALL pack_data(varname) 
    193193      CALL Finalize_request  
    194194    ELSE 
     
    205205    IF (using_server) THEN 
    206206      CALL create_request(event_id_disable_field) 
    207       CALL pack(len(varname)) 
    208       CALL pack(varname) 
     207      CALL pack_data(len(varname)) 
     208      CALL pack_data(varname) 
    209209      CALL Finalize_request  
    210210    ELSE 
     
    222222    IF (using_server) THEN 
    223223      CALL create_request(event_id_write_field1d) 
    224       CALL pack(len(varname)) 
    225       CALL pack(size(var,1)) 
    226       CALL pack(varname) 
     224      CALL pack_data(len(varname)) 
     225      CALL pack_data(size(var,1)) 
     226      CALL pack_data(varname) 
    227227      CALL pack_field(var) 
    228228      CALL Finalize_request  
     
    241241    IF (using_server) THEN 
    242242      CALL create_request(event_id_write_field2d) 
    243       CALL pack(len(varname)) 
    244       CALL pack(size(var,1)) 
    245       CALL pack(size(var,2)) 
    246       CALL pack(varname) 
     243      CALL pack_data(len(varname)) 
     244      CALL pack_data(size(var,1)) 
     245      CALL pack_data(size(var,2)) 
     246      CALL pack_data(varname) 
    247247      CALL pack_field(var) 
    248248      CALL Finalize_request  
     
    261261    IF (using_server) THEN 
    262262      CALL create_request(event_id_write_field3d) 
    263       CALL pack(len(varname)) 
    264       CALL pack(size(var,1)) 
    265       CALL pack(size(var,2)) 
    266       CALL pack(size(var,3)) 
    267       CALL pack(varname) 
     263      CALL pack_data(len(varname)) 
     264      CALL pack_data(size(var,1)) 
     265      CALL pack_data(size(var,2)) 
     266      CALL pack_data(size(var,3)) 
     267      CALL pack_data(varname) 
    268268      CALL pack_field(var) 
    269269      CALL Finalize_request  
     
    281281    IF (using_server) THEN 
    282282      CALL create_request(event_id_set_timestep) 
    283       CALL pack(timestep) 
     283      CALL pack_data(timestep) 
    284284      CALL Finalize_request 
    285285    ELSE 
     
    313313    IF (using_server) THEN 
    314314      CALL create_request(event_id_set_attribut) 
    315       CALL pack(len(id)) 
    316       CALL pack(id) 
    317       CALL pack(attrib) 
     315      CALL pack_data(len(id)) 
     316      CALL pack_data(id) 
     317      CALL pack_data(attrib) 
    318318      CALL Finalize_request 
    319319    ELSE 
  • vendors/XMLIO_SERVER/current/src/IOSERVER/mod_event_server.f90

    r1897 r2765  
    11MODULE mod_event_server 
    2   USE mod_pack, ONLY : unpack, unpack_field 
     2  USE mod_pack, ONLY : unpack_data, unpack_field 
    33  USE mod_event_parameters 
    44  USE iomanager 
     
    1616    is_terminated=.FALSE. 
    1717     
    18     CALL unpack(event_id) 
     18    CALL unpack_data(event_id) 
    1919     
    2020    SELECT CASE (event_id) 
     
    8787    INTEGER :: id_size 
    8888    
    89     CALL unpack(id_size) 
     89    CALL unpack_data(id_size) 
    9090    CALL sub_internal(id_size) 
    9191      
     
    9696      CHARACTER(LEN=id_size) :: id      
    9797      
    98        CALL unpack(id) 
     98       CALL unpack_data(id) 
    9999      
    100100       CALL iom__swap_context(id) 
     
    109109    INTEGER :: name_size 
    110110    
    111     CALL unpack(name_size) 
     111    CALL unpack_data(name_size) 
    112112    CALL sub_internal(name_size) 
    113113      
     
    118118      CHARACTER(LEN=name_size) :: filename      
    119119      
    120        CALL unpack(filename) 
     120       CALL unpack_data(filename) 
    121121      
    122122       CALL iom__parse_xml_file(filename) 
     
    132132    INTEGER :: nj_glo 
    133133    
    134     CALL unpack(name_size) 
     134    CALL unpack_data(name_size) 
    135135    CALL sub_internal(name_size) 
    136136      
     
    141141      CHARACTER(LEN=name_size) :: name      
    142142      
    143        CALL unpack(name) 
    144        CALL unpack(ni_glo) 
    145        CALL unpack(nj_glo) 
     143       CALL unpack_data(name) 
     144       CALL unpack_data(ni_glo) 
     145       CALL unpack_data(nj_glo) 
    146146      
    147147       CALL iom__set_grid_dimension(name,ni_glo,nj_glo) 
     
    161161    REAL,ALLOCATABLE :: lat(:,:) 
    162162 
    163     CALL unpack(name_size) 
     163    CALL unpack_data(name_size) 
    164164    CALL sub_internal(name_size) 
    165165      
     
    170170      CHARACTER(LEN=name_size) :: name      
    171171      
    172        CALL unpack(name) 
    173      
    174        CALL unpack(ni) 
    175        CALL unpack(nj) 
    176        CALL unpack(ibegin) 
    177        CALL unpack(jbegin) 
     172       CALL unpack_data(name) 
     173     
     174       CALL unpack_data(ni) 
     175       CALL unpack_data(nj) 
     176       CALL unpack_data(ibegin) 
     177       CALL unpack_data(jbegin) 
    178178     
    179179       ALLOCATE(lon(ni,nj)) 
    180180       ALLOCATE(lat(ni,nj)) 
    181        CALL unpack(lon) 
    182        CALL unpack(lat) 
     181       CALL unpack_data(lon) 
     182       CALL unpack_data(lat) 
    183183     
    184184       CALL iom__set_grid_domain(name,ni,nj,ibegin,jbegin,lon,lat) 
     
    193193    INTEGER :: name_size 
    194194 
    195     CALL unpack(name_size) 
     195    CALL unpack_data(name_size) 
    196196    CALL sub_internal(name_size) 
    197197      
     
    202202      CHARACTER(LEN=name_size) :: name      
    203203      
    204        CALL unpack(name) 
     204       CALL unpack_data(name) 
    205205       CALL iom__set_grid_type_nemo(name) 
    206206 
     
    213213    INTEGER :: name_size 
    214214 
    215     CALL unpack(name_size) 
     215    CALL unpack_data(name_size) 
    216216    CALL sub_internal(name_size) 
    217217      
     
    224224      INTEGER                  :: offset 
    225225       
    226        CALL unpack(name) 
    227        CALL unpack(nbp) 
    228        CALL unpack(offset) 
     226       CALL unpack_data(name) 
     227       CALL unpack_data(nbp) 
     228       CALL unpack_data(offset) 
    229229       CALL iom__set_grid_type_lmdz(name,nbp,offset) 
    230230 
     
    239239    REAL,ALLOCATABLE :: vert_value(:) 
    240240     
    241     CALL unpack(name_size) 
     241    CALL unpack_data(name_size) 
    242242    CALL sub_internal(name_size) 
    243243 
     
    248248      CHARACTER(LEN=name_size) :: name 
    249249     
    250       CALL unpack(name) 
    251       CALL unpack(vert_size) 
     250      CALL unpack_data(name) 
     251      CALL unpack_data(vert_size) 
    252252      ALLOCATE(vert_value(vert_size)) 
    253       CALL unpack(vert_value)  
     253      CALL unpack_data(vert_value)  
    254254       
    255255      CALL iom__set_vert_axis(name,vert_value) 
     
    264264    REAL      :: zdt 
    265265       
    266     CALL unpack(itau0) 
    267     CALL unpack(zjulian) 
    268     CALL unpack(zdt) 
     266    CALL unpack_data(itau0) 
     267    CALL unpack_data(zjulian) 
     268    CALL unpack_data(zdt) 
    269269     
    270270    CALL iom__set_time_parameters(itau0,zjulian,zdt) 
     
    277277    INTEGER :: lenc 
    278278       
    279     CALL unpack(lenc) 
     279    CALL unpack_data(lenc) 
    280280    CALL sub_internal(lenc) 
    281281   
     
    286286      CHARACTER(len=lenc) :: varname 
    287287       
    288       CALL unpack(varname) 
     288      CALL unpack_data(varname) 
    289289       
    290290      CALL iom__enable_field(varname) 
     
    298298    INTEGER :: lenc 
    299299       
    300     CALL unpack(lenc) 
     300    CALL unpack_data(lenc) 
    301301    CALL sub_internal(lenc) 
    302302   
     
    307307      CHARACTER(len=lenc) :: varname 
    308308       
    309       CALL unpack(varname) 
     309      CALL unpack_data(varname) 
    310310       
    311311      CALL iom__disable_field(varname) 
     
    321321    INTEGER :: dim1 
    322322       
    323     CALL unpack(lenc) 
    324     CALL unpack(dim1) 
     323    CALL unpack_data(lenc) 
     324    CALL unpack_data(dim1) 
    325325    CALL sub_internal(lenc,dim1) 
    326326   
     
    333333      REAL                :: var(dim1) 
    334334       
    335       CALL unpack(varname) 
     335      CALL unpack_data(varname) 
    336336      CALL unpack_field(var) 
    337337       
     
    347347    INTEGER :: dim2 
    348348       
    349     CALL unpack(lenc) 
    350     CALL unpack(dim1) 
    351     CALL unpack(dim2) 
     349    CALL unpack_data(lenc) 
     350    CALL unpack_data(dim1) 
     351    CALL unpack_data(dim2) 
    352352    CALL sub_internal(lenc,dim1,dim2) 
    353353   
     
    361361      REAL                :: var(dim1,dim2) 
    362362       
    363       CALL unpack(varname) 
     363      CALL unpack_data(varname) 
    364364      CALL unpack_field(var) 
    365365       
     
    377377    INTEGER :: dim3 
    378378     
    379     CALL unpack(lenc) 
    380     CALL unpack(dim1) 
    381     CALL unpack(dim2) 
    382     CALL unpack(dim3) 
     379    CALL unpack_data(lenc) 
     380    CALL unpack_data(dim1) 
     381    CALL unpack_data(dim2) 
     382    CALL unpack_data(dim3) 
    383383    CALL sub_internal(lenc,dim1,dim2,dim3) 
    384384  
     
    395395      REAL                :: var(dim1,dim2,dim3) 
    396396         
    397       CALL unpack(varname) 
     397      CALL unpack_data(varname) 
    398398      CALL unpack_field(var) 
    399399        
     
    409409    INTEGER :: timestep 
    410410      
    411     CALL unpack(timestep) 
     411    CALL unpack_data(timestep) 
    412412    CALL iom__set_timestep(timestep) 
    413413     
     
    419419    INTEGER :: lenc 
    420420       
    421     CALL unpack(lenc) 
     421    CALL unpack_data(lenc) 
    422422    CALL sub_internal(lenc) 
    423423   
     
    428428      CHARACTER(len=lenc) :: str_calendar 
    429429       
    430       CALL unpack(str_calendar) 
     430      CALL unpack_data(str_calendar) 
    431431       
    432432      CALL iom__set_calendar(str_calendar) 
     
    449449     INTEGER        :: len_id 
    450450      
    451      CALL unpack(len_id) 
     451     CALL unpack_data(len_id) 
    452452     CALL sub_internal 
    453453   CONTAINS 
     
    456456       CHARACTER(LEN=len_id) :: id 
    457457        
    458        CALL unpack(id) 
    459        CALL unpack(attrib) 
     458       CALL unpack_data(id) 
     459       CALL unpack_data(attrib) 
    460460       CALL iom__set_attribut(id,attrib) 
    461461       CALL attr_deallocate(attrib) 
  • vendors/XMLIO_SERVER/current/src/IOSERVER/mod_interface_ioipsl.f90

    r1897 r2765  
    6464     
    6565    DO i=1,file_enabled%size 
    66       CALL sorted_list__new(axis_id) 
    6766       
    6867      pt_file_dep=>file_enabled%at(i)%pt 
    69       pt_file=>pt_file_dep%file 
    70        
    71       pt_grid=>pt_file_dep%grids%at(1)%pt 
    72       pt_domain=>pt_grid%domain 
    73       pt_zoom=>pt_file_dep%zooms%at(1)%pt 
    74 !      print *,TRIM(pt_file%name),' ',TRIM(pt_zoom%id) 
    75 !      print*,'Global --->',pt_zoom%ni_glo,pt_zoom%nj_glo,pt_zoom%ibegin_glo,pt_zoom%jbegin_glo 
    76 !      print*,'Local  --->',pt_zoom%ni_loc,pt_zoom%nj_loc,pt_zoom%ibegin_loc,pt_zoom%jbegin_loc 
    77        
    78       IF (pt_zoom%ni_loc*pt_zoom%nj_loc > 0) THEN 
    79          
    80         full_name=TRIM(pt_file%name) 
    81         IF (pt_file%has_name_suffix) full_name=TRIM(full_name)//TRIM(pt_file%name_suffix)  
    82         IF ( (pt_zoom%ni_loc == pt_zoom%ni_glo) .AND. (pt_zoom%nj_loc == pt_zoom%nj_glo) ) THEN  
    83  
    84           CALL histbeg(TRIM(full_name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat, &  
    85                      pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,         & 
    86                      initial_timestep, initial_date, timestep_value,                               & 
    87                      ioipsl_hori_id, ioipsl_file_id) 
    88          ELSE                                               
    89  
    90           CALL set_ioipsl_domain_id(pt_grid,nb_server,server_rank,ioipsl_domain_id) 
    91           CALL histbeg(TRIM(full_name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat,  & 
    92                      pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,          & 
    93                      initial_timestep, initial_date, timestep_value,                                & 
    94                      ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id)                                               
    95         
    96          ENDIF 
    97          
    98        
    99         DO j=1,pt_file_dep%axis%size 
    100           pt_axis=>pt_file_dep%axis%at(j)%pt 
    101           CALL sorted_list__find(axis_id,hash(Pt_axis%name),ioipsl_axis_id,found) 
    102           IF (.NOT. found) THEN 
    103             IF (TRIM(pt_axis%name) /= "none") THEN 
     68 
     69      IF (pt_file_dep%fields%size>0) THEN 
     70        CALL sorted_list__new(axis_id) 
     71 
     72        pt_file=>pt_file_dep%file 
     73       
     74        pt_grid=>pt_file_dep%grids%at(1)%pt 
     75        pt_domain=>pt_grid%domain 
     76        pt_zoom=>pt_file_dep%zooms%at(1)%pt 
     77!        print *,TRIM(pt_file%name),' ',TRIM(pt_zoom%id) 
     78!        print*,'Global --->',pt_zoom%ni_glo,pt_zoom%nj_glo,pt_zoom%ibegin_glo,pt_zoom%jbegin_glo 
     79!        print*,'Local  --->',pt_zoom%ni_loc,pt_zoom%nj_loc,pt_zoom%ibegin_loc,pt_zoom%jbegin_loc 
     80       
     81        IF (pt_zoom%ni_loc*pt_zoom%nj_loc > 0) THEN 
     82         
     83          full_name=TRIM(pt_file%name) 
     84          IF (pt_file%has_name_suffix) full_name=TRIM(full_name)//TRIM(pt_file%name_suffix)  
     85          IF ( (pt_zoom%ni_loc == pt_zoom%ni_glo) .AND. (pt_zoom%nj_loc == pt_zoom%nj_glo) ) THEN  
     86 
     87            CALL histbeg(TRIM(full_name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat, &  
     88                       pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,         & 
     89                       initial_timestep, initial_date, timestep_value,                               & 
     90                       ioipsl_hori_id, ioipsl_file_id) 
     91           ELSE                                               
     92 
     93            CALL set_ioipsl_domain_id(pt_grid,nb_server,server_rank,ioipsl_domain_id) 
     94            CALL histbeg(TRIM(full_name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat,  & 
     95                       pt_zoom%ibegin_loc, pt_zoom%ni_loc,pt_zoom%jbegin_loc,pt_zoom%nj_loc,          & 
     96                       initial_timestep, initial_date, timestep_value,                                & 
     97                       ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id)                                               
     98           
     99           ENDIF 
     100         
     101       
     102          DO j=1,pt_file_dep%axis%size 
     103            pt_axis=>pt_file_dep%axis%at(j)%pt 
     104            CALL sorted_list__find(axis_id,hash(Pt_axis%name),ioipsl_axis_id,found) 
     105            IF (.NOT. found) THEN 
     106              IF (TRIM(pt_axis%name) /= "none") THEN 
    104107               
    105               IF (pt_axis%has_positive) THEN  
    106                 IF (pt_axis%positive) THEN 
    107                   direction="up" 
     108                IF (pt_axis%has_positive) THEN  
     109                  IF (pt_axis%positive) THEN 
     110                    direction="up" 
     111                  ELSE 
     112                    direction="down" 
     113                  ENDIF 
    108114                ELSE 
    109                   direction="down" 
     115                  direction='unknown' 
    110116                ENDIF 
    111               ELSE 
    112                 direction='unknown' 
     117 
     118                CALL histvert(ioipsl_file_id, TRIM(pt_axis%name),TRIM(pt_axis%description),    & 
     119                             TRIM(pt_axis%unit), pt_axis%size,pt_axis%values, ioipsl_axis_id,  & 
     120                           pdirect=direction) 
     121                CALL sorted_list__add(axis_id,hash(Pt_axis%name),ioipsl_axis_id) 
    113122              ENDIF 
    114  
    115               CALL histvert(ioipsl_file_id, TRIM(pt_axis%name),TRIM(pt_axis%description),    & 
    116                            TRIM(pt_axis%unit), pt_axis%size,pt_axis%values, ioipsl_axis_id,  & 
    117                            pdirect=direction) 
    118               CALL sorted_list__add(axis_id,hash(Pt_axis%name),ioipsl_axis_id) 
    119123            ENDIF 
    120           ENDIF 
    121         ENDDO 
    122          
    123         DO j=1,pt_file_dep%fields%size 
    124           pt_field=>pt_file_dep%fields%at(j)%pt 
    125           IF (pt_field%axis%name=="none") THEN 
    126             pt_field%internal(id_file)=ioipsl_file_id 
    127             CALL histdef(ioipsl_file_id, TRIM(pt_field%name), pt_field%description,            & 
    128                       &  pt_field%unit, pt_field%grid%domain%ni, pt_field%grid%domain%nj,      & 
    129                       &  ioipsl_hori_id, 1, 1, 1, -99, 32, pt_field%operation,                 & 
    130                       &  real(pt_field%freq_op), real(pt_file%output_freq) ) 
    131           ELSE 
    132             pt_field%internal(id_file)=ioipsl_file_id 
    133             CALL sorted_list__find(axis_id,hash(Pt_field%axis%name),ioipsl_axis_id,found) 
    134             CALL histdef(ioipsl_file_id, TRIM(pt_field%name), pt_field%description,          & 
    135                        & pt_field%unit, pt_field%grid%domain%ni, pt_field%grid%domain%nj,    & 
    136                        & ioipsl_hori_id, pt_field%axis%size, 1, pt_field%axis%size,          & 
    137                        & ioipsl_axis_id, 32, pt_field%operation, real(pt_field%freq_op),     & 
    138                        & real(pt_file%output_freq) ) 
    139           ENDIF 
    140         ENDDO 
    141         CALL histend(ioipsl_file_id) 
     124         ENDDO 
     125         
     126          DO j=1,pt_file_dep%fields%size 
     127            pt_field=>pt_file_dep%fields%at(j)%pt 
     128            IF (pt_field%axis%name=="none") THEN 
     129              pt_field%internal(id_file)=ioipsl_file_id 
     130              CALL histdef(ioipsl_file_id, TRIM(pt_field%name), pt_field%description,            & 
     131                        &  pt_field%unit, pt_field%grid%domain%ni, pt_field%grid%domain%nj,      & 
     132                        &  ioipsl_hori_id, 1, 1, 1, -99, 32, pt_field%operation,                 & 
     133                        &  real(pt_field%freq_op), real(pt_file%output_freq) ) 
     134            ELSE 
     135              pt_field%internal(id_file)=ioipsl_file_id 
     136              CALL sorted_list__find(axis_id,hash(Pt_field%axis%name),ioipsl_axis_id,found) 
     137              CALL histdef(ioipsl_file_id, TRIM(pt_field%name), pt_field%description,          & 
     138                         & pt_field%unit, pt_field%grid%domain%ni, pt_field%grid%domain%nj,    & 
     139                         & ioipsl_hori_id, pt_field%axis%size, 1, pt_field%axis%size,          & 
     140                         & ioipsl_axis_id, 32, pt_field%operation, real(pt_field%freq_op),     & 
     141                         & real(pt_file%output_freq) ) 
     142            ENDIF 
     143          ENDDO 
     144          CALL histend(ioipsl_file_id) 
     145        ENDIF 
     146        CALL sorted_list__delete(axis_id) 
    142147      ENDIF 
    143       CALL sorted_list__delete(axis_id) 
    144148    ENDDO 
    145149     
  • vendors/XMLIO_SERVER/current/src/IOSERVER/mod_mpi_buffer_client.f90

    r1897 r2765  
    6969    pack_pos=pack_pos+1 
    7070!    PRINT *,"Pos in Buffer",Pending_request(Request_pos)%Pos,"pack_pos",pack_pos 
    71     CALL pack(request_id) 
     71    CALL pack_data(request_id) 
    7272  END SUBROUTINE create_request 
    7373   
  • vendors/XMLIO_SERVER/current/src/IOSERVER/mod_pack.f90

    r1897 r2765  
    55    INTEGER,SAVE      :: pack_pos 
    66     
    7     INTERFACE pack 
     7    INTERFACE pack_data 
    88      MODULE PROCEDURE pack_r,pack_r1,pack_r2,pack_r3,pack_r4,                 & 
    99                       pack_i,pack_i1,pack_i2,pack_i3,pack_i4,                 & 
     
    1111                       pack_c,pack_c1,pack_c2,pack_c3,pack_c4,                 & 
    1212                       pack_attr 
    13     END INTERFACE pack 
    14  
    15     INTERFACE unpack 
     13    END INTERFACE pack_data 
     14 
     15    INTERFACE unpack_data 
    1616      MODULE PROCEDURE unpack_r,unpack_r1,unpack_r2,unpack_r3,unpack_r4,       & 
    1717                       unpack_i,unpack_i1,unpack_i2,unpack_i3,unpack_i4,       & 
     
    1919                       unpack_c,unpack_c1,unpack_c2,unpack_c3,unpack_c4,       & 
    2020                       unpack_attr 
    21     END INTERFACE unpack 
     21    END INTERFACE unpack_data 
    2222 
    2323    INTERFACE pack_field 
     
    474474       TYPE(attribut) :: attrib 
    475475 
    476        CALL pack(attrib%object) 
    477        CALL pack(attrib%name) 
    478        CALL pack(attrib%type) 
    479        CALL pack(attrib%dim) 
    480        CALL pack(attrib%ndim) 
    481        CALL pack(attrib%string_len) 
     476       CALL pack_data(attrib%object) 
     477       CALL pack_data(attrib%name) 
     478       CALL pack_data(attrib%type) 
     479       CALL pack_data(attrib%dim) 
     480       CALL pack_data(attrib%ndim) 
     481       CALL pack_data(attrib%string_len) 
    482482               
    483483       SELECT CASE(attrib%type) 
    484484         CASE (integer0) 
    485            CALL pack(attrib%integer0_ptr) 
     485           CALL pack_data(attrib%integer0_ptr) 
    486486         CASE (integer1) 
    487            CALL pack(attrib%integer1_ptr) 
     487           CALL pack_data(attrib%integer1_ptr) 
    488488         CASE (integer2) 
    489            CALL pack(attrib%integer2_ptr) 
     489           CALL pack_data(attrib%integer2_ptr) 
    490490         CASE (real0) 
    491            CALL pack(attrib%real0_ptr) 
     491           CALL pack_data(attrib%real0_ptr) 
    492492         CASE (real1) 
    493            CALL pack(attrib%real1_ptr) 
     493           CALL pack_data(attrib%real1_ptr) 
    494494         CASE (real2) 
    495            CALL pack(attrib%real2_ptr) 
     495           CALL pack_data(attrib%real2_ptr) 
    496496         CASE (logical0) 
    497            CALL pack(attrib%logical0_ptr) 
     497           CALL pack_data(attrib%logical0_ptr) 
    498498         CASE (logical1) 
    499            CALL pack(attrib%logical1_ptr) 
     499           CALL pack_data(attrib%logical1_ptr) 
    500500         CASE (logical2) 
    501            CALL pack(attrib%logical2_ptr) 
     501           CALL pack_data(attrib%logical2_ptr) 
    502502         CASE (string0) 
    503503           CALL pack_string0(attrib%string0_ptr) 
     
    505505           CALL pack_string1(attrib%string1_ptr) 
    506506         CASE (string2) 
    507            CALL pack(attrib%string2_ptr) 
     507           CALL pack_data(attrib%string2_ptr) 
    508508       END SELECT 
    509509 
     
    512512       SUBROUTINE pack_string0(str) 
    513513         CHARACTER(LEN=attrib%string_len) ::str 
    514            CALL pack(str) 
     514           CALL pack_data(str) 
    515515       END SUBROUTINE 
    516516 
    517517       SUBROUTINE pack_string1(str) 
    518518         CHARACTER(LEN=attrib%string_len) ::str(:) 
    519            CALL pack(str) 
     519           CALL pack_data(str) 
    520520       END SUBROUTINE 
    521521        
    522522       SUBROUTINE pack_string2(str) 
    523523         CHARACTER(LEN=attrib%string_len) ::str(:,:) 
    524            CALL pack(str) 
     524           CALL pack_data(str) 
    525525       END SUBROUTINE 
    526526 
     
    533533       TYPE(attribut) :: attrib 
    534534 
    535        CALL unpack(attrib%object) 
    536        CALL unpack(attrib%name) 
    537        CALL unpack(attrib%type) 
    538        CALL unpack(attrib%dim) 
    539        CALL unpack(attrib%ndim) 
    540        CALL unpack(attrib%string_len) 
     535       CALL unpack_data(attrib%object) 
     536       CALL unpack_data(attrib%name) 
     537       CALL unpack_data(attrib%type) 
     538       CALL unpack_data(attrib%dim) 
     539       CALL unpack_data(attrib%ndim) 
     540       CALL unpack_data(attrib%string_len) 
    541541               
    542542       SELECT CASE(attrib%type) 
    543543         CASE (integer0) 
    544544           ALLOCATE(attrib%integer0_ptr) 
    545            CALL unpack(attrib%integer0_ptr) 
     545           CALL unpack_data(attrib%integer0_ptr) 
    546546         CASE (integer1) 
    547547           ALLOCATE(attrib%integer1_ptr(attrib%dim(1))) 
    548            CALL unpack(attrib%integer1_ptr) 
     548           CALL unpack_data(attrib%integer1_ptr) 
    549549         CASE (integer2) 
    550550           ALLOCATE(attrib%integer2_ptr(attrib%dim(1),attrib%dim(2))) 
    551            CALL unpack(attrib%integer2_ptr) 
     551           CALL unpack_data(attrib%integer2_ptr) 
    552552         CASE (real0) 
    553553           ALLOCATE(attrib%real0_ptr) 
    554            CALL unpack(attrib%real0_ptr) 
     554           CALL unpack_data(attrib%real0_ptr) 
    555555         CASE (real1) 
    556556           ALLOCATE(attrib%real1_ptr(attrib%dim(1))) 
    557            CALL unpack(attrib%real1_ptr) 
     557           CALL unpack_data(attrib%real1_ptr) 
    558558         CASE (real2) 
    559559           ALLOCATE(attrib%real2_ptr(attrib%dim(1),attrib%dim(2))) 
    560560         CASE (logical0) 
    561561           ALLOCATE(attrib%logical0_ptr) 
    562            CALL unpack(attrib%logical0_ptr) 
     562           CALL unpack_data(attrib%logical0_ptr) 
    563563         CASE (logical1) 
    564564           ALLOCATE(attrib%logical1_ptr(attrib%dim(1))) 
    565            CALL unpack(attrib%logical1_ptr) 
     565           CALL unpack_data(attrib%logical1_ptr) 
    566566         CASE (logical2) 
    567567           ALLOCATE(attrib%logical2_ptr(attrib%dim(1),attrib%dim(2))) 
    568            CALL unpack(attrib%logical2_ptr) 
     568           CALL unpack_data(attrib%logical2_ptr) 
    569569         CASE (string0) 
    570570           ALLOCATE(attrib%string0_ptr) 
     
    582582       SUBROUTINE unpack_string0 
    583583         CHARACTER(LEN=attrib%string_len) ::str 
    584            CALL unpack(str) 
     584           CALL unpack_data(str) 
    585585           attrib%string0_ptr=str 
    586586       END SUBROUTINE 
     
    588588       SUBROUTINE unpack_string1 
    589589         CHARACTER(LEN=attrib%string_len) ::str(attrib%dim(1)) 
    590            CALL unpack(str) 
     590           CALL unpack_data(str) 
    591591           attrib%string1_ptr=str 
    592592       END SUBROUTINE 
     
    594594       SUBROUTINE unpack_string2 
    595595         CHARACTER(LEN=attrib%string_len) ::str(attrib%dim(1),attrib%dim(2)) 
    596            CALL unpack(str) 
     596           CALL unpack_data(str) 
    597597           attrib%string2_ptr=str 
    598598       END SUBROUTINE 
  • vendors/XMLIO_SERVER/current/src/XMLIO/create_template

    • Property svn:executable set to *
  • vendors/XMLIO_SERVER/current/src/XMLIO/mod_file.f90

    r1897 r2765  
    8989   pt_file%has_output_freq  = .FALSE. 
    9090   pt_file%has_output_level = .FALSE. 
    91    pt_file%has_output_level = .FALSE. 
     91   pt_file%has_enabled = .FALSE. 
    9292    
    9393   IF (PRESENT(Id)) THEN 
Note: See TracChangeset for help on using the changeset viewer.