Changeset 14623 for utils/tools/DOMAINcfg/src/dombat.F90

Timestamp:

2021-03-21T19:40:22+01:00 (3 years ago)

Author:

ldebreu

Message:

AGFdomcfg: 1) Update DOMAINcfg to be compliant with the removal of halo cells 2) Update most of the LBC ... subroutines to a recent NEMO 4 version #2638

File:

• utils/tools/DOMAINcfg/src/dombat.F90 (modified) (2 diffs)

utils/tools/DOMAINcfg/src/dombat.F90

@@ -49 +49 @@
       latname=TRIM(cn_lat)
    
-      CALL iom_open( bathyfile, inum, lagrif=.FALSE. )
+      CALL iom_open( bathyfile, inum, ldiof=.TRUE. )
       
       ! check if lon/lat are 2D arrays
@@ -404 +404 @@
         !            
       ENDIF
-      CALL lbc_lnk( 'dom_bat', bathy, 'T', 1. )
+      CALL lbc_lnk( 'dom_bat', bathy, 'T', 1.,kfillmode = jpfillcopy)
 
        ! Correct South and North
-#if defined key_agrif
-      IF( lk_south ) THEN  
-         IF( (nbondj == -1).OR.(nbondj == 2) ) THEN
-           bathy(:,1)=bathy(:,2)
-         ENDIF
-      ELSE
-            bathy(:,1) = 0.
-      ENDIF
-#else
-      IF ((nbondj == -1).OR.(nbondj == 2)) THEN
-            bathy(:,1)=bathy(:,2)
-      ENDIF
-#endif
-
-      IF ((nbondj == 1).OR.(nbondj == 2)) THEN
-         bathy(:,jpj)=bathy(:,jpj-1)
-      ENDIF
-
-      ! Correct West and East
-      IF (jperio /=1) THEN
-         IF ((nbondi == -1).OR.(nbondi == 2)) THEN
-            bathy(1,:)=bathy(2,:)
-         ENDIF
-         IF ((nbondi == 1).OR.(nbondi == 2)) THEN
-         bathy(jpi,:)=bathy(jpi-1,:)
-         ENDIF
-      ENDIF
+! #if defined key_agrif
+!       IF( lk_south ) THEN  
+!          IF( (nbondj == -1).OR.(nbondj == 2) ) THEN
+!            bathy(:,1)=bathy(:,2)
+!          ENDIF
+!       ELSE
+!             bathy(:,1) = 0.
+!       ENDIF
+! #else
+!       IF ((nbondj == -1).OR.(nbondj == 2)) THEN
+!             bathy(:,1)=bathy(:,2)
+!       ENDIF
+! #endif
+
+!       IF ((nbondj == 1).OR.(nbondj == 2)) THEN
+!          bathy(:,jpj)=bathy(:,jpj-1)
+!       ENDIF
+
+!       ! Correct West and East
+!       IF (jperio /=1) THEN
+!          IF ((nbondi == -1).OR.(nbondi == 2)) THEN
+!             bathy(1,:)=bathy(2,:)
+!          ENDIF
+!          IF ((nbondi == 1).OR.(nbondi == 2)) THEN
+!          bathy(jpi,:)=bathy(jpi-1,:)
+!          ENDIF
+!       ENDIF