Changeset 13123


Ignore:
Timestamp:
2020-06-17T16:24:21+02:00 (7 weeks ago)
Author:
smasson
Message:

Extra_Halo: deactivate longitude and latitude check in AGRIF, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90

    r13065 r13123  
    284284         END IF   
    285285         !     
    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   
    288310         ! 
    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.') 
    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   
    310311      ENDIF 
    311312 
Note: See TracChangeset for help on using the changeset viewer.