Ignore:
Timestamp:
2018-09-06T12:35:27+02:00 (2 years ago)
Author:
clem
Message:

just cosmetics for a better understanding of the namelist parameters

File:
1 edited

Legend:

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

    r10027 r10093  
    7272  ! define names of child grid files 
    7373  CALL set_child_name(parent_coordinate_file,Child_coordinates)  
    74   IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    CALL set_child_name(parent_meshmask_file,Childlevel_file)             
    75   IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    CALL set_child_name(parent_domcfg_output,Child_domcfg)  
     74  IF( TRIM(parent_bathy_file) .NE. '/NULL' )    CALL set_child_name(parent_bathy_file,Childlevel_file)             
     75  IF( TRIM(parent_bathy_file) .NE. '/NULL' )    CALL set_child_name(parent_domcfg_output,Child_domcfg)  
    7676  ! 
    7777  !                                                   ! ------------------------------------------------------------------ 
     
    8383     ! read coarse grid bathymetry and coordinates 
    8484     status = Read_Coordinates(TRIM(parent_coordinate_file),G0)     
    85      status = Read_bathy_level(TRIM(parent_meshmask_file),G0) 
     85     status = Read_bathy_level(TRIM(parent_bathy_file),G0) 
    8686     !            
    8787     ! read fine grid coordinates 
     
    411411        status = Read_Bathymeter(TRIM(parent_bathy_meter),G0) 
    412412     ELSE 
    413         status = Read_Bathymeter(TRIM(parent_meshmask_file),G0) 
     413        status = Read_Bathymeter(TRIM(parent_bathy_file),G0) 
    414414     ENDIF 
    415415      
     
    605605        ! store interpolation result in output file 
    606606        CALL levels_to_meter(G1)   ! From levels to meters 
    607         IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    status = Write_Bathy_level(TRIM(Childlevel_file),G1) 
    608         IF( TRIM(parent_meshmask_file) .NE. '/NULL' )    status = write_domcfg(TRIM(Child_domcfg),G1) 
     607        IF( TRIM(parent_bathy_file) .NE. '/NULL' )    status = Write_Bathy_level(TRIM(Childlevel_file),G1) 
     608        IF( TRIM(parent_bathy_file) .NE. '/NULL' )    status = write_domcfg(TRIM(Child_domcfg),G1) 
    609609        ! 
    610610        WRITE(*,*) '****** Bathymetry successfully created for partial cells ******' 
Note: See TracChangeset for help on using the changeset viewer.