Ignore:
Timestamp:
2019-12-17T18:32:39+01:00 (11 months ago)
Author:
clem
Message:

finishing cleaning the nesting tools (as far as I could). I will stop there

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/NESTING/src/agrif_connect_topo.f90

    r12253 r12264  
    251251    ! 
    252252    ! 
    253     DO j = 1,jpj 
    254        DO i = 1,jpi 
     253    DO jj = 1,jpj 
     254       DO ji = 1,jpi 
    255255          ! 
    256           IF (Grid%bathy_meter(i,j) .EQ. 0.0 ) THEN 
    257              Grid%bathy_level(i,j)=0 
     256          IF (Grid%bathy_meter(ji,jj) .EQ. 0.0 ) THEN 
     257             Grid%bathy_level(ji,jj)=0 
    258258          ELSE 
    259259             !  
    260              k1=4 
     260             k1=2  ! clem: minimum levels = 4 ??? 
    261261             DO WHILE (k1 .LT. (N-1)) 
    262                 IF ((Grid%bathy_meter(i,j).GE.gdepw(k1)) & 
    263                      .AND.(Grid%bathy_meter(i,j).LE.gdepw(k1+1))) EXIT 
     262                IF ((Grid%bathy_meter(ji,jj).GE.gdepw(k1)) & 
     263                     .AND.(Grid%bathy_meter(ji,jj).LE.gdepw(k1+1))) EXIT 
    264264                k1=k1+1 
    265265             END DO 
    266              Grid%bathy_level(i,j)=k1 
     266             Grid%bathy_level(ji,jj)=k1 
    267267             ! 
    268268          ENDIF 
Note: See TracChangeset for help on using the changeset viewer.