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 2671 for vendors/AGRIF/current/AGRIF_FILES/modbc.F – NEMO

Ignore:
Timestamp:
2011-03-08T15:08:49+01:00 (13 years ago)
Author:
rblod
Message:

Load working_directory into vendors/AGRIF/current.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • vendors/AGRIF/current/AGRIF_FILES/modbc.F

    r1901 r2671  
    11! 
    2 ! $Id: modbc.F 1793 2010-01-06 19:20:12Z rblod $ 
     2! $Id: modbc.F 779 2007-12-22 17:04:17Z rblod $ 
    33! 
    44C     AGRIF (Adaptive Grid Refinement In Fortran) 
    … …  
    8686C       
    8787C     Values of the grid variable 
    88       childtemp % var % array1 => tab   
     88      childtemp % var % parray1 => tab   
    8989C 
    9090C     Temporary results for the time interpolation before and after the space  
    … …  
    167167C       
    168168C     Values of the grid variable 
    169       childtemp % var % array2 => tab   
     169      childtemp % var % parray2 => tab   
    170170C 
    171171C     Temporary results for the time interpolation before and after the space  
    … …  
    247247C       
    248248C     Values of the grid variable 
    249       childtemp % var % array3 => tab 
     249      childtemp % var % parray3 => tab 
    250250C 
    251251C     Temporary results for the time interpolation before and after the space  
    … …  
    328328C       
    329329C     Values of the grid variable 
    330       childtemp % var % array4 => tab   
     330      childtemp % var % parray4 => tab   
    331331C 
    332332C     Temporary results for the time interpolation before and after the space  
    … …  
    409409C       
    410410C     Values of the grid variable 
    411       childtemp % var % array5 => tab   
     411      childtemp % var % parray5 => tab   
    412412C 
    413413C     Temporary results for the time interpolation before and after the space  
    … …  
    491491C       
    492492C     Values of the grid variable 
    493       childtemp % var % array6 => tab   
     493      childtemp % var % parray6 => tab   
    494494C 
    495495C     Temporary results for the time interpolation before and after the space  
    … …  
    814814       
    815815      CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 
    816      &                     MPI_COMM_AGRIF,code)   
     816     &                     MPI_COMM_WORLD,code)   
    817817      
    818818      lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)       
    … …  
    10671067         do ir=bounds(1,1),bounds(1,2) 
    10681068            child%var%oldvalues2d(2,kindex) = 
    1069      &           child%var%array1(ir) 
     1069     &           child%var%parray1(ir) 
    10701070            kindex = kindex + 1 
    10711071         enddo        
    … …  
    10771077           do ir=bounds(1,1),bounds(1,2) 
    10781078            child%var%oldvalues2d(2,kindex) = 
    1079      &           child%var%array2(ir,jr) 
     1079     &           child%var%parray2(ir,jr) 
    10801080            kindex = kindex + 1 
    10811081           enddo 
    … …  
    10881088             do ir=bounds(1,1),bounds(1,2) 
    10891089            child%var%oldvalues2d(2,kindex) = 
    1090      &           child%var%array3(ir,jr,kr) 
     1090     &           child%var%parray3(ir,jr,kr) 
    10911091            kindex = kindex + 1 
    10921092             enddo 
    … …  
    11011101               do ir=bounds(1,1),bounds(1,2) 
    11021102            child%var%oldvalues2d(2,kindex) = 
    1103      &           child%var%array4(ir,jr,kr,lr) 
     1103     &           child%var%parray4(ir,jr,kr,lr) 
    11041104            kindex = kindex + 1 
    11051105               enddo 
    … …  
    11161116                 do ir=bounds(1,1),bounds(1,2) 
    11171117            child%var%oldvalues2d(2,kindex) = 
    1118      &           child%var%array5(ir,jr,kr,lr,mr) 
     1118     &           child%var%parray5(ir,jr,kr,lr,mr) 
    11191119            kindex = kindex + 1 
    11201120                 enddo 
    … …  
    11331133                   do ir=bounds(1,1),bounds(1,2) 
    11341134            child%var%oldvalues2d(2,kindex) = 
    1135      &           child%var%array6(ir,jr,kr,lr,mr,nr) 
     1135     &           child%var%parray6(ir,jr,kr,lr,mr,nr) 
    11361136            kindex = kindex + 1 
    11371137                   enddo 
    … …  
    11841184!CDIR ALTCODE 
    11851185         do ir=bounds(1,1),bounds(1,2) 
    1186                 child%var%array1(ir) = 
     1186                child%var%parray1(ir) = 
    11871187     &           c2t*child % var % oldvalues2d(1,kindex)    
    11881188     &         + c1t*child % var % oldvalues2d(2,kindex)     
    … …  
    11951195!CDIR ALTCODE 
    11961196           do ir=bounds(1,1),bounds(1,2) 
    1197                 child%var%array2(ir,jr) = 
     1197                child%var%parray2(ir,jr) = 
    11981198     &           c2t*child % var % oldvalues2d(1,kindex)    
    11991199     &         + c1t*child % var % oldvalues2d(2,kindex)  
    … …  
    12071207!CDIR ALTCODE 
    12081208             do ir=bounds(1,1),bounds(1,2) 
    1209                 child%var%array3(ir,jr,kr) = 
     1209                child%var%parray3(ir,jr,kr) = 
    12101210     &           c2t*child % var % oldvalues2d(1,kindex)    
    12111211     &         + c1t*child % var % oldvalues2d(2,kindex)  
    … …  
    12211221!CDIR ALTCODE 
    12221222               do ir=bounds(1,1),bounds(1,2) 
    1223                 child%var%array4(ir,jr,kr,lr) = 
     1223                child%var%parray4(ir,jr,kr,lr) = 
    12241224     &           c2t*child % var % oldvalues2d(1,kindex)    
    12251225     &         + c1t*child % var % oldvalues2d(2,kindex)  
    … …  
    12371237!CDIR ALTCODE 
    12381238                 do ir=bounds(1,1),bounds(1,2) 
    1239                 child%var%array5(ir,jr,kr,lr,mr) = 
     1239                child%var%parray5(ir,jr,kr,lr,mr) = 
    12401240     &           c2t*child % var % oldvalues2d(1,kindex)    
    12411241     &         + c1t*child % var % oldvalues2d(2,kindex)  
    … …  
    12551255!CDIR ALTCODE 
    12561256                   do ir=bounds(1,1),bounds(1,2) 
    1257                 child%var%array6(ir,jr,kr,lr,mr,nr) = 
     1257                child%var%parray6(ir,jr,kr,lr,mr,nr) = 
    12581258     &           c2t*child % var % oldvalues2d(1,kindex)    
    12591259     &         + c1t*child % var % oldvalues2d(2,kindex)  
Note: See TracChangeset for help on using the changeset viewer.