- Timestamp:
- 2020-06-17T16:24:21+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90
r13065 r13123 284 284 END IF 285 285 ! 286 IF(lwp) WRITE(numout,*) ' ' 287 IF(lwp) WRITE(numout,*) 'AGRIF: Check longitude and latitude near bdys. Level: ', Agrif_Level() 286 !!$ IF(lwp) WRITE(numout,*) ' ' 287 !!$ IF(lwp) WRITE(numout,*) 'AGRIF: Check longitude and latitude near bdys. Level: ', Agrif_Level() 288 !!$ ! 289 !!$ ! check glamt in sponge area: 290 !!$ kindic_agr = 0 291 !!$ CALL Agrif_Bc_variable(glamt_id,calledweight=1.,procname=interpglamt) 292 !!$ CALL mpp_sum( 'agrif_user', kindic_agr ) 293 !!$ IF( kindic_agr /= 0 ) THEN 294 !!$ CALL ctl_stop('==> Child glamt is NOT correct near boundaries.')1 295 !!$ ELSE 296 !!$ IF(lwp) WRITE(numout,*) '==> Child glamt is ok near boundaries.' 297 !!$ IF(lwp) WRITE(numout,*) ' ' 298 !!$ END IF 299 !!$ ! 300 !!$ ! check gphit in sponge area: 301 !!$ kindic_agr = 0 302 !!$ CALL Agrif_Bc_variable(gphit_id,calledweight=1.,procname=interpgphit) 303 !!$ CALL mpp_sum( 'agrif_user', kindic_agr ) 304 !!$ IF( kindic_agr /= 0 ) THEN 305 !!$ CALL ctl_stop('==> Child gphit is NOT correct near boundaries.') 306 !!$ ELSE 307 !!$ IF(lwp) WRITE(numout,*) '==> Child gphit is ok near boundaries.' 308 !!$ IF(lwp) WRITE(numout,*) ' ' 309 !!$ END IF 288 310 ! 289 ! check glamt in sponge area:290 kindic_agr = 0291 CALL Agrif_Bc_variable(glamt_id,calledweight=1.,procname=interpglamt)292 CALL mpp_sum( 'agrif_user', kindic_agr )293 IF( kindic_agr /= 0 ) THEN294 CALL ctl_stop('==> Child glamt is NOT correct near boundaries.')295 ELSE296 IF(lwp) WRITE(numout,*) '==> Child glamt is ok near boundaries.'297 IF(lwp) WRITE(numout,*) ' '298 END IF299 !300 ! check gphit in sponge area:301 kindic_agr = 0302 CALL Agrif_Bc_variable(gphit_id,calledweight=1.,procname=interpgphit)303 CALL mpp_sum( 'agrif_user', kindic_agr )304 IF( kindic_agr /= 0 ) THEN305 CALL ctl_stop('==> Child gphit is NOT correct near boundaries.')306 ELSE307 IF(lwp) WRITE(numout,*) '==> Child gphit is ok near boundaries.'308 IF(lwp) WRITE(numout,*) ' '309 END IF310 311 ENDIF 311 312
Note: See TracChangeset
for help on using the changeset viewer.