Changeset 14628

Timestamp:

2021-03-22T16:33:44+01:00 (3 years ago)

Author:

jchanut

Message:

AGFdomcfg: Fixes a couple of tiny compilation problems #2638

Location:

utils/tools/DOMAINcfg/src

Files:

• agrif_user.F90 (modified) (1 diff)
• dom_oce.F90 (modified) (2 diffs)

utils/tools/DOMAINcfg/src/agrif_user.F90

@@ -585 +585 @@
       EXTERNAL :: init_glamt, init_glamu, init_glamv, init_glamf
       EXTERNAL :: init_gphit, init_gphiu, init_gphiv, init_gphif
-      EXTERNAL :: longitude_linear_interp
+      REAL,EXTERNAL :: longitude_linear_interp
 
       CALL Agrif_Set_external_linear_interp(longitude_linear_interp)

utils/tools/DOMAINcfg/src/dom_oce.F90

@@ -145 +145 @@
 
    !                                 !  domain MPP decomposition parameters
-   INTEGER             , PUBLIC ::   nimpp, njmpp     !: i- & j-indexes for mpp-subdomain left bottom
-   INTEGER             , PUBLIC ::   nreci, nrecj     !: overlap region in i and j
-   INTEGER             , PUBLIC ::   nproc            !: number for local processor
-   INTEGER             , PUBLIC ::   narea            !: number for local area
-   INTEGER             , PUBLIC ::   nbondi, nbondj   !: mark of i- and j-direction local boundaries
-
-   !                             !: domain MPP decomposition parameters
    INTEGER             , PUBLIC ::   nimpp, njmpp     !: i- & j-indexes for mpp-subdomain left bottom
    INTEGER             , PUBLIC ::   nproc            !: number for local processor
@@ -314 +307 @@
    END FUNCTION Agrif_Root
 
+   INTEGER FUNCTION Agrif_Fixed()
+      Agrif_Fixed = 0
+   END FUNCTION Agrif_Fixed
+
    CHARACTER(len=3) FUNCTION Agrif_CFixed()
       Agrif_CFixed = '0'