- Timestamp:
- 2021-03-22T16:33:44+01:00 (3 years ago)
- Location:
- utils/tools/DOMAINcfg/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/agrif_user.F90
r14623 r14628 585 585 EXTERNAL :: init_glamt, init_glamu, init_glamv, init_glamf 586 586 EXTERNAL :: init_gphit, init_gphiu, init_gphiv, init_gphif 587 EXTERNAL :: longitude_linear_interp587 REAL,EXTERNAL :: longitude_linear_interp 588 588 589 589 CALL Agrif_Set_external_linear_interp(longitude_linear_interp) -
utils/tools/DOMAINcfg/src/dom_oce.F90
r14623 r14628 145 145 146 146 ! ! domain MPP decomposition parameters 147 INTEGER , PUBLIC :: nimpp, njmpp !: i- & j-indexes for mpp-subdomain left bottom148 INTEGER , PUBLIC :: nreci, nrecj !: overlap region in i and j149 INTEGER , PUBLIC :: nproc !: number for local processor150 INTEGER , PUBLIC :: narea !: number for local area151 INTEGER , PUBLIC :: nbondi, nbondj !: mark of i- and j-direction local boundaries152 153 ! !: domain MPP decomposition parameters154 147 INTEGER , PUBLIC :: nimpp, njmpp !: i- & j-indexes for mpp-subdomain left bottom 155 148 INTEGER , PUBLIC :: nproc !: number for local processor … … 314 307 END FUNCTION Agrif_Root 315 308 309 INTEGER FUNCTION Agrif_Fixed() 310 Agrif_Fixed = 0 311 END FUNCTION Agrif_Fixed 312 316 313 CHARACTER(len=3) FUNCTION Agrif_CFixed() 317 314 Agrif_CFixed = '0'
Note: See TracChangeset
for help on using the changeset viewer.