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

Timestamp:

2018-09-06T12:35:27+02:00 (6 years ago)

Author:

clem

Message:

just cosmetics for a better understanding of the namelist parameters

File:

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

utils/tools/NESTING/src/agrif_create_bathy.f90

@@ -72 +72 @@
   ! define names of child grid files
   CALL set_child_name(parent_coordinate_file,Child_coordinates) 
-  IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    CALL set_child_name(parent_meshmask_file,Childlevel_file)            
-  IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    CALL set_child_name(parent_domcfg_output,Child_domcfg) 
+  IF( TRIM(parent_bathy_file) .NE. '/NULL' )    CALL set_child_name(parent_bathy_file,Childlevel_file)            
+  IF( TRIM(parent_bathy_file) .NE. '/NULL' )    CALL set_child_name(parent_domcfg_output,Child_domcfg) 
   !
   !                                                   ! ------------------------------------------------------------------
@@ -83 +83 @@
      ! read coarse grid bathymetry and coordinates
      status = Read_Coordinates(TRIM(parent_coordinate_file),G0)    
-     status = Read_bathy_level(TRIM(parent_meshmask_file),G0)
+     status = Read_bathy_level(TRIM(parent_bathy_file),G0)
      !           
      ! read fine grid coordinates
@@ -411 +411 @@
         status = Read_Bathymeter(TRIM(parent_bathy_meter),G0)
      ELSE
-        status = Read_Bathymeter(TRIM(parent_meshmask_file),G0)
+        status = Read_Bathymeter(TRIM(parent_bathy_file),G0)
      ENDIF
      
@@ -605 +605 @@
         ! store interpolation result in output file
         CALL levels_to_meter(G1)   ! From levels to meters
-        IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    status = Write_Bathy_level(TRIM(Childlevel_file),G1)
-        IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    status = write_domcfg(TRIM(Child_domcfg),G1)
+        IF( TRIM(parent_bathy_file) .NE. '/NULL' )    status = Write_Bathy_level(TRIM(Childlevel_file),G1)
+        IF( TRIM(parent_bathy_file) .NE. '/NULL' )    status = write_domcfg(TRIM(Child_domcfg),G1)
         !
         WRITE(*,*) '****** Bathymetry successfully created for partial cells ******'