Changeset 3967


Ignore:
Timestamp:
2013-07-10T14:43:23+02:00 (7 years ago)
Author:
cbricaud
Message:

Vertical scale factors with sco and AGRIF, see ticket #1129

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r3926 r3967  
    13731373      where (e3vw  (:,:,:).eq.0.0)  e3vw(:,:,:) = 1.0 
    13741374 
     1375#if defined key_agrif 
     1376      ! Ensure meaningful vertical scale factors in ghost lines/columns 
     1377      IF( .NOT. Agrif_Root() ) THEN 
     1378         !   
     1379         IF((nbondi == -1).OR.(nbondi == 2)) THEN 
     1380            e3u(1,:,:) = e3u(2,:,:) 
     1381         ENDIF 
     1382         ! 
     1383         IF((nbondi ==  1).OR.(nbondi == 2)) THEN 
     1384            e3u(nlci-1,:,:) = e3u(nlci-2,:,:) 
     1385         ENDIF 
     1386         ! 
     1387         IF((nbondj == -1).OR.(nbondj == 2)) THEN 
     1388            e3v(:,1,:) = e3v(:,2,:) 
     1389         ENDIF 
     1390         ! 
     1391         IF((nbondj ==  1).OR.(nbondj == 2)) THEN 
     1392            e3v(:,nlcj-1,:) = e3v(:,nlcj-2,:) 
     1393         ENDIF 
     1394         ! 
     1395      ENDIF 
     1396#endif 
    13751397 
    13761398      fsdept(:,:,:) = gdept (:,:,:) 
Note: See TracChangeset for help on using the changeset viewer.