Changes in XMLIO_SERVER/trunk/src/XMLIO/mod_domain.f90 [8:29]

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_domain.f90 (modified) (2 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_domain.f90

@@ -1 +1 @@
 MODULE mod_domain
    USE mod_xmlio_parameters
-
    INTEGER, PARAMETER :: box=1
    INTEGER, PARAMETER :: orange=2
@@ -123 +122 @@
     ENDIF
 
+    pt_domain%nbp=nbp
     ALLOCATE(pt_domain%i_index(nbp))
     ALLOCATE(pt_domain%j_index(nbp))
+    ALLOCATE(pt_domain%mask(nbp))
         
     DO i=1,nbp
-      Pt_domain%i_index(i)=(index(i)+offset)/pt_domain%nj+1+pt_domain%ibegin-1
-      Pt_domain%j_index(i)=MOD(index(i)+offset,pt_domain%nj)+1+pt_domain%jbegin-1
+!      Pt_domain%i_index(i)=(index(i)+offset)/pt_domain%ni+1+pt_domain%ibegin-1
+!      Pt_domain%j_index(i)=MOD(index(i)+offset,pt_domain%ni)+1+pt_domain%jbegin-1
+      Pt_domain%i_index(i)=MOD(index(i)+offset-1,pt_domain%ni)+1
+      Pt_domain%j_index(i)=(index(i)+offset-1)/pt_domain%ni+1
+      
     ENDDO