Changeset 9749 for utils/tools/NESTING/src/agrif_create_bathy.f90

Timestamp:

2018-06-06T12:00:04+02:00 (6 years ago)

Author:

jchanut

Message:

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

File:

• utils/tools/NESTING/src/agrif_create_bathy.f90 (modified) (2 diffs)

utils/tools/NESTING/src/agrif_create_bathy.f90

@@ -463 +463 @@
              ALLOCATE(G1%wgt(SIZE(G1%bathy_meter,1),SIZE(G1%bathy_meter,2)))
         G1%wgt(:,:) = 0.
+        IF ((.NOT.ASSOCIATED(G0%wgt)).AND.bathy_update) THEN 
+             ALLOCATE(G0%wgt(SIZE(G0%nav_lat,1),SIZE(G0%nav_lat,2)))
+             G0%wgt(:,:) = 0.
+        ENDIF
 
         DO jj=1,nyfin
@@ -623 +627 @@
         CALL get_partial_steps(G1)                 ! compute gdepw_ps for G1
 
-        IF(bathy_update) CALL Update_Parent_Bathy( G0,G1 )                  
+        IF(bathy_update) CALL Update_Parent_Bathy( G0,G1 ) 
         !
         CALL set_child_name(parent_bathy_meter,child_ps)