Ignore:
Timestamp:
04/19/11 15:06:51 (13 years ago)
Author:
hozdoba
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_nemo.f90

    r179 r180  
    2121      REAL(kind = 8), DIMENSION(10000)   :: real_array 
    2222      INTEGER                           :: rankGrp, error 
    23       INTEGER                           :: ibegin, iend, jbegin, jend 
     23      INTEGER                           :: ibegin, iend, jbegin, jend, data_ni, data_ibegin 
    2424      TYPE(XDate)                       :: init_date_nemo  = XDate(1985, 03, 15, 17, 35, 00) 
    2525      TYPE(XHandle)                     :: nemo_style_ctxt = NULLHANDLE 
    … …  
    2727                                           temp_mod_  = NULLHANDLE, & 
    2828                                           temp_mod__ = NULLHANDLE 
     29 
     30 
    2931 
    3032      CALL MPI_COMM_RANK(comm_client, rankGrp, error) 
    … …  
    197199      IF (rankGrp .EQ. 0) THEN 
    198200         ibegin = 1 
    199          iend   = 50 
     201         iend   = 51 
    200202         jbegin = 1 
    201203         jend   = 50 
     204         data_ni     = 50 
     205         data_ibegin = 0 
    202206      ELSE IF (rankGrp .EQ. 1) THEN 
    203          ibegin = 51 
     207         ibegin = 50 
    204208         iend   = 100 
    205209         jbegin = 1 
    206210         jend   = 50 
     211         data_ni     = 50 
     212         data_ibegin = 1 
    207213      END IF 
    208214 
    … …  
    220226                                 iend_          = iend,           & 
    221227                                 jbegin_        = jbegin,         & 
    222                                  jend_          = jend) 
     228                                 jend_          = jend,           & 
     229                                 data_ni_       = data_ni,        & 
     230                                 data_ibegin_   = data_ibegin) 
    223231 
    224232      CALL xml_tree_add(parent_hdl  = temp_mod_,  & 
    … …  
    232240         iend   = 90 
    233241         jbegin = 1 
    234          jend   = 10 
     242         jend   = 10         
    235243      ELSE IF (rankGrp .EQ. 1) THEN 
    236244         ibegin = 1 
    … …  
    249257                                 data_dim_      = 2,              & 
    250258                                 ni_glo_        = 90,             & 
    251                                  nj_glo_        = 40,             & 
     259                                 nj_glo_        = 20,             & 
    252260                                 ibegin_        = ibegin,         & 
    253261                                 iend_          = iend,           & 
Note: See TracChangeset for help on using the changeset viewer.