Ignore:
Timestamp:
2018-06-06T15:28:47+02:00 (3 years ago)
Author:
jchanut
Message:

Modify arithmetic and median bathymetry average near land so that coastline is more realistic

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/NESTING/src/agrif_create_bathy.f90

    r9749 r9753  
    335335                 WHERE( vardep(:,:) .GT. 0. )  mask_oce = 1 
    336336 
    337                  IF( SUM(mask_oce) == 0 ) THEN 
     337!                 IF( SUM(mask_oce) == 0 ) THEN 
     338                 IF( SUM(mask_oce) < 0.5*(nxhr*nyhr) ) THEN 
    338339                    G1%bathy_meter(ji,jj) = 0. 
    339340                 ELSE 
     
    562563            END DO 
    563564        END DO 
    564  
    565         G1%gdepw_ps(:,:) = (1.-G1%wgt(:,:)) * G1%gdepw_ps(:,:) + gdepw_ps_interp(:,:)*G1%wgt(:,:) 
     565        IF (.NOT.identical_grids) THEN 
     566           G1%gdepw_ps(:,:) = (1.-G1%wgt(:,:)) * G1%gdepw_ps(:,:) + gdepw_ps_interp(:,:)*G1%wgt(:,:) 
     567        ENDIF 
    566568 
    567569        G1%bathy_meter = G1%gdepw_ps 
Note: See TracChangeset for help on using the changeset viewer.