Changeset 173


Ignore:
Timestamp:
10/07/13 17:23:54 (11 years ago)
Author:
ymipsl
Message:

bug fix for output vorticity field with XIOS

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/xios_mod.F90

    r171 r173  
    251251     n=0 
    252252     DO ind=1,ndomain 
     253        
    253254       d=>domain(ind) 
    254255         
    … …  
    323324     DO ind=1,ndomain 
    324325       d=>domain(ind) 
    325          
    326        DO j=jj_begin+1,jj_end 
    327          DO i=ii_begin,ii_end-1 
     326       CALL swap_dimensions(ind)   
     327        
     328       DO j=d%jj_begin+1,d%jj_end 
     329         DO i=d%ii_begin,d%ii_end-1 
    328330           n=n+1 
    329331           ij=iim*(j-1)+i 
    … …  
    332334       ENDDO 
    333335 
    334        DO j=jj_begin,jj_end-1 
    335          DO i=ii_begin+1,ii_end 
     336       DO j=d%jj_begin,d%jj_end-1 
     337         DO i=d%ii_begin+1,d%ii_end 
    336338           n=n+1 
    337339           ij=iim*(j-1)+i 
    … …  
    346348     DO ind=1,ndomain 
    347349       d=>domain(ind) 
    348          
    349        DO j=jj_begin+1,jj_end 
    350          DO i=ii_begin,ii_end-1 
     350       CALL swap_dimensions(ind)     
     351              
     352       DO j=d%jj_begin+1,d%jj_end 
     353         DO i=d%ii_begin,d%ii_end-1 
    351354           n=n+1 
    352355           ij=iim*(j-1)+i 
    … …  
    355358       ENDDO 
    356359 
    357        DO j=jj_begin,jj_end-1 
    358          DO i=ii_begin+1,ii_end 
     360       DO j=d%jj_begin,d%jj_end-1 
     361         DO i=d%ii_begin+1,d%ii_end 
    359362           n=n+1 
    360363           ij=iim*(j-1)+i 
    … …  
    369372     DO ind=1,ndomain 
    370373       d=>domain(ind) 
    371          
    372        DO j=jj_begin+1,jj_end 
    373          DO i=ii_begin,ii_end-1 
     374       CALL swap_dimensions(ind)  
     375                
     376       DO j=d%jj_begin+1,d%jj_end 
     377         DO i=d%ii_begin,d%ii_end-1 
    374378           n=n+1 
    375379           ij=iim*(j-1)+i 
    … …  
    378382       ENDDO 
    379383 
    380        DO j=jj_begin,jj_end-1 
    381          DO i=ii_begin+1,ii_end 
     384       DO j=d%jj_begin,d%jj_end-1 
     385         DO i=d%ii_begin+1,d%ii_end 
    382386           n=n+1 
    383387           ij=iim*(j-1)+i 
Note: See TracChangeset for help on using the changeset viewer.