Changeset 10093


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

just cosmetics for a better understanding of the namelist parameters

Location:
utils/tools/NESTING
Files:
9 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/NESTING/namelist_nordic1

    r10025 r10093  
    55&coarse_grid_files     
    66    parent_coordinate_file = 'coordinates.nc' 
    7     parent_meshmask_file   = 'meshmask.nc'   
     7    parent_bathy_file      = 'meshmask.nc'   
    88    parent_domcfg_output   = 'domain_cfg.nc' 
    99/     
  • utils/tools/NESTING/namelist_nordic1_update

    r10025 r10093  
    55&coarse_grid_files     
    66    parent_coordinate_file = 'coordinates.nc' 
    7     parent_meshmask_file   = 'meshmask.nc'   
     7    parent_bathy_file      = 'meshmask.nc'   
    88    parent_domcfg_output   = 'domain_cfg.nc' 
    99/     
  • utils/tools/NESTING/namelist_nordic2

    r10025 r10093  
    55&coarse_grid_files     
    66    parent_coordinate_file = '1_coordinates.nc' 
    7     parent_meshmask_file   = '1_meshmask.nc' 
     7    parent_bathy_file      = '1_meshmask.nc' 
    88    parent_domcfg_output   = '1_domain_cfg.nc' 
    99/     
  • 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 ******' 
  • utils/tools/NESTING/src/agrif_create_restart.f90

    r10025 r10093  
    113113  !        
    114114  CALL set_child_name(parent_coordinate_file,Childcoordinates)    
    115   CALL set_child_name(parent_meshmask_file,Childbathy)  
     115  CALL set_child_name(parent_bathy_file,Childbathy)  
    116116  CALL set_child_name(parent_bathy_meter,Childbathymeter)    
    117117  ! 
     
    165165  ENDIF 
    166166  ! 
    167   CALL Init_mask(parent_meshmask_file,G0,x,y) 
     167  CALL Init_mask(parent_bathy_file,G0,x,y) 
    168168  CALL Init_mask(childbathy,G1,1,1) 
    169169 
  • utils/tools/NESTING/src/agrif_create_restart_trc.f90

    r2455 r10093  
    100100  !        
    101101  CALL set_child_name(parent_coordinate_file,Childcoordinates)    
    102   CALL set_child_name(parent_meshmask_file,Childbathy)  
     102  CALL set_child_name(parent_bathy_file,Childbathy)  
    103103  CALL set_child_name(parent_bathy_meter,Childbathymeter)    
    104104  ! 
     
    142142  ENDIF 
    143143  ! 
    144   CALL Init_tmask(parent_meshmask_file,G0,x,y) 
     144  CALL Init_tmask(parent_bathy_file,G0,x,y) 
    145145  CALL Init_tmask(childbathy,G1,nxfin,nyfin) 
    146146   
  • utils/tools/NESTING/src/agrif_interpolation.f90

    r10025 r10093  
    560560    CALL set_child_name(filename,Child_file)  
    561561    CALL set_child_name(parent_coordinate_file,Childcoordinates) 
    562     CALL set_child_name(parent_meshmask_file,childbathy) 
     562    CALL set_child_name(parent_bathy_file,childbathy) 
    563563    WRITE(*,*) 'Child grid file name = ',TRIM(Child_file) 
    564564    ! 
     
    602602       ALLOCATE(mask(numlon,numlat,N)) 
    603603       CALL Init_mask(childbathy,G1,1,1) 
    604        CALL Init_mask(parent_meshmask_file,G0,1,1) 
     604       CALL Init_mask(parent_bathy_file,G0,1,1) 
    605605       ! 
    606606    ENDIF 
  • utils/tools/NESTING/src/agrif_readwrite.f90

    r10029 r10093  
    243243    CALL write_ncdf_var('mbathy' ,dimnames,name,Grid%bathy_level,'float') 
    244244    ! 
    245     CALL copy_ncdf_att('nav_lon',TRIM(parent_meshmask_file),name,MINVAL(Grid%nav_lon),MAXVAL(Grid%nav_lon)) 
    246     CALL copy_ncdf_att('nav_lat',TRIM(parent_meshmask_file),name,MINVAL(Grid%nav_lat),MAXVAL(Grid%nav_lat)) 
    247     CALL copy_ncdf_att('mbathy' ,TRIM(parent_meshmask_file),name)        
     245    CALL copy_ncdf_att('nav_lon',TRIM(parent_bathy_file),name,MINVAL(Grid%nav_lon),MAXVAL(Grid%nav_lon)) 
     246    CALL copy_ncdf_att('nav_lat',TRIM(parent_bathy_file),name,MINVAL(Grid%nav_lat),MAXVAL(Grid%nav_lat)) 
     247    CALL copy_ncdf_att('mbathy' ,TRIM(parent_bathy_file),name)        
    248248    ! 
    249249    WRITE(*,*) ' ' 
    250     WRITE(*,*) 'Writing bathymetry file: ',name 
     250    WRITE(*,*) 'Writing bathymetry (levels) in: ',name 
    251251    WRITE(*,*) ' ' 
    252252    ! 
     
    473473    ! 
    474474    WRITE(*,*) ' ' 
    475     WRITE(*,*) 'Writing bathymetry file: ',name 
     475    WRITE(*,*) 'Writing bathymetry (meters) in: ',name 
    476476    WRITE(*,*) ' ' 
    477477    ! 
  • utils/tools/NESTING/src/agrif_types.f90

    r10025 r10093  
    5959  LOGICAL ::   ln_agrif_domain 
    6060  !        
    61   CHARACTER*100 ::   parent_meshmask_file, elevation_database, parent_bathy_meter, parent_domcfg_output 
     61  CHARACTER*100 ::   parent_bathy_file, elevation_database, parent_bathy_meter, parent_domcfg_output 
    6262  CHARACTER*100 ::   elevation_name, parent_batmet_name 
    6363  CHARACTER*100 ::   parent_coordinate_file, restart_file, updated_parent_file, updated_parent_domcfg, restart_trc_file 
     
    6969  NAMELIST /input_output/iom_activated 
    7070  ! 
    71   NAMELIST /coarse_grid_files/parent_coordinate_file, parent_meshmask_file, parent_domcfg_output 
     71  NAMELIST /coarse_grid_files/parent_coordinate_file, parent_bathy_file, parent_domcfg_output 
    7272  !       
    7373  NAMELIST /bathymetry/new_topo, elevation_database, elevation_name, smoothing, smoothing_factor,  & 
Note: See TracChangeset for help on using the changeset viewer.