Ignore:
Timestamp:
2018-06-06T12:00:04+02:00 (3 years ago)
Author:
jchanut
Message:

NESTING tool: correct parent bathymetry update in case of nghost > 1. Output update zone in updated bathymetry file.

File:
1 edited

Legend:

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

    r9694 r9749  
    463463             ALLOCATE(G1%wgt(SIZE(G1%bathy_meter,1),SIZE(G1%bathy_meter,2))) 
    464464        G1%wgt(:,:) = 0. 
     465        IF ((.NOT.ASSOCIATED(G0%wgt)).AND.bathy_update) THEN  
     466             ALLOCATE(G0%wgt(SIZE(G0%nav_lat,1),SIZE(G0%nav_lat,2))) 
     467             G0%wgt(:,:) = 0. 
     468        ENDIF 
    465469 
    466470        DO jj=1,nyfin 
     
    623627        CALL get_partial_steps(G1)                 ! compute gdepw_ps for G1 
    624628 
    625         IF(bathy_update) CALL Update_Parent_Bathy( G0,G1 )                   
     629        IF(bathy_update) CALL Update_Parent_Bathy( G0,G1 )  
    626630        ! 
    627631        CALL set_child_name(parent_bathy_meter,child_ps) 
Note: See TracChangeset for help on using the changeset viewer.